<% Dim objConn, strSQL Dim objRS ' skapa en instans av Connection Set objConn = Server.CreateObject("ADODB.Connection") ' skapa en instans av Recordset Set objRS = Server.CreateObject("ADODB.Recordset") ' öppna databasen elektrosport_se objConn.ConnectionString="DRIVER={MySQL};SERVER=elektrosport.se.mysql;DATABASE=elektrosport_se;UID=elektrosport_se;PWD=FmSkTp44" objConn.Open ' Session.LCID = 1053 funkar inte (svenskt datumformat) strIpnummer = Request.ServerVariables("REMOTE_ADDR") strDatumTid = Now strVisitSida = "Definition av ett rör" strSQL = "SELECT * From ip_logger WHERE 1=2" ' Öppna Recordset och utför SQL-strängen objRS.open strSQL, objConn, 1, 2 objRS.AddNew objRS("ip_nummer")= strIpnummer objRS("datum_tid")= strDatumTid objRS("visit_sida")= strVisitSida objRS.Update objConn.Close Set objConn=Nothing %>

 KINNA GUMMIKLUBB

 Definition av ett rör


Hela röret skall tillverkas av ett långt hål, omgivet av stål, koppar, plast
eller annan fast materia, centrerat omkring kärnan av hålet.
Hela röret måste bestå av hål i hela dess längd, hålet skall dessutom vara
lika långt som röret.
Inre diametern får inte vara större än yttre diametern eftersom hålet då
blir liggande på utsidan, och detta medför med stor sannolikhet läckage.
Hela röret skall innehålla enbart hål så att vatten eller andra ämnen kan
flyta fritt

Ett rör utan hålrum, sk massivt rör, benämnes med t ex axel, stång eller
stav. Dessa har helt andra egenskaper än rör med hålrum,
och är inte
lämpliga att leda vätskor i.



Copyright (C) 2004 Kinna Gummiklubb