<% Function GetUserId (strUsername, strPassword) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_USER_BY_USERNAME" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USERNAME", adVarchar, adParamInput, 50, strUsername) cmd.Parameters.Append cmd.CreateParameter("PASSWORD", adVarchar, adParamInput, 50, strPassword) cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamOutput) cmd.execute If IsNull(cmd.Parameters("USER_ID")) Then intUserId = 0 Else intUserId = cmd.Parameters("USER_ID") End If set cmd = nothing If err.number <> 0 Then Call ReportError("GetUserId", err.number, err.description) End If GetUserId = intUserId On Error Goto 0 End Function Function GetAccessibleModules(intUserId, strDelimiter) On Error Resume Next dim cmd dim strAccessibleAdminModulesList set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_ACCESSIBLE_ADMIN_MODULES" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intUserId) cmd.Parameters.Append cmd.CreateParameter("DELIMITER", adVarchar, adParamInput, 10, strDelimiter) cmd.Parameters.Append cmd.CreateParameter("ADMIN_MODULE_LIST", adVarchar, adParamOutput, 255) cmd.execute If Trim(cmd.Parameters("ADMIN_MODULE_LIST")) = strDelimiter Then strAccessibleAdminModulesList = "" Else strAccessibleAdminModulesList = cmd.Parameters("ADMIN_MODULE_LIST") End If set cmd = nothing If err.number <> 0 Then Call ReportError("GetAccessibleModules", err.number, err.description) End If GetAccessibleModules = strAccessibleAdminModulesList On Error Goto 0 End Function Function GetUserLanguage(intUserId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_USER_LANGUAGE" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intUserId) cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarchar, adParamOutput, 10) cmd.execute If err.number <> 0 Then Call ReportError("GetUserLanguage", err.number, err.description) End If GetUserLanguage = cmd.Parameters("LANGUAGE_ABBREVIATION") set cmd = nothing On Error Goto 0 End Function Function GetAdminModuleName(intAdminModuleId, strLanguageAbbreviation) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_ADMIN_MODULE_NAME" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("ADMIN_MODULE_ID", adInteger, adParamInput, , intAdminModuleId) cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarchar, adParamInput, 10, strLanguageAbbreviation) cmd.Parameters.Append cmd.CreateParameter("ADMIN_MODULE_NAME", adVarchar, adParamOutput, 50) cmd.execute If err.number <> 0 Then Call ReportError("GetAdminModuleName", err.number, err.description) End If GetAdminModuleName = cmd.Parameters("ADMIN_MODULE_NAME") set cmd = nothing On Error Goto 0 End Function Function GetAdminModuleLinks(intAdminModuleId, strAdminModuleName) Select Case intAdminModuleId Case 1 'if the id relates to 'Content' Admin Module... GetAdminModuleLinks = "" & strAdminModuleName & " Administration" &_ DisplayPostingTypeLinks() Case 2 'if the id relates to 'URL' Admin Module... GetAdminModuleLinks = "" & strAdminModuleName & " Administration" &_ "

Web site Menu Administration
Web site Page Administration

" Case 3 'if the id relates to 'User Account' Admin Module... GetAdminModuleLinks = "" & strAdminModuleName & " Administration" Case 4 'if the id relates to 'Subscriber' Admin Module... GetAdminModuleLinks = "" & strAdminModuleName & " Administration" &_ "

Live Web site Subscribers
Test Web site Subscribers

" Case 5 'if the id relates to 'Clients' Admin Module... GetAdminModuleLinks = "" & strAdminModuleName & " Administration" Case 6 'if the id relates to 'Sequencing Submissions' Admin Module... GetAdminModuleLinks = "" & strAdminModuleName & " Administration" &_ "

• Current Sequencing Submissions
• Archived Sequencing Submissions

" Case 7 'if the id relates to 'Invoice' Admin Module... GetAdminModuleLinks = "" & strAdminModuleName & " Administration" &_ "

• Payment Pending Invoices
• Paid Invoices

" Case 10 'if the id relates to 'Bioinformatics Survey Download' GetAdminModuleLinks = "" & strAdminModuleName & "" Case 11 'if the id relates to 'Groups' GetAdminModuleLinks = "" & strAdminModuleName & " Administration" Case 12 'if the id relates to 'Dynamic Forms' GetAdminModuleLinks = "" & strAdminModuleName & " Administration" End Select End Function Function DisplayPostingTypeLinks() On Error Resume Next dim rsPostingTypes dim strPostingTypeName dim strSubscriberLinks Set rsPostingTypes = GetPostingTypes() If rsPostingTypes.Eof Then strSubscriberLinks = "" & vbCRLF Else strSubscriberLinks = "

" & vbCRLF Do While Not rsPostingTypes.Eof strSubscriberLinks = strSubscriberLinks & "" & GetPostingTypeName(rsPostingTypes("POSTING_TYPE_ID")) & "
" & vbCRLF rsPostingTypes.MoveNext Loop strSubscriberLinks = strSubscriberLinks & "

" & vbCRLF End If If err.number <> 0 Then Call ReportError("DisplayPostingTypeLinks", err.number, err.description) End If DisplayPostingTypeLinks = strSubscriberLinks On Error Goto 0 End Function Sub DeleteUser(intUserId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_DELETE_User" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intUserId) cmd.execute If err.number <> 0 Then Call ReportError("DeleteUser", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Sub Function ManageUsers() On Error Resume Next dim strUserLinks dim rsUsers dim intUserId dim strEmail dim strFirstName dim strLastName Set rsUsers = GetUsers() strUserLinks = "" & vbCRLF Do While Not rsUsers.Eof intUserId = rsUsers("USER_ID") strFirstName = rsUsers("USER_FIRST_NAME") strLastName = rsUsers("USER_LAST_NAME") strEmail = rsUsers("USER_EMAIL") strUserLinks = strUserLinks & "" & vbCRLF strUserLinks = strUserLinks & "" & vbCRLF strUserLinks = strUserLinks & "" & vbCRLF strUserLinks = strUserLinks & "" & vbCRLF strUserLinks = strUserLinks & "" & vbCRLF strUserLinks = strUserLinks & "" & vbCRLF strUserLinks = strUserLinks & "" & vbCRLF strUserLinks = strUserLinks & "" & vbCRLF rsUsers.MoveNext Loop rsUsers.Close Set rsUsers = Nothing strUserLinks = strUserLinks & "

" & vbCRLF strUserLinks = strUserLinks & "" & strLastName & ", " & strFirstName & vbCRLF strUserLinks = strUserLinks & "	" & vbCRLF strUserLinks = strUserLinks & "Edit" & vbCRLF strUserLinks = strUserLinks & "	" & vbCRLF strUserLinks = strUserLinks & "Delete" & vbCRLF strUserLinks = strUserLinks & "
" & vbCRLF strUserLinks = strUserLinks & "" & vbCRLF strUserLinks = strUserLinks & "

" & vbCRLF If err.number <> 0 Then Call ReportError("ManageUsers", err.number, err.description) End If ManageUsers = strUserLinks On Error Goto 0 End Function Function GetUsers() On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_USERS" cmd.CommandType = adCmdStoredProc set GetUsers = cmd.execute If err.number <> 0 Then Call ReportError("GetUsers", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Function Sub ModifyUser(intAdminUser, strFirstName, strLastName, strEmail, strUsername, strPassword) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_SET_USER" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUser) cmd.Parameters.Append cmd.CreateParameter("USER_FIRST_NAME", adVarchar, adParamInput, 150, strFirstName) cmd.Parameters.Append cmd.CreateParameter("USER_LAST_NAME", adVarchar, adParamInput, 150, strLastName) cmd.Parameters.Append cmd.CreateParameter("USER_EMAIL", adVarchar, adParamInput, 150, strEmail) cmd.Parameters.Append cmd.CreateParameter("USER_USERNAME", adVarchar, adParamInput, 150, strUsername) cmd.Parameters.Append cmd.CreateParameter("USER_PASSWORD", adVarchar, adParamInput, 150, strPassword) cmd.execute If err.number <> 0 Then Call ReportError("ModifyUser", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Sub Function AddUser(strFirstName, strLastName, strEmail, strUsername, strPassword) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_INSERT_USER" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamOutput) cmd.Parameters.Append cmd.CreateParameter("USER_FIRST_NAME", adVarchar, adParamInput, 150, strFirstName) cmd.Parameters.Append cmd.CreateParameter("USER_LAST_NAME", adVarchar, adParamInput, 150, strLastName) cmd.Parameters.Append cmd.CreateParameter("USER_EMAIL", adVarchar, adParamInput, 150, strEmail) cmd.Parameters.Append cmd.CreateParameter("USER_USERNAME", adVarchar, adParamInput, 150, strUsername) cmd.Parameters.Append cmd.CreateParameter("USER_PASSWORD", adVarchar, adParamInput, 150, strPassword) cmd.execute If err.number <> 0 Then Call ReportError("AddUser", err.number, err.description) End If AddUser = cmd.Parameters("USER_ID") set cmd = nothing On Error Goto 0 End Function Sub Delete_User_AdminModules(intAdminUserId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_DELETE_USER_ADMIN_MODULES" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUserId) cmd.execute If err.number <> 0 Then Call ReportError("Delete_User_AdminModules", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Sub Function GetNonSelectedAdminModule(intAdminUserId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_NON_SELECTED_ADMIN_MODULE" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , CInt(intAdminUserId)) cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarChar, adParamInput, 3, strLanguage) set GetNonSelectedAdminModule = cmd.execute If err.number <> 0 Then Call ReportError("GetNonSelectedAdminModule", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Function Function GetNonSelectedAdminModuleOptions(intAdminUserId) On Error Resume Next dim rsOptions dim strNonSelectedOptions set rsOptions = GetNonSelectedAdminModule(intAdminUserId) strNonSelectedOptions = "" If Not rsOptions.Eof Then Do While Not rsOptions.Eof strNonSelectedOptions = strNonSelectedOptions & "" & rsOptions("ADMIN_MODULE_NAME_" & strLanguage) & "" & vbCRLF rsOptions.MoveNext Loop End If If err.number <> 0 Then Call ReportError("GetNonSelectedAdminModuleOptions", err.number, err.description) End If rsOptions.Close set rsOptions = Nothing GetNonSelectedAdminModuleOptions = strNonSelectedOptions On Error Goto 0 End Function Function GetUserSelectedAdminModule(intAdminUserId) On Error Resume Next dim cmd If strLanguage = "" Then strLanguage = "ENG" End If set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_USER_SELECTED_ADMIN_MODULE" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUserId) cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarChar, adParamInput, 3, strLanguage) set GetUserSelectedAdminModule = cmd.execute If err.number <> 0 Then Call ReportError("GetUserSelectedAdminModule", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Function Function GetSelectedAdminModuleOptions(intAdminUserId) On Error Resume Next dim rsOptions dim strSelectedOptions set rsOptions = GetUserSelectedAdminModule(CInt(intAdminUserId)) strSelectedOptions = "" If Not rsOptions.Eof Then Do While Not rsOptions.Eof strSelectedOptions = strSelectedOptions & "" & rsOptions("ADMIN_MODULE_NAME_" & strLanguage) & "" & vbCRLF rsOptions.MoveNext Loop End If If err.number <> 0 Then Call ReportError("GetSelectedAdminModuleOptions", err.number, err.description) End If rsOptions.Close set rsOptions = Nothing GetSelectedAdminModuleOptions = strSelectedOptions On Error Goto 0 End Function Function GetAllAdminModules() On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_ALL_ADMIN_MODULE" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarChar, adParamInput, 3, strLanguage) set GetAllAdminModules = cmd.execute If err.number <> 0 Then Call ReportError("GetAllAdminModules", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Function Function GetAllAdminModuleOptions() On Error Resume Next dim rsOptions dim strOptions set rsOptions = GetAllAdminModules() strOptions = "" If Not rsOptions.Eof Then Do While Not rsOptions.Eof strOptions = strOptions & "" & rsOptions("ADMIN_MODULE_NAME_" & strLanguage) & "" & vbCRLF rsOptions.MoveNext Loop End If If err.number <> 0 Then Call ReportError("GetAllAdminModuleOptions", err.number, err.description) End If rsOptions.Close set rsOptions = Nothing GetAllAdminModuleOptions = strOptions On Error Goto 0 End Function Function GetSelectedUser(intAdminUserId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_GET_SELECTED_USER" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUserId) set GetSelectedUser = cmd.execute If err.number <> 0 Then Call ReportError("GetSelectedUser", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Function Sub Delete_User_AdminModule(intAdminUserId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_DELETE_USER_ADMIN_MODULE" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUserId) cmd.execute If err.number <> 0 Then Call ReportError("Delete_User_AdminModule", err.number, err.description) End If set cmd = nothing On Error Goto 0 End Sub Sub Add_User_AdminModule(intAdminModuleId, intAdminUserId) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_INSERT_USER_ADMIN_MODULE" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUserId) cmd.Parameters.Append cmd.CreateParameter("ADMIN_MODULE_ID", adInteger, adParamInput, , intAdminModuleId) cmd.execute set cmd = nothing If err.number <> 0 Then Call ReportError("Add_User_AdminModule", err.number, err.description) End If On Error Goto 0 End Sub Function ModifyUserPassword(intAdminUser, strUsername, strOldPassword, strNewPassword) On Error Resume Next dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = conn cmd.CommandText = "SP_SET_USER_PASSWORD" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("PASSWORD_IS_MODIFIED", adInteger, adParamOutput) cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUser) cmd.Parameters.Append cmd.CreateParameter("USER_USERNAME", adVarChar, adParamInput, 50, strUsername) cmd.Parameters.Append cmd.CreateParameter("USER_PASSWORD", adVarChar, adParamInput, 50, strOldPassword) cmd.Parameters.Append cmd.CreateParameter("NEW_USER_PASSWORD", adVarChar, adParamInput, 50, strNewPassword) cmd.execute ModifyUserPassword = CBool(cmd.ParameterS("PASSWORD_IS_MODIFIED")) set cmd = nothing If err.number <> 0 Then Call ReportError("ModifyUserPassword", err.number, err.description) End If On Error Goto 0 End Function %>