<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
adid = Request.QueryString("id")
sql = "SELECT tally, url FROM vptads WHERE ID = " & adid & ""
response.write(sql)
set rsVptads = Server.CreateObject("ADODB.Recordset")
Call rsVptads.Open(Sql, vptConn, 1, 2)
sTally = rsVptads("tally")
adUrl = rsVptads("url")
rsVptads.Close
Set rsVptads=Nothing
adTally = sTally + 1
sql = "UPDATE vptads SET tally = " & adTally & " WHERE ID = " & adid & ""
vptConn.Execute(sql)
%>
Clickthru Counter
<%
Response.Redirect(adURL)
%>