Current File : C:/Inetpub/vhosts/escuderiaarico.com/httpdocs/admin/comprobar.asp

<%

Response.CharSet = "UTF-8"

usuariox=request.form("usuario")
passwordx=request.form("password")

conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=escuderiaarico;PWD=Cocococo1;DATABASE=escuderiaarico"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From cl15 where usuario='" & usuariox & "' and contraseña='" & passwordx & "'"
set RS = Conn.Execute(sSQL)

if not rs.eof then

id = rs("id")
web = rs("web")
nombre = rs("nombre")

Session("autmenu")=True
Session("id_cl")=id
Session.Timeout=300
Response.Redirect("admin.asp")

else
end if

Conn.Close

if usuariox="Pegodi" and passwordx="Fp937sTania!!!" then

Session("autmenu")=True
Session("id_cl")=1
Session.Timeout=300
Response.Redirect("admin.asp")

else
end if



response.redirect "index.asp?resp=2"

%>