<%'Include Data Connection%>
<%'Include ADO constants include file for VBScript%>
<%
'open data connection
OpenConn()
%>
<%'Include Utility Scripts%>
<%
Function GetAllSelectedUsers(intGroupID)
dim cmd
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_SUBSCRIBERS_SELECTEDGROUP"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("GROUP_ID", adInteger, adParamInput, , CInt(intSubscriberId))
set GetAllSelectedUsers = cmd.execute
'if an error has occured report it
If err.number <> 0 Then
Call ReportError("GetAllSelectedUsers", err.number, err.description)
End If
'release cmd object from memory
set cmd = nothing
On Error Goto 0
End Function
dim intSubscriberId
intSubscriberId = 10
dim cmd
dim getIt
dim GetNonSelectedSubscribers
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "SP_GET_SUBSCRIBERS_NONSELECTEDGROUP"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("GROUP_ID", adInteger, adParamInput, , CInt(intSubscriberId))
On Error Resume Next
Function GetAllSelectedUsersOptions(intSubscriberId)
dim rsOptions
dim strAllSelectedOptions
dim intIDpassed
intIDpassed = intSubscriberId
set rsOptions = GetAllSelectedUsers(intIDpassed)
strAllSelectedOptions = ""
If Not rsOptions.EOF Then
'loop through the rsOptions recordset and concatenate the option list string
Do While Not rsOptions.Eof
strAllSelectedOptions = strAllSelectedOptions & "" & vbCRLF
rsOptions.MoveNext
Loop
End If
'if an error has occured report it
If err.number <> 0 Then
Call ReportError("GetAllSelectedUsersOptions", err.number, err.description)
End If
'release the recordset from memory
rsOptions.Close
set rsOptions = Nothing
'return the option list string
GetAllSelectedUsersOptions = strAllSelectedOptions
end function
%>
<%response.write GetAllSelectedUsersOptions(10) &"good"%>