<%
SUB sendMail( fromWho, toWho, Subject, Body )
' DIM myMail
' SET myMail = Server.CreateObject("CDONTS.Newmail")
' myMail.From = fromWho
' myMail.To = toWho
' myMail.Subject = Subject
' myMail.Body = Body
' myMail.Send
' SET myMail = Nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "relay.keepem.com"
Mailer.FromName = fromWho
Mailer.FromAddress= fromWho
myArray = Split(toWho, ";")
For x = 0 To UBound(myArray)
'response.write myArray(x) & " "
'Response.End
Mailer.AddRecipient myArray(x), myArray(x)
Next
Mailer.Subject = Subject
Mailer.BodyText = Body
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
SET Mailer = Nothing
END SUB
If Request("dowhat") <> "" Then
errorMsg = ""
If Request("FirstName") = "" Or Request("LastName") = "" Or Request("Title") = "" Or Request("Company") = "" Or Request("City") = "" Or Request("State") = "" Or Request("Telephone") = "" Or Request("email") = "" Then
errorMsg = "**** All of the following fields are required."
Else
fromWho = "valueslead@loveitdontleaveit.com"
toWho = "HQ@csibka.com;Ann.Jordan@csibka.com"
Subject = "Nurses - Gifts That Keep On Giving"
Body = ""
Body = Body & "FirstName: " & request.Form("FirstName") &vbCrLf
Body = Body & "LastName: " & request.Form("LastName") &vbCrLf
Body = Body & "Title: " & request.Form("Title") &vbCrLf
Body = Body & "Company: " & request.Form("Company") &vbCrLf
Body = Body & "Address: " & request.Form("Address") &vbCrLf
Body = Body & "City: " & request.Form("City") &vbCrLf
Body = Body & "State: " & request.Form("State") &vbCrLf
Body = Body & "Zip: " & request.Form("Zip") &vbCrLf
Body = Body & "Telephone: " & request.Form("Telephone") &vbCrLf
Body = Body & "Fax: " & request.Form("Fax") &vbCrLf
Body = Body & "Email: " & request.Form("email") &vbCrLf
sendMail fromWho, toWho, Subject, Body
Response.Redirect(request.Form("resulturl"))
End If
End If
%>
Nurses Week
Gifts
That Keep On Giving!
(National Nurses Week)
In order to receive an immediate
copy of the article, please complete the form below.
