Hej!

Vi vill lägga till information från två textrutor till databasen, varför vill det inte?


<input type="hidden" name=ValtNamn value=<%=Request.Form("namn")%>>
<input type="hidden" name=ValtTelenr value=<%=Request.Form("telenr")%>>


<%Dim Connect, dsntemp, RecSet, Addera

Set Connect = Server.CreateObject ("ADODB.Connection")
dsntemp ="DRIVER=Microsoft Access Driver (*.mdb);"
dsntemp=dsntemp & "DBQ=" & Server.MapPath ("bowling.mdb")
Connect.Open dsntemp

Set RecSet = Server.CreateObject("ADODB.Recordset")


Addera = "SELECT Namn, Telefonnr FROM Bokning"
RecSet.Open Addera, connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
RecSet("Namn") = Request.Form("ValtNamn")
RecSet("Telefonnr") = Request.Form("ValtTelenr") RecSet.Update RecSet.Close
Connect.Close
%>

Tack på förhand!
//Anna och Marie

Hej,
Vad får ni för felmeddelande?

/Jocke

Hej!

Du behöver inte lägga infot i dolda fält på sidan, gör så här istället:
<code>

<%Dim Connect, dsntemp, RecSet, Addera

Set Connect = Server.CreateObject ("ADODB.Connection")
dsntemp ="DRIVER=Microsoft Access Driver (*.mdb);"
dsntemp=dsntemp & "DBQ=" & Server.MapPath ("bowling.mdb")
Connect.Open dsntemp

Set RecSet = Server.CreateObject("ADODB.Recordset")


Addera = "SELECT Namn, Telefonnr FROM Bokning"
RecSet.Open Addera, connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
RecSet("Namn") = Request.Form("Namn")
RecSet("Telefonnr") = Request.Form("Telenr") RecSet.Update
RecSet.Close
Connect.Close
%>

</code>

Sen får du kolla att Request.Form("Namn") och Request.Form("Telenr") verkligen innehåller nåt...

/F

En sak till!
Har du en include-fil som innehåller ADO-konstanter?
Om du inte har det så kan du inte använda:
adOpenStatic
adLockOptimistic

om du inte deklarerar dessa i filen..

/F

Tack för svaren! Vi har lyckats klura ut det nu =)