<%@ Language=VBScript %> <% id = Request.QueryString("id") url = Request.QueryString("url") Set Conn = Server.CreateObject("ADODB.Connection") Set Cmd = Server.CreateObject("ADODB.Command") 'Set RS = Server.CreateObject("ADODB.Recordset") sConnectString = "DSN=Swingers;UID=sa;PWD=vr4m6d" Cmd.CommandType = 1 Conn.Open sConnectString Set Cmd.ActiveConnection = Conn sql = "UPDATE Sites SET Out = Out + 1 WHERE id = '" & id & "'" Cmd.CommandText = sql 'SET RS = Cmd.Execute Cmd.Execute Set Cmd = Nothing Set Conn = Nothing Response.Redirect(url) %>