<!--#include file="installningar.asp"-->
<%
Response.Buffer = true

strInsertString = ""& vbcrlf &_
"varde = Request.Cookies(""& Session.SessionID &"")"& vbcrlf &_
"hamta = Split(varde,""&"")"& vbcrlf &_
"ReDim MyArray(4,Ubound(hamta))"& vbcrlf &_
"for x = 0 to ubound(hamta)"& vbcrlf &_
"hamta2 = Split(hamta(x),""="")"& vbcrlf &_
"IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then"& vbcrlf &_
"SQL = ""SELECT * FROM produkter WHERE id =""& int(hamta2(0))"& vbcrlf &_
"Set RecSet = Connect.Execute(SQL)"& vbcrlf &_
"MyArray(0,x) = hamta2(0)"& vbcrlf &_
"MyArray(1,x) = hamta2(1)"& vbcrlf &_
"MyArray(3,x) = RecSet(""sak"")"& vbcrlf &_
"MyArray(4,x) = RecSet(""antal"")"

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../databas/saker.mdb")
sql = "INSERT INTO saker (sak) VALUES('"& CStr(strInsertString) &"')"
Connect.Execute(sql),,128
Connect.Close
Set Connect = Nothing
%>