<%@ Language=VBScript %>
<%
Response.Buffer=true
'Pull variables from previous form submission
vScope=CStr(Request.Form("Scope"))
vSender=CStr(Request.Form("Sender"))
vMessage=CStr(Request.Form("Message"))
'Parse the message so that it will present properly in HTML
'vMessage=""
'For x=1 to Len(str)
' vMessage = vMessage & Right(Left(str,x),1)
' If Right(vMessage,4)=Chr(13) & chr(10)& Chr(13) & chr(10)Then
' vMessage = Left(vMessage, Len(VMessage)-4)
' vMessage = vMessage & Chr(13) & chr(10)& "
" & chr(13)& Chr(10)
' End If
'Next
' Build a recordset of customers based on the scope value
Dim LaunConn
Dim CookCartID
Dim objFSO
Set LaunConn=Server.CreateObject("ADODB.Connection")
LaunConn.Open "DSN=LaundryCarts;"
Select Case vScope
Case "ALL"
strSQL = "SELECT * FROM Customer"
Set RsCust = LaunConn.Execute(strSQL)
RsCust.MoveFirst
Case "CO"
strSQL = "SELECT Email, BFirstName, BLastName FROM Customer WHERE SecLvl <=2"
Set RsCust = LaunConn.Execute(strSQL)
RsCust.MoveFirst
Case "ADMN"
strSQL = "SELECT Email, BFirstName, BLastName FROM Customer WHERE SecLvl >=3"
Set RsCust = LaunConn.Execute(strSQL)
RsCust.MoveFirst
End Select
%>