<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Server.ScriptTimeout = 3600 %> <% dim conn, connstring set conn = server.createobject("ADODB.connection") connstring = "provider = microsoft.jet.OLEDB.4.0; data source = " & server.mappath("/redirect/bd_arquivos.mdb") conn.open = connstring SQL2 = "SELECT * FROM tab_file WHERE (((file_nome)='"&request.QueryString("id")&"'))" set rs2 = conn.execute(SQL2) url_cliente_ref = request.ServerVariables("HTTP_REFERER") caracteres = len(url_cliente_ref) barra_barra = InStr(url_cliente_ref,"//") barra_barra = barra_barra + 1 http_complet = left(url_cliente_ref, barra_barra) url_cliente_ref = Mid(url_cliente_ref, barra_barra+1, caracteres) barra = InStr(url_cliente_ref,"/") '6 url_cliente_ref = left(url_cliente_ref, barra) 'url_cliente_ref = Mid(url_cliente_ref, 1, barra) url_cliente_ref = http_complet&""& url_cliente_ref Connect = "provider = microsoft.jet.OLEDB.4.0; data source = " & server.mappath("/redirect/bd_arquivos.mdb") Set rs = Server.CreateObject("adodb.recordset") rs.Open "tab_ref", Connect, 3, 3 rs.AddNew rs("file_id") = rs2("file_id") rs("ref_relacionamento") = url_cliente_ref rs("ref_contador") = 1 rs.Update rs.close url = "../download/"& rs2("file_nome") response.Redirect(url) rs2.Close() Set rs2 = Nothing %>