Email: info@adullam.org.uk <% Response.Expires = -1000 'Makes the browser not cache this page Response.Buffer = True 'Buffers the content so our Response.Redirect will work Session("UserLoggedIn") = "" dim msg If Request.Form("textpass") <> "" and Request.Form("textid") <> "" Then CheckLogin Else msg=" Enter Login Id And Password.

" End If %>

Grapevine Login
For Adullam employees only
Login id: password:

<% Sub CheckLogin %> <% strSQL = "select Login_ID,Login_pass from Adullam_user" objConn.Open strConnection set objRS = objConn.Execute(strSQL) '============================================================ If Err.Number <> 0 Then Response.Write Err.Description DO WHILE NOT objRS.EOF If Request.Form("textid")= objRS("Login_ID") and Request.Form("textpass") = objRS("Login_pass") Then Session("UserLoggedIn") = "true" if lcase(objRS("Login_ID"))="administrator" then Response.Redirect "./super.asp" end if Response.Redirect "./grapevine/" Else msg= "Login Failed.

" End If objRS.MoveNext Loop Response.Write(msg) objRS.Close set objRS = Nothing objConn.Close set objConn = Nothing End Sub %>
Registered Office,
Walter Moore House,
34 Dudley Street,
West Bromwich
B70 9LS
Tel: 0121 500 2828
Fax: 0121 500 2838


Bury Office
69-87 Bolton Road,
Bury,
Lancashire
BL8 2AH
Tel: 0161 763 2565
Fax: 0161 763 2575