Current File : C:/Inetpub/vhosts/subidatamaimo.com/httpdocs/2022/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=subidatamaimo;PWD=Cocococo1;DATABASE=subidatamaimo"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From cl22 where usuario='" & usuariox & "' and contrasena='" & 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")=id
Session.Timeout=300
Response.Redirect("admin.asp")


else
end if



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

%>