Frågan 27 juni 2001 18:06 #1 Bli inte helt förskräckta nu...jag försöker i alla fall...
Set RecSet = Server.CreateObject("ADODB.Recordset")
Uppdatera = "SELECT * FROM forum"
RecSet.Open Uppdatera, Connect, 3, 3
RecSet.AddNew
RecSet("Thread_ID") = Request.Form("Thread_ID")
RecSet("Thread_ReplyOrder") = Request.Form("Thread_ReplyOrder")
RecSet("Thread_Level") = Request.Form("Thread_Level") + 1
RecSet("msgFROM") = Request.Form("msgFROM")
RecSet("msgDATE") = (Date)
RecSet("msgTIME") = Svtid
RecSet("msgTopic") = Request.Form("msgTopic")
RecSet("msgTEXT") = Request.Form("msgTEXT")
RecSet("IP") = Request.ServerVariables("REMOTE_ADDR")
RecSet.Update
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
------------------
Alltid lär man sig något nytt varje dag...
L LarsG Medlem sedan dec. 2000 12 464 inlägg Och vad är problemet?
------------------
essentitia preter non sans multiplicandum
Jag vill sluta skämmas...:)
------------------
Alltid lär man sig något nytt varje dag...
@nders Medlem sedan juni 2000 32 967 inlägg nu vet jag ju inte vad du har för fälttyper i din tabell, men jag gör en kvalificerad gissning. text/pm/memo skall ha apostrofer runt värden, datumfält ska ha brädgård runt.
jag säger som jag brukar: gör om, gör rätt. ;)
strSQL = "INSERT INTO forum (ThreadID, Thread_ReplyOrder, Thread_Level, msgFROM, msgDATE, msgTIME, msgTopic, msgTEXT, IP) " &_
"(" & Request.Form("Thread_ID") & ", " & Request.Form("Thread_ReplyOrder") & ", " & cint(Request.Form("Thread_Level")) + 1 &_
", '" & Request.Form("msgFROM") & "', #" & Date & "#, '" & Svtid & "', '" & Request.Form("msgTopic") & "', '" & Request.Form("msgTEXT") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "')"
Connect.Execute(strSQL)
Connect.Close
Set Connect = nothing
mvh,
------------------
<A HREF="http://cartman.nu " TARGET=_blank>
can i borrow your goat?
</A>
[Redigerat av @nders den 27 jun 2001]
L LarsG Medlem sedan dec. 2000 12 464 inlägg strSQL = "INSERT INTO forum (ThreadID, Thread_ReplyOrder, Thread_Level, msgFROM, msgDATE, msgTIME, msgTopic, msgTEXT, IP) [b]values[/b] " &_
"(" & Request.Form("Thread_ID") & ", " & Request.Form("Thread_ReplyOrder") & ", " & cint(Request.Form("Thread_Level")) + 1 &_
", '" & Request.Form("msgFROM") & "', #" & Date & "#, '" & Svtid & "', '" & Request.Form("msgTopic") & "', '" & Request.Form("msgTEXT") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "')"
------------------
essentitia preter non sans multiplicandum
@nders Medlem sedan juni 2000 32 967 inlägg gaaaaah!
*skäms*
tack, LarsG!
------------------
<A HREF="http://cartman.nu " TARGET=_blank>
can i borrow your goat?
</A>