<%
Dim WrongPass
WrongPass = "0"
If Request.Form("Name")= "" Or Request.Form("Password")="" Then
ShowForm
End If
If Request.Form("Name") <> "" and Request.Form("Password")<>"" Then
CheckLog
End If
Sub CheckLog
If Request.Form("Name") = AdminName and Request.Form("Password") = AdminPass Then
Session("PassCheck") = "yes"
'Response.Redirect "Entradas.asp"
Response.Redirect "../referencias.htm"
Else
If Request.Form("Name") = AuditName and Request.Form("Password") = AuditPass Then
Session("PassCheck") = "yes"
'Response.Redirect "Entradas.asp"
Response.Redirect "../referencias.htm"
else
WrongPass = "1"
ShowForm
end if
End If
End Sub
Sub ShowForm
%>
<%=gbName%>
