
05/02/2004, 11:40
|
 | | | Fecha de Ingreso: diciembre-2001 Ubicación: Guadalajara, Mexico
Mensajes: 3.672
Antigüedad: 23 años, 4 meses Puntos: 16 | |
Lo que pasa es que tengo un response.redirect que redirecciona a la url pero cuando tiene un ? ya no me direcciona, se queda en blanco la pagina, ahi va la pagina:
<: navega.asp :>
<%
response.Buffer = true
Dim Liga
url = Request("url")
if url="" then
url=request.QueryString("texto")
end if
inicio = left(url, 7)
if inicio <> "http://" then
Liga = "http://" & url
else
Liga = Request.QueryString("url")
end if
%>
<title>Visitando: <%=liga%> </title>
<frameset rows="135,*" frameborder="No" border="0" framespacing="0" cols="*">
<frame name="topFrame" scrolling="NO" noresize src="top2.asp?url=<%=url%>" >
<%
if url <>"" then
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("../Guia Guanatos/urls.mdb")&";"
strsql = "SELECT * FROM Tabla1 WHERE url = '" & url & "'"
Set rs = Server.CreateObject("ADODB.RecordSet")
RS.open strsql, oConn, 3, 3
'----------
basedatos = Server.MapPath("../Guia Guanatos/ligas.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
reg = "SELECT * FROM ligas where url='"&url&"'"
set registros = server.CreateObject("ADODB.RecordSet")
registros.open reg, conexion, 3, 3
if not registros.eof then
clicks=registros("Click")
registros("Click")=clicks+1
else
registros.addnew
registros("url")=url
registros("clicks")=1
registros("inactivo")=True
end if
registros.Update
if rs.eof then
rs.AddNew
rs("clicks")= 1
rs("url") = url
rs.update
else
rs("clicks")=rs("clicks")+1
rs.update
end if
rs.Close
registros.Close
set rs=nothing
set registros=nothing
oConn.Close
conexion.close
response.Redirect liga
%>
<frame name="busca" src="<%=liga%>">
<%
end if
%>
</body></html>
__________________ CreandoWebs.com www.creandowebs.com PLANTILLAS TEMPLATEMONSTER CON 10% DE DESCUENTO |