FSO Set-Aside Directory

<% Dim sScript, iAdminStatus sScript = Request.ServerVariables("SCRIPT_NAME") If NOT IsEmpty(Request.Form("Login")) Then iAdminStatus = Check_Admin If iAdminStatus = 1 Then Session("Admin") = 1 Response.Redirect "search1.asp" Else Session("Admin") = 0 End If End If %> FSO Set-Aside Directory - Log-In

Log In to the Directory...

Please Log In....

User Name	">
Password

Please take a moment to log-on before using the Search Database

<% Function Check_Admin Dim Rs, sSQL, sLogin, sPassword sLogin = Replace(Request.Form("Login"), "'", "''") sPassword = Replace(Request.Form("Password"), "'", "''") Dim conn2 Set conn2 = Server.CreateObject("ADODB.Connection") conn2.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Inetpub/wwwroot/fpdb/SetAsideLogin_be.mdb" sSQL = "SELECT * FROM tAdmin WHERE Login='" & sLogin & "' AND Password='" & sPassword & "' " Set Rs = Server.CreateObject("ADODB.RecordSet") 'Rs.Open sSQL, conn2, adOpenForward, adLockReadOnly, adCmdText Rs.Open sSQL, conn2, 3, 3 If Rs.EOF Then Check_Admin = 0 Else Check_Admin = 1 End If rs.close set rs = nothing conn2.close set conn2 = nothing End Function %>