<% @ Language="VBScript" %>
<%
Dim strPassword
Dim strMencId
Dim LastName
Dim LoginMenc
Dim strMessage
Dim LoginOk
strMessage = ""
LoginButton = Request("Login")
'request came from Login button on form
If LoginButton = "Login" Then
strMencId = Request.Form("txtMencId")
strMencId = Right("000000000" & trim(strMencId),9)
LastName = Request.Form("txtLastName")
strLastName = Replace(LastName,"'","''") 'name to use in login sql
DirId = 0
Session("DirId") = 0
Session("PhiBetaMuMemberType") = ""
Set DirectoryConn = Server.CreateObject("ADODB.Connection")
DirectoryConn.Open DirectoryConnString
SQLstr = "SELECT DirId, PhiBetaMuMemberType FROM [Director] " _
& "WHERE [MencId] = '" & strMencId & "' AND [LastName] = '" & strLastName & "';"
Set rsMencId = DirectoryConn.Execute (SQLstr)
Do While not rsMencId.EOF
If Trim(rsMencId("PhiBetaMuMemberType")) <> "" Then
Session("DirId") = rsMencId("DirID")
Session("PhiBetaMuMemberType") = trim(rsMencId("PhiBetaMuMemberType"))
DirId = rsMencId("DirID")
PhiBetaMuMemberType = rsMencId("PhiBetaMuMemberType")
End If
rsMencId.movenext
Loop
rsMencId.close
If PhiBetaMuMemberType <> "" Then
response.Redirect "membersonly.asp"
Else
strMessage = "Sorry. Not able to log you in with that Last Name and MENC number."
End If
End If 'login button pressed
'Show List of Documents
%>
Theta Chapter Members Area
Theta
Chapter - South Carolina |
Members Only Area:
<%=strMessage%>
|
| |
|
|