<% dim idx idx = cint(request.querystring("idx")) %> <% dim pre pre = mid(dbPath, 2, 1) if not pre=":" then dbPath = server.mappath(dbPath) end if dim cn set cn = OpenConn(dbPath, "") sql = "INSERT INTO clicks(ACCOUNT_ID, IP, CLICK_DATE, CLICK_TIME) "&_ "VALUES("&idx&", "&_ "'"&request.servervariables("REMOTE_ADDR")&"', "&_ "#"&FormatDateForDB(date())&"#, "&_ "#"&time()&"#)" cn.execute(sql) sql = "SELECT URL_REDIR FROM accounts WHERE ID="&idx set rs = cn.execute(sql) dim url_redir url_redir = rs("URL_REDIR") cn.close set cn = nothing response.redirect(url_redir) %> <% '**************************************************************************************************** %>