Fejl med Microsoft OLE DB !!!

måske mangler der en sesion i din SQL streng.

Prøv at skrive din SQL streng ud til skærmen, så kan du evt. se hvad der måtte mangle (eller post den her)

Her er min SQL, men det er kun de to der får denne fejlmelding, ved alle andre viker den.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
' Her skabes der forbindelse til database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("entries.mdb")
Conn.Open DSN

strSQL = "INSERT INTO Indbakke (Navn, Emne, Besked, Thread, Reply_Id) VALUES ('" & Request.Form("Navn") & " ',' " & Request.Form("Emne") &  " ','" & Request.Form("Besked") & " ','" & Request.Form("Thread") & "','" & Request.Form("Reply_Id") &  "')"

Conn.Execute(strSQL)
%>

Hvis reply_ID er tal så skal du ikke sætte ' omkring den.

..., " & Request.Form("Reply_Id") &  ")"

Det er ikke det, da de får den samme melding når poster fra denne SQL:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
' Her skabes der forbindelse til database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("entries.mdb")
Conn.Open DSN

strSQL ="Insert into Indbakke (Navn, Email, Emne, Besked, Thread)"
strSQL = strSQL & "values('" & Request.Form("Navn") & "','" & Request.Form("Email") & "','" & Request.Form("Emne") & "','" &  Request.Form("Besked") &  "','" & Request.Form("Thread") & "')"

Conn.Execute(strSQL)
%>
Der er ingen tal i denne.
Kan det være deres opsætning af EI?

Ok, det kommer an på hvad er det som man sender til tabelen, hvis det er bare tekst f ex henrik så får man ikke noget problemer men hvis det henrik's så får man fejl  besked, du skal derfor bruge replace funktionen inden du sender værdien til tabellen fx:
RetNavn = Request.Form("Navn")
minNavn = Replace(RetNavn, "'", "''")

strSQL ="Insert into Indbakke (Navn, Email, Emne, Besked, Thread)"
strSQL = strSQL & "values('" & minNavn & "','" & Request.Form("Email") & "','" & Request.Form("Emne") & "','" &  Request.Form("Besked") &  "','" & Request.Form("Thread") & "')"

du kan også lave en funktion hvor den tjekker alle værdier:

Function StrQuoteReplace(strValue)
  StrQuoteReplace = Replace(strValue, "'", "''")
End Function

Dim strSQL

strSQL = "INSERT into Indbakke " & _
"(Navn, Email, Emne, Besked, Thread) " & _
"VALUES('" & _
StrQuoteReplace(Navn) & "', '" & _
StrQuoteReplace(Email) & "', '" & _
StrQuoteReplace(Emne) & "', '" & _
StrQuoteReplace(Besked) & "', '" & _ 
StrQuoteReplace(Thread) & "')"

ok - tak skal du have