<% @LCID = 1034%>
<%
Dim DB, SQL, rs
ver = request.QueryString("ver")
if ver = "si" then
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/_spmdb.mdb"))
usuario = request.Form("usuario")
pass = request.Form("pass")
if usuario <> "" and pass <> "" then
SQL = "SELECT * FROM usuarios where usuario = '" & trim(usuario) & "' and pass = '" & trim(pass) & "'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open SQL, DB, 3, 3
if rs.recordcount = 0 then
errText = "
Datos Incorrectos!
"
else
session("autorizado") = usuario
response.Redirect("menu.asp")
end if
rs.close
else
errText = "
Favor de escribir sus datos!
"
end if
end if
%>
.:Log-In:. || Sports Time México