Buenas tardes, a ver si alguien puede darme una luz en este camino lleno de sombras en el que me acabo de meter... les comento lo que quiero y lo que estoy haciendo para obtenerlo.
quiero hacer un código con 2 opciones, si existe en la base de datos, me lleve a la dirección URL "A", sino no existe que me lleve a la "B".
Pues no lo puedo hacer...
Hasta el momento he hecho esto, y me sale siempre una misma dirección, salga sapo o salga rana, este es el código:
<%
dim existe
existe=false
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "servidor.mbd" Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open ("Select * from tabla"), Conn,1,2
rs.MoveFirst
Do Until existe or rs.eof
if Request.querystring("usuario")=rs("clave") then
existe=true
end if
rs.MoveNext
Loop
if not existe then
existe=false
end if
if existe then
Response.redirect("A.asp")
else
Response.redirect("B.asp")
end if
'rs.MoveFirst
%>
<%
'Do until rs.EOF
%>
<%
'rs.MoveNext
'Loop
rs.close
conn.close
Set rs=nothing
Set conn=nothing
%>
Creen que pueden ayudarme? Gracias de antemano
