<%
Function ManageSubscribers(strSubscriberType, intCurrentPage, intSubsDisplayedPerPage)
On Error Resume Next
dim strSubscriberLinks
dim rsSubscribers
dim intSubscriberCount
dim intSubscriberId
dim strEmail
dim strFirstName
dim strLastName
dim strOrganization
dim bolInactive
dim strInactive
dim intCounter
dim strSubsriberList
strSubsriberList = ""
intSubscriberCount = GetSubscriberCount(strSubscriberType)
If intSubscriberCount = 0 Then
Response.Write "
There are currently no " & UCase(Left(strSubscriberType, 1)) & LCase(Mid(strSubscriberType, 2, Len(strSubscriberType)-1)) & " Subscribers.
"
Else
Set rsSubscribers = GetSubscribers(strSubscriberType)
strSubscriberLinks = "
" & vbCRLF
intCounter = 0
Do While Not rsSubscribers.Eof
intCounter = intCounter + 1
If intCounter > ((intCurrentPage-1)*intSubsDisplayedPerPage) And intCounter <= (intCurrentPage*intSubsDisplayedPerPage) Then
intSubscriberId = rsSubscribers("SUBSCRIBER_ID")
strFirstName = rsSubscribers("SUBSCRIBER_FIRST_NAME")
strLastName = rsSubscribers("SUBSCRIBER_LAST_NAME")
strEmail = rsSubscribers("SUBSCRIBER_EMAIL")
bolInactive = rsSubscribers("SUBSCRIBER_IS_ACTIVE")
If Not IsNull(rsSubscribers("SUBSCRIBER_ORGANIZATION")) Then
strOrganization = rsSubscribers("SUBSCRIBER_ORGANIZATION")
Else
strOrganization = ""
End If
If strSubsriberList <> "" Then
strSubsriberList = strSubsriberList & ","
End If
strSubsriberList = strSubsriberList & intSubscriberId
If bolInactive = False then
strInactive = " Is Inactive"
else
strInactive = " Is Inactive"
End if
strSubscriberLinks = strSubscriberLinks & "
" & vbCRLF
End If
rsSubscribers.MoveNext
Loop
strSubscriberLinks = strSubscriberLinks & "" & vbCRLF
rsSubscribers.Close
Set rsSubscribers = Nothing
strSubscriberLinks = strSubscriberLinks & "
" & vbCRLF
End If
If err.number <> 0 Then
Call ReportError("ManageSubscribers", err.number, err.description)
End If
ManageSubscribers = strSubscriberLinks
On Error Goto 0
End Function
Function GetSubscribers(strSubscriberType)
On Error Resume Next
dim cmd
dim intIsLive
If strSubscriberType = "live" Then
intIsLive = 1
Else
intIsLive = 0
End If
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_SUBSCRIBERS"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_IS_LIVE", adInteger, adParamInput, , intIsLive)
set GetSubscribers = cmd.execute
If err.number <> 0 Then
Call ReportError("GetSubscribers", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Function
Function GetSubscriberCount(strSubscriberType)
On Error Resume Next
dim cmd
dim intIsLive
If LCase(strSubscriberType) = "live" Then
intIsLive = 1
Else
intIsLive = 0
End If
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_SUBSCRIBER_COUNT"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_IS_LIVE", adInteger, adParamInput, , intIsLive)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_COUNT", adInteger, adParamOutput)
cmd.execute
If err.number <> 0 Then
Call ReportError("GetSubscriberCount", err.number, err.description)
End If
GetSubscriberCount = cmd.Parameters("SUBSCRIBER_COUNT")
set cmd = nothing
On Error Goto 0
End Function
Sub DeleteSubscriber(intSubscriberId)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_DELETE_SUBSCRIBER"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , CInt(intSubscriberId))
cmd.execute
If err.number <> 0 Then
Call ReportError("DeleteSubscriber", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Sub
Function GetNonSelectedPostingType(intSubscriberId)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_NON_SELECTED_POSTING_TYPE"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , CInt(intSubscriberId))
cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarChar, adParamInput, 3, strLanguage)
set GetNonSelectedPostingType = cmd.execute
If err.number <> 0 Then
Call ReportError("GetNonSelectedPostingType", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Function
Function GetNonSelectedPostingTypeOptions(intSubscriberId)
On Error Resume Next
dim rsOptions
dim strNonSelectedOptions
set rsOptions = GetNonSelectedPostingType(intSubscriberId)
strNonSelectedOptions = ""
If Not rsOptions.Eof Then
Do While Not rsOptions.Eof
strNonSelectedOptions = strNonSelectedOptions & "" & vbCRLF
rsOptions.MoveNext
Loop
End If
If err.number <> 0 Then
Call ReportError("GetNonSelectedPostingTypeOptions", err.number, err.description)
End If
rsOptions.Close
set rsOptions = Nothing
GetNonSelectedPostingTypeOptions = strNonSelectedOptions
On Error Goto 0
End Function
Function GetSelectedSubscriber(intSubscriberId)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_SELECTED_SUBSCRIBER"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
set GetSelectedSubscriber = cmd.execute
If err.number <> 0 Then
Call ReportError("GetSelectedSubscriber", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Function
Function GetSubscriberSelectedPostingType(intSubscriberId)
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_SUBSCRIBER_SELECTED_POSTING_TYPE"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarChar, adParamInput, 3, strLanguage)
set GetSubscriberSelectedPostingType = cmd.execute
If err.number <> 0 Then
Call ReportError("GetSubscriberSelectedPostingType", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Function
Function GetSelectedPostingTypeOptions(intSubscriberId)
On Error Resume Next
dim rsOptions
dim strSelectedOptions
set rsOptions = GetSubscriberSelectedPostingType(CInt(intSubscriberId))
strSelectedOptions = ""
If Not rsOptions.Eof Then
Do While Not rsOptions.Eof
strSelectedOptions = strSelectedOptions & "" & vbCRLF
rsOptions.MoveNext
Loop
End If
If err.number <> 0 Then
Call ReportError("GetSelectedPostingTypeOptions", err.number, err.description)
End If
rsOptions.Close
set rsOptions = Nothing
GetSelectedPostingTypeOptions = strSelectedOptions
On Error Goto 0
End Function
Function GetAllPostingTypes()
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_ALL_POSTING_TYPES"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("LANGUAGE_ABBREVIATION", adVarChar, adParamInput, 3, strLanguage)
set GetAllPostingTypes = cmd.execute
If err.number <> 0 Then
Call ReportError("GetAllPostingTypes", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Function
Function GetAllPostingTypeOptions()
On Error Resume Next
dim rsOptions
dim strOptions
set rsOptions = GetAllPostingTypes()
strOptions = ""
If Not rsOptions.Eof Then
Do While Not rsOptions.Eof
If rsOptions("POSTING_TYPE_USER_CAN_SUBSCRIBE") = True Then
strOptions = strOptions & "" & vbCRLF
End If
rsOptions.MoveNext
Loop
End If
If err.number <> 0 Then
Call ReportError("GetAllPostingTypeOptions", err.number, err.description)
End If
rsOptions.Close
set rsOptions = Nothing
GetAllPostingTypeOptions = strOptions
On Error Goto 0
End Function
Sub ModifySubscriber(intSubscriberId, strFirstName, strLastName, strEmail, strOrganization, intSubscriberIsLive, strRelevantEducation, intFirstDegreeObtainedCountryId, intContactTypeId, strEmploymentStatus, strStatementOfInterest, intYearsOfProfessionalExperience, bolActive)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_SET_SUBSCRIBER"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
cmd.Parameters.Append cmd.CreateParameter("CONTACT_TYPE_ID", adInteger, adParamInput, , intContactTypeId)
If intYearsOfProfessionalExperience = "" Then
intYearsOfProfessionalExperience = 999
End If
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_YEARS_OF_PROFESSIONAL_EXPERIENCE", adInteger, adParamInput, , intYearsOfProfessionalExperience)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_COUNTRY_OF_FIRST_DEGREE", adInteger, adParamInput, , intFirstDegreeObtainedCountryId)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_FIRST_NAME", adVarchar, adParamInput, 150, strFirstName)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_LAST_NAME", adVarchar, adParamInput, 150, strLastName)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_EMAIL", adVarchar, adParamInput, 150, strEmail)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_RELEVANT_EDUCATION", adVarchar, adParamInput, 250, strRelevantEducation)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ORGANIZATION", adVarchar, adParamInput, 150, strOrganization)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_EMPLOYMENT_STATUS", adVarchar, adParamInput, 150, strEmploymentStatus)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_STATEMENT_OF_INTEREST", adVarchar, adParamInput, 1000, strStatementOfInterest)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_IS_ACTIVE", adBoolean, adParamInput, , bolActive)
cmd.execute
If err.number <> 0 Then
Call ReportError("ModifySubscriber", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Sub
Function AddSubscriber(strFirstName, strLastName, strEmail, strOrganization, intSubscriberIsLive, strRelevantEducation, intFirstDegreeObtainedCountryId, intContactTypeId, strEmploymentStatus, strStatementOfInterest, intYearsOfProfessionalExperience, bolActive)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_INSERT_SUBSCRIBER"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamOutput)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_IS_LIVE", adInteger, adParamInput, , intSubscriberIsLive)
cmd.Parameters.Append cmd.CreateParameter("CONTACT_TYPE_ID", adInteger, adParamInput, , intContactTypeId)
If intYearsOfProfessionalExperience = "" Then
intYearsOfProfessionalExperience = 999
End If
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_YEARS_OF_PROFESSIONAL_EXPERIENCE", adInteger, adParamInput, , intYearsOfProfessionalExperience)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_COUNTRY_OF_FIRST_DEGREE", adInteger, adParamInput, , intFirstDegreeObtainedCountryId)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_FIRST_NAME", adVarchar, adParamInput, 150, strFirstName)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_LAST_NAME", adVarchar, adParamInput, 150, strLastName)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_EMAIL", adVarchar, adParamInput, 150, strEmail)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_RELEVANT_EDUCATION", adVarchar, adParamInput, 250, strRelevantEducation)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ORGANIZATION", adVarchar, adParamInput, 150, strOrganization)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_EMPLOYMENT_STATUS", adVarchar, adParamInput, 150, strEmploymentStatus)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_STATEMENT_OF_INTEREST", adVarchar, adParamInput, 1000, strStatementOfInterest)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_IS_ACTIVE", adBoolean, adParamInput, , bolActive)
cmd.execute
If err.number <> 0 Then
Call ReportError("AddSubscriber", err.number, err.description)
End If
AddSubscriber = cmd.Parameters("SUBSCRIBER_ID")
set cmd = nothing
On Error Goto 0
End Function
Sub Delete_Subscriber_PostingType(intSubscriberId)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_DELETE_SUBSCRIBER_POSTING_TYPE"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
cmd.execute
If err.number <> 0 Then
Call ReportError("Delete_Subscriber_PostingType", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Sub
Sub Add_Subscriber_PostingType(intPostingTypeId, intSubscriberId)
On Error Resume Next
If Not(UserIsSubscribed(intPostingTypeId, intSubscriberId)) Then
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_INSERT_SUBSCRIBER_POSTING_TYPE"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_ID", adInteger, adParamInput, , intPostingTypeId)
cmd.execute
set cmd = nothing
End If
If err.number <> 0 Then
Call ReportError("Add_Subscriber_PostingType", err.number, err.description)
End If
On Error Goto 0
End Sub
Function VerifySubscribersExistence(strEmail, intSubscriberIsLive)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_SUBSCRIBER"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_EMAIL", adVarchar, adParamInput, 150, strEmail)
cmd.Parameters.Append cmd.CreateParameter("IS_LIVE", adInteger, adParamInput, , intSubscriberIsLive)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamOutput)
cmd.execute
If err.number <> 0 Then
Call ReportError("VerifySubscribersExistence", err.number, err.description)
End If
If IsNull(cmd.Parameters("SUBSCRIBER_ID")) Then
VerifySubscribersExistence = ""
Else
VerifySubscribersExistence = cmd.Parameters("SUBSCRIBER_ID")
End If
set cmd = nothing
On Error Goto 0
End Function
Sub SubscribeContactUsRequestor(strFirstName, strLastName, strEmail, strOrganization, strEducation, intCountryOfFirstDegree)
On Error Resume Next
dim intSubscriberId
dim rsPostingTypes
dim intSubscriberIsLive
dim intContactTypeId
intSubscriberIsLive = 1
intContactTypeId = 5
Set rsPostingTypes = GetPostingTypes()
intSubscriberId = VerifySubscribersExistence(strEmail, intSubscriberIsLive)
If intSubscriberId = "" Then
intSubscriberId = AddSubscriber(strFirstName, strLastName, strEmail, strOrganization, intSubscriberIsLive, strRelevantEducation, intFirstDegreeObtainedCountryId, intContactTypeId)
End If
Do While Not rsPostingTypes.Eof
If rsPostingTypes("POSTING_TYPE_USER_CAN_SUBSCRIBE") Then
Call Add_Subscriber_PostingType(rsPostingTypes("POSTING_TYPE_ID"), CInt(intSubscriberId))
End If
rsPostingTypes.MoveNext
Loop
If err.number <> 0 Then
Call ReportError("SubscribeContactUsRequestor", err.number, err.description)
End If
rsPostingTypes.Close
set rsPostingTypes = Nothing
On Error Goto 0
End Sub
Function UserIsSubscribed(intPostingTypeId, intSubscriberId)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_USER_IS_SUBSCRIBED"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("USER_IS_SUBSCRIBED", adInteger, adParamOutput)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
cmd.Parameters.Append cmd.CreateParameter("POSTING_TYPE_ID", adInteger, adParamInput, , intPostingTypeId)
cmd.execute
If err.number <> 0 Then
Call ReportError("VerifySubscribersExistence", err.number, err.description)
End If
UserIsSubscribed = CBool(cmd.Parameters("USER_IS_SUBSCRIBED"))
set cmd = nothing
On Error Goto 0
End Function
Function GetSubscriberInfo(intSubscriberId)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_SUBSCRIBER_INFO"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
Set GetSubscriberInfo = cmd.execute
set cmd = nothing
If err.number <> 0 Then
Call ReportError("GetSubscriberInfo", err.number, err.description)
End If
On Error Goto 0
End Function
Function GetContactTypeList(intContactTypeId)
On Error Resume Next
dim rsContactType
dim strContactTypeOptionList
Set rsContactType = GetContactTypes()
strContactTypeOptionList = ""
Do While Not rsContactType.Eof
strContactTypeOptionList = strContactTypeOptionList & "" & vbCRLF
rsContactType.MoveNext
Loop
rsContactType.Close
Set rsContactType = Nothing
If err.number <> 0 Then
Call ReportError("GetContactTypeList", err.number, err.description)
End If
GetContactTypeList = strContactTypeOptionList
On Error GoTo 0
End Function
Function GetContactTypes()
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_CONTACT_TYPES"
cmd.CommandType = adCmdStoredProc
Set GetContactTypes = cmd.execute
set cmd = nothing
If err.number <> 0 Then
Call ReportError("GetContactTypes", err.number, err.description)
End If
On Error Goto 0
End Function
Function ModifySubscriberUnsubscribe(intSubscriberId, strEmail, strOrganization)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_SET_SUBSCRIBER_UNSUBSCRIBE"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_EMAIL", adVarchar, adParamInput, 150, strEmail)
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_ORGANIZATION", adVarchar, adParamInput, 150, strOrganization)
Set ModifySubscriberUnsubscribe = cmd.execute
set cmd = nothing
If err.number <> 0 Then
Call ReportError("ModifySubscriberUnsubscribe", err.number, err.description)
End If
On Error Goto 0
End Function
Function GetGroupsUserBelongsTo(intSubscriberID, intGroupID)
On Error Resume Next
dim cmd
dim rsBelongsToo
dim strChecked
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_GROUPS_SUBSCRIBER_BELONGS_TO"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("GROUPLOOKUP_SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberID)
cmd.Parameters.Append cmd.CreateParameter("GROUPLOOKUP_GROUP_ID", adInteger, adParamInput, , intGroupID)
Set rsBelongsToo = cmd.execute
if rsBelongsToo.EOF then
strChecked = ""
else
strChecked = "checked"
end if
GetGroupsUserBelongsTo = strChecked
rsBelongsToo.Close
set rsBelongsToo = nothing
set cmd = nothing
If err.number <> 0 Then
Call ReportError("GetGroupsUserBelongsTo", err.number, err.description)
End If
On Error Goto 0
End Function
Function GetGroups(intGroupID)
On Error Resume Next
dim cmd
dim strOldSubGroup
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_GROUPS"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("GROUP_ID", adInteger, adParamInput, , intGroupID)
set GetGroups = cmd.execute
If err.number <> 0 Then
Call ReportError("GetGroups", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Function
Function GetGroupCheckboxes(intSubscriberId2)
On Error Resume Next
dim rsGetGroups
dim rsGetGroups2
dim rsGetGroups3
dim rsGetTop
dim strCheckBoxesOut
dim intChkCounter1
dim intChkCounter2
dim intSubscriberId
dim strChecked
dim strTopChecked
intSubscriberId = intSubscriberId2
intChkCounter1 = 1
strCheckBoxesOut = ""
strTopChecked = GetGroupsUserBelongsTo(intSubscriberId,1)
set rsGetGroups = GetGroups(1)
strCheckBoxesOut = "All Groups "& vbCRLF
Do while not rsGetGroups.EOF
intChkCounter2 = 0
strCheckBoxesOut = strCheckBoxesOut & " "&rsGetGroups("GROUP_NAME")&" "& vbCRLF
set rsGetGroups2 = GetGroups(rsGetGroups("GROUP_ID"))
Do while not rsGetGroups2.EOF
intChkCounter2 = intChkCounter2 + 1
strCheckBoxesOut = strCheckBoxesOut & " "&rsGetGroups2("GROUP_NAME")&" "& vbCRLF
rsGetGroups2.MoveNext
loop
intChkCounter1 = intChkCounter1 +1
rsGetGroups.MoveNext
loop
GetGroupCheckboxes = strCheckBoxesOut
If err.number <> 0 Then
Call ReportError("GetGroupCheckboxes", err.number, err.description)
End If
rsGetGroups.close
set rsGetGroups = nothing
rsGetGroups2.close
set rsGetGroups2 = nothing
On Error Goto 0
End Function
Function GetAllCheckboxes()
On Error Resume Next
dim rsGetGroups
dim rsGetGroups2
dim rsGetGroups3
dim strCheckBoxesOut
dim intChkCounter1
dim intChkCounter2
dim strChecked
intChkCounter1 = 1
strCheckBoxesOut = ""
set rsGetGroups = GetGroups(1)
strCheckBoxesOut = "All Groups "& vbCRLF
Do while not rsGetGroups.EOF
intChkCounter2 = 0
strCheckBoxesOut = strCheckBoxesOut & " "&rsGetGroups("GROUP_NAME")&" "& vbCRLF
set rsGetGroups2 = GetGroups(rsGetGroups("GROUP_ID"))
Do while not rsGetGroups2.EOF
intChkCounter2 = intChkCounter2 + 1
strCheckBoxesOut = strCheckBoxesOut & " "&rsGetGroups2("GROUP_NAME")&" "& vbCRLF
rsGetGroups2.MoveNext
loop
intChkCounter1 = intChkCounter1 +1
rsGetGroups.MoveNext
loop
GetAllCheckboxes = strCheckBoxesOut
If err.number <> 0 Then
Call ReportError("GetAllCheckboxes", err.number, err.description)
End If
rsGetGroups.close
set rsGetGroups = nothing
rsGetGroups2.close
set rsGetGroups2 = nothing
On Error Goto 0
End Function
Function InsertUserGroups(intSubscriberID, intArrayGroupID)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_INSERT_CONTACTS_IN_IDX_GROUP_LOOKUP"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("GROUPLOOKUP_GROUP_ID", adInteger, adParamInput, , intArrayGroupID)
cmd.Parameters.Append cmd.CreateParameter("GROUPLOOKUP_SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberID)
cmd.execute
If err.number <> 0 Then
Call ReportError("InsertUserGroups", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Function
Sub Delete_LookUpSubscriber(intSubscriberId)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_DELETE_IDX_LOOKUPSUBSCRIBER"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("GROUPLOOKUP_SUBSCRIBER_ID", adInteger, adParamInput, , intSubscriberId)
cmd.execute
If err.number <> 0 Then
Call ReportError("Delete_LookUpSubscriber", err.number, err.description)
End If
set cmd = nothing
On Error Goto 0
End Sub
Sub SetSubscribersToActive(strSubscriberList)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_SET_SUBSCRIBERS_TO_ACTIVE"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_LIST", adVarchar, adParamInput, 500, strSubscriberList)
cmd.execute
set cmd = nothing
If err.number <> 0 Then
Call ReportError("SetSubscribersToActive", err.number, err.description)
End If
On Error Goto 0
End Sub
Sub SetSubscribersToInactive(strSubscriberList)
On Error Resume Next
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_SET_SUBSCRIBERS_TO_INACTIVE"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SUBSCRIBER_LIST", adVarchar, adParamInput, 500, strSubscriberList)
cmd.execute
set cmd = nothing
If err.number <> 0 Then
Call ReportError("SetSubscribersToInactive", err.number, err.description)
End If
On Error Goto 0
End Sub
Function ManageSearcheableSubscribers(strSubscriberType, intCurrentPage, intSubsDisplayedPerPage)
dim strSubscriberLinks
dim rsSubscribers
dim intSubscriberCount
dim intSubscriberId
dim strEmail
dim strFirstName
dim strLastName
dim strOrganization
dim intCounter
dim bolInactive
intSubscriberCount = GetSubscriberCount(strSubscriberType)
If intSubscriberCount = 0 Then
Response.Write "
There are currently no " & UCase(Left(strSubscriberType, 1)) & LCase(Mid(strSubscriberType, 2, Len(strSubscriberType)-1)) & " Subscribers.
"
Else
Set rsSubscribers = GetSubscribers(strSubscriberType)
Dim intRowCounter
intRowCounter = 0
strSubscriberLinks = "
" & vbCRLF
End If
If err.number <> 0 Then
Call ReportError("ManageSearcheableSubscribers", err.number, err.description)
End If
intSearcheableSubscriberCount = intCounter
ManageSearcheableSubscribers = strSubscriberLinks
On Error Goto 0
End Function
%>