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

5 svar · 227 visningar · startad av Lukaspojken 27 juni 2001

LukaspojkenMedlem sedan maj 20011 312 inlägg

Trådstart27 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

LarsGMedlem sedan dec. 200012 464 inlägg

27 juni 2001 18:12#2

Och vad är problemet?

LukaspojkenMedlem sedan maj 20011 312 inlägg

27 juni 2001 18:33#3

Jag vill sluta skämmas...:)

@ndersMedlem sedan juni 200032 967 inlägg

27 juni 2001 18:52#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,

LarsGMedlem sedan dec. 200012 464 inlägg

27 juni 2001 19:17#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") & "')"

@ndersMedlem sedan juni 200032 967 inlägg

27 juni 2001 19:19#6

gaaaaah!

*skäms*

tack, LarsG!