Para entrar en el área privada, usted debe de disponer de un nombre de usuario y clave de acceso facilitados por nuestra empresa.
<%If Request.Form("usuario")="" Then %>
aviso legal
notas de prensa
política de privacidad
condiciones de uso
contactar
web master
<%
Else
usuario=LCase(replace(Request.Form("usuario"),"'","'"))
password=LCase(replace(Request.Form("password"),"'","'"))
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="DSN=scdyss.com.sap"
Conn.Open
Set rs = CreateObject("ADODB.Recordset")
Sqltxt = "Select * From t_usuario Where usuario = '"&usuario&"' And clave = '"&password&"'"
rs.Open Sqltxt,Conn
If not rs.EOF Then
Response.Redirect"panel.asp"
Else
Response.Redirect"error-acceso.asp"
End If
rs.Close
Set rs=nothing
Conn.Close
Set Conn=nothing
End If
%>
