/asp/freeapps/topsitementor/goto.asp
<%
OPTION EXPLICIT
%>
<!--#include file="inctopsite.asp"-->
<%
'Some before doings...
Dim oConn, oRS, sRedir, nID
Set oConn = IncTopSite_GetDatabaseConn()
nID = Request.QueryString("id")
Set oRS = oConn.Execute( "select url from " & IncTopsite_GetTablePrefix() & "site where id=" & nID )
sRedir = oRS("url").Value
oRS.Close
Set oRS = Nothing
oConn.Execute "update " & IncTopsite_GetTablePrefix() & "site set outcount=outcount+1 where id=" & nID
oConn.Close
Set oConn = Nothing
Response.Redirect sRedir
Response.Flush
Response.End
%>