<%@ Language=VBSCRIPT %>
<% Option Explicit %>
Login no site da G.'. L.'. R.'. B.'.
<%
dim count
if Session("count")="" then
%>
<%
end if
%>
<%if request.form("SIN")="" then%>
<%else
Dim SIN
Dim PASS
SIN=request.form("SIN")
PASS=request.form("pass")
Dim CONN
Dim RS
CONST ROTA = "\\g1.org.br\private\dados\GLRB.mdb"
Dim iautor
DIM sqltxt
Set CONN = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & rota
Set RS = CreateObject("ADODB.Recordset")
sqltxt ="Select * from USER where SIN='"&SIN&"' and pass= '"&pass&"'"
RS.Open "Select * from User where SIN='"&SIN&"' and pass= '"&pass&"'", conn
if not RS.eof then
Session("iautor") = rs("Auth")
response.redirect "testeauth.asp"
else
%>
<%
Session("Count") = "1"
end if
RS.close
Set RS=nothing
CONN.close
Set CONN=nothing
'if Session("iautor")=-1 or Session("iautor")="" then
' response.redirect "index.htm"
'end if
end if%>