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

<%

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

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

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

else
end if

conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=admind3km;PWD=KyoshoChurri6791;DATABASE=derecha3kmotor"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From cl19 where usuario='" & usuariox & "' and contrase?='" & 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


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

%>