webForumDet fria alternativet

Skäms lite för min uppdateringskod...help...

ASP

5 svar · 191 visningar · startad av Lukaspojken

Medlem sedan maj 20011 312 inlägg
Frågan#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...

Medlem sedan dec. 200012 464 inlägg
#2

Och vad är problemet?

------------------
essentitia preter non sans multiplicandum

Medlem sedan maj 20011 312 inlägg
#3

Jag vill sluta skämmas...:)

------------------
Alltid lär man sig något nytt varje dag...

Medlem sedan juni 200032 967 inlägg
#4

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]

Medlem sedan dec. 200012 464 inlägg
#5
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

Medlem sedan juni 200032 967 inlägg
#6

gaaaaah!

*skäms*

tack, LarsG!

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

261 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)