<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
option explicit
response.Buffer=True
%>
<%
Dim RandomNumber, Klart
Klart=0
If Session("EShopSession")="" Then
'Session("EShopSession") = session.SessionID
db_connect="Driver={Mysql};Server=mysql.a04.levonline.com;Database=a0423300_db1;UID=a0423301;PWD=CCcdEBks"
Set db = Server.CreateObject("ADODB.Connection")
db.Open db_connect
While Klart=0
Randomize
RandomNumber = Int(Rnd * 1048575) + 1
sql_str="SELECT ID FROM shop_kundvagn WHERE KundvagnID="&RandomNumber&""
Set RS=db.execute(sql_str)
IF RS.EOF Then
Session("EShopSession") = RandomNumber
Session.Timeout=480
Klart=1
Else
Klart=0
End If
Wend
End If
%>
Garnverket - Webbutik
<![CDATA[<body>
</body>]]>