Flera SQL kommandon samtidigt?

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?

------------------
::muffika.tk::

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... :)

------------------
SPiN, bjorne.w@telia.com

[Redigerat av SPiN den 14 feb 2002]

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!

------------------
::muffika.tk::