<%Option Explicit
Dim dbFilePath, strConnect
dbFilePath = Server.MapPath("/Upload/project_mail.mdb")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & dbFilePath & ";" &_
"Persist Security Info=False"
%>
<%
'==========================================
Dim strAction
strAction = Request.Form("action")
Dim bolDefault, bolAccepted, strStatusMessage, strHelpMessage
'Set Defaults
bolDefault = True 'Flag for deactivating option tags
bolAccepted = False 'Flag used when verifying form data
strStatusMessage = "Enter new user information"
'==========================================
'==========================================
Call dbConnect'Open database connection (database.asp)
'==========================================
'Determine correct path of action
'==========================================
Select Case strAction
Case "newUser"
bolAccepted = newUser()'function call to user_admin_code.asp
bolDefault = False
If bolAccepted = True Then
strStatusMessage = "New user added"
strHelpMessage = "You may now log into the message center. " &_
"However, you currently have access only to read " &_
"public messages. Within 24 hours your account will " &_
"be approved for access to other functions. If you " &_
"have any problems, please contact Livewire at 352-373-7090."
Else
strStatusMessage = "One or more of your entries was invalid."
strHelpMessage = ""
End If
End Select
'==========================================
%>
Message Board
