Flera SQL kommandon samtidigt?

2 svar · 200 visningar · startad av muffika 13 feb. 2002

muffikaMedlem sedan feb. 200212 inlägg

Frågan13 feb. 2002 23:05#1

Jag håller på med ett bannerscript och först vill jag räkna antal klick och sedan skicka iväg till adressen, jag har skrivit detta men det funkar inte:

on error resume next

set connect = Server.CreateObject("ADODB.Connection")
set RecSet = Server.CreateObject("ADODB.Recordset")

connect.Open "DSN=muffika"
RecSet.ActiveConnection = connect

SQL = "UPDATE bannerbyten SET f_ut=f_ut+1 WHERE d_nummer="&Request.Querystring("id")
Set RecSet = Connect.Execute(SQL)

SQL = "SELECT h_adress FROM bannerbyten WHERE h_nummer="&Request.Querystring("id")
Set RecSet = Connect.Execute(SQL)

Response.Redirect RecSet("h_adress")

Connect.Close
Set RecSet = Nothing
Set Connect = Nothing

vad är det för fel?

SPiNMedlem sedan mars 20007 896 inlägg

14 feb. 2002 00:25#2

Vad får du för felmeddelanden?

Förslagsvis borde din kod se ut så här:

set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "DSN=muffika"

SQL = "UPDATE bannerbyten SET f_ut=f_ut+1 WHERE d_nummer=" & Request.Querystring("id")
Connect.Execute(SQL)

SQL = "SELECT h_adress FROM bannerbyten WHERE h_nummer=" & Request.Querystring("id")
Set RecSet = Connect.Execute(SQL)

Dim hAdress
hAdress = RecSet ( "h_adress" )

Connect.Close
RecSet.Close
set Connect = Nothing
set RecSet = Nothing

Response.Redirect hAdress

Stäng och rensa bland dina objekt innan du redirectar, annars görs det inte. Sen var det lite mer smågrejjer som var konstiga...

Red.} Tog bort On Error Resume Next också, så att man får med felmeddelandena...

muffikaMedlem sedan feb. 200212 inlägg

14 feb. 2002 09:53#3

tack för hjälpen jag provade det du skrev, men det funkade inte heller, då upptäckte jag ett litet slavfel som jag gjort, så nu funkar det!