Ändra funktion

5 svar · 490 visningar · startad av Gimbo 8 jan. 2007

GimboMedlem sedan dec. 20001 626 inlägg

Frågan8 jan. 2007 16:41#1

Hej,

hur kan jag ändra den här funktionen så att den gör exakt samma sak men utan att behöva använda Absoluteposition?

function AddSubmittedForm(FormID, SubmitDate)
	Dim sql, bookmark
	
	bookmark = ""
	sql = "tblSubmitted"

	set rsAdd = server.createobject("adodb.recordset")
	'rsAdd.cursorlocation = adUseClient
	rsAdd.cursorlocation = 3
	rsAdd.open sql, conn, 3, 3
		rsAdd.addNew
		rsAdd("FormID") = FormID
		rsAdd("SubmitDate") = now		
		rsAdd.update

		bookmark = rsAdd.AbsolutePosition
		rsAdd.Requery
		rsAdd.AbsolutePosition = bookmark

		AddSubmittedForm = rsAdd("SubmitID")
		response.write AddSubmittedForm
	rsAdd.close
	set rsAdd = nothing
end function

tacksam för svar

emissionMedlem sedan dec. 19996 721 inlägg

8 jan. 2007 17:07#2

Vad är syftet med funktionen?

GimboMedlem sedan dec. 20001 626 inlägg

9 jan. 2007 08:22#3

att variabeln addSubmittedForm ska få det senaste postade id't

@ndersMedlem sedan juni 200032 967 inlägg

9 jan. 2007 08:26#4

Snacka om att gå över ån för att tappa smält björnskinn i vattnet. :)

function AddSubmittedForm(FormID, SubmitDate)
	sSQL = "INSERT INTO tblSubmitted (FormID, SubmitDate) VALUES (" & FormID & ", now())"
	conn.Execute sSQL,,128
	sSQL = "SELECT @@IDENTITY"
	set oRS = conn.Execute (sSQL)
	AddSubmittedForm = oRS(0)
	oRS.Close : set oRS = Nothing
end function

GimboMedlem sedan dec. 20001 626 inlägg

9 jan. 2007 08:43#5

grymt! tackar :)

@ndersMedlem sedan juni 200032 967 inlägg

9 jan. 2007 08:44#6

Du såg att jag skrev fel namn på ditt connection-objekt på ett ställe, antar jag. :)

Lika bra att jag redigerar...