Gästboken funkar inte!

Skicka mer kod så skriver vi om uppdateringsfunktionen.

Såhär ser hela koden ut. På sidan som ska ta emot all information!

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/gastbok.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gastbok"
RecSet.Open Addera, Connect, 3, 3

RecSet.Addnew
RecSet("namn")=Request.Form("namn")
RecSet("epost")=Request.Form("epost")
RecSet("inlagg")=Request.Form("inlagg")
RecSet.Update
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.redirect "gastbok.asp"
%>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/gastbok.mdb")

Connect.Execute("INSERT INTO gastbok (namn, epost, inlagg) VALUES('" & Request.Form("namn") & "', '" & Request.Form("epost") & "', '" & Request.Form("inlagg") & "')")

Connect.Close
Set Connect = nothing

Response.redirect "gastbok.asp"
%>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/gastbok.mdb")

sql = "INSERT INTO gastbok (namn, epost, inlagg) VALUES ('"&Trim(Request.Form("namn"))&"', '"&Trim(Request.Form("epost"))&"', '"&Trim(Request.Form("inlagg"))&"')"
Connect.Execute(sql),,128

Set Connect = nothing
Response.redirect "gastbok.asp"
%>

Tyvärr

Det fungerar inte nu heller.. Nu kommer det upp att sidan inte finns.!

Där ser man... nån annan hann före : )

Men borde du inte lägga till ,,128 på Connect.Execute? Vi vill väl inte skapa ett recordset i onödan?

Icke..

LR^evil.sid skrev:

Där ser man... nån annan hann före : )

Men borde du inte lägga till ,,128 på Connect.Execute? Vi vill väl inte skapa ett recordset i onödan?

Som jag skrev nyss så fungerar det inte )=

Men det ska fungera... vad får du för felmeddelande?

Kolla här!
Jag får inget meddelande alls. Den säger bara att sidan inte finns men det gör den..

tyckte att jag såg något i er kod.. Något sql.. Jag kör inte me sql script.. Kanske e det..

Har du inte använt koden vi skrivit?

Antagligen så fungerar inte din Response.Redirect

Var i trädstrukturen på servern ligger "gastbok.asp" och var ligger sidan som tar emot datan från gastbok?

Är du säker på att du inte skall till typ "/prov/gastbok.asp" eller liknande?

Ändra &amp; till ett &

Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/gronwall/db/prov/gb_spara.asp, line 14 

Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" [b]&[/b] server.mappath ("db/gastbok.mdb")

Jag har skrivit in er kod.. Jag ändrade sökvägen på gastbok.asp.. DU hade rätt där.. GÅ in på sidan och kolla nu.. nu får jag ett annat meddelande..

Har du inget fält i databasen som är en räknare. Typ ID, som inte kan vara lika som något annat inlägg så du inte kan få dubbletter i databasen?.

Autoincrement

LR^evil.sid skrev:

Har du inget fält i databasen som är en räknare. Typ ID, som inte kan vara lika som något annat inlägg så du inte kan få dubbletter i databasen?.

Autoincrement

jo, det har jag.. ID och den är en räknare..

Något eller flera av fälten i databasen är satta till att vara Indexerade (Yes - No duplicates). Det är bara räknaren som ska vara inställd så. Vill du ha index på meddelande, namn etc. bör du sätta dom (Yes - Duplicates allowed).

engelska

Jag har den engelska versionen utav Access..

ID AutoNumber
namn Text
epost Text
inlagg Memo

Sådär ser det ut.. Vad är fel?

Kotrollera Field Properties för fälten namn, epost och inlagg. Sätt värdet på Indexed till Yes (Duplicates OK) om du vill ha dom fälten indexerade annars till No.

Du har ju fortfarande inte fixat:
&a****mp...

Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" [red][b]&[/b]amp[/red] server.mappath ("gastbok.mdb")

Byt hela den raden mot

Connect.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath("gastbok.mdb")