<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'on error resume next id = zero(request("id")) if id = 0 then response.Redirect "index.asp" end if redir = request("r") SQL = "Update banners SET clicks = clicks+1 WHERE id="&seguranca(id) 'response.Write(SQL) 'response.End() set RSup = ObjConexao.Execute(SQL) set RSup = nothing if redir = "" then response.Redirect "index.asp" else response.redirect redir end if If Err.Number <> 0 Then Response.Write("Houve um erro e o upload dos arquivos não foi efetuado.
") Response.Write("Descrição do erro: " & Err.Description) Response.Write("
Número do erro: " & Err.Number) Response.End() end if %>