The following script works perfectly for what i wish it to do except it only works with one or two email address’s. Where the objCDOMail.To = "[email protected]" is located I cannot get it to send to any email address but my own home email. The site is Thisislondonclub.com and the email is [email protected]. Is this a problem?
Dim strTo, strWho, strWhen, strHowMany, strEmail, strPhone
Dim objCDOMail 'The CDO object
'###############################################################
strWho=request.form(“Who”)
strPhone=request.form(“Phone”)
strWhen=request.form(“when”)
strHowmany=request.form(“howmany”)
strEmail=request.form(“Email”)
strMessage=“This message was sent to you from THIS IS LONDON - RSVP Form. The originating email address has not been verified” & CHR(13) & “--------------------------------------------” & CHR(13) & "Name: "& strWho & CHR(13) & "Phone#: " & strPhone & CHR(13) & “Date Requested:” & strWhen & CHR(13) & “Number of People:” & strHowmany & CHR(13) & “Email:” & strEmail
Set objCDOMail = Server.CreateObject(“CDONTS.NewMail”)
'###############################################################
objCDOMail.From = “RSVPForm”
objCDOMail.To = "[email protected]"
objCDOMail.Subject = strSubject
objCDOMail.Body = strmessage
objCDOMail.Send
Set objCDOMail = Nothing