<!-- #include virtual="../adovbs.inc" -->

<% If request.querystring("alt") = "dikter" Then %>



<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\vackrast\db\databas.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM dikter"


RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("dikt") = Request.Form("dikt")
RecSet("username") = Request.Form("username")
RecSet("password") = Request.Form("password")
RecSet("email") = Request.Form("email")
RecSet("namn") = Request.Form("namn")
RecSet("mobil") = Request.Form("mobil")
RecSet("url") = Request.Form("url")
RecSet("alder") = Request.Form("alder")
RecSet("lunarstorm") = Request.Form("lunarstorm")
RecSet("status") = Request.Form("status")
RecSet("intressen") = Request.Form("intressen")
RecSet("icq") = Request.Form("icq")
RecSet("land") = Request.Form("land")
RecSet("favoriturl") = Request.Form("favoriturl")
RecSet("horoskop") = Request.Form("horoskop")
RecSet("bor") = Request.Form("bor")
Recset("datum") = now

RecSet.Update
RecSet.Close
Connect.Close

Response.Write "Tack! Du är nu medlem!"

End If

%>


Jag testar detta och får meddelandet:

Tack, du är nu medlem!
När ja kollar databasen så har den inte lagrat informationen ja bett henne lagra utan bara datumet!

Vad är fel?

Hassan Fakhro

Hur ser formuläret ut? Använder du post eller get som method?

Om du har get så hamnar värdena i request.querystring. Du måste ange post för att de skall hamna i request.form

Hej

Testa att ändra AdOpenStatic till AdOpenKeyset.
Static är en statiskt konstant och används om man inte ska göra något.

Eftersom du bara ställer en fråga för att öppna databasen så kan du ändra den till Addera = "SELECT * FROM dikter WHERE 1=2"
då får du ett tomt RS till svar, annars får du alla poster till minnet som ligger där tills du stänger RS.

Anna-Karin