<%if request("Vuelta")="1" then
if request("T1")="" then%>
<% else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=primus_reg;UID=sauser;PWD=hawke"
sql = "select * from REGISTRATION where ltrim(str(user_id))='"&trim(request("T1"))&"'"
Set Cursor = Server.CreateObject("ADODB.Recordset")
Cursor.Open sql,Conn,3
Dim YA
YA=Cursor.EOF
Cursor.Close
Conn.Close
if YA then%>
<% else
response.cookies("ID")=request("T1")
session("user_id")=request("T1")
response.redirect("ENTRAR.ASP")
end if
end if
end if%>
Document Development