Hi
I get this message whenever I click on send in my form mailer. I'm running an ASP form handler.
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'SendMail'
/formhandler.asp, line 51
Here is my code:
<% Option Explicit %>
<% Response.buffer = true %>
<%
Dim frmName, frmSurname, frmEmailAddy
Dim frmPostalAddress, frmCountry, frmOtherCountry
Dim frmTelephone, frmInterestIn, frmNumberPeople
Dim frmDayArrive, frmMonthArrive, frmYearArrive
Dim frmDayDepart, frmMonthDepart, frmYearDepart
Dim frmComments
frmName = Request.Form("Name")
frmSurname = Request.Form("Surname")
frmEmailAddy = Request.Form("Email")
frmPostalAddress = Request.Form("PostalAddres
s")
frmCountry = Request.Form("Country")
frmOtherCountry = Request.Form("OtherCountry
")
frmTelephone = Request.Form("Telephone")
frmInterestIn = Request.Form("InterestIn")
frmNumberPeople = Request.Form("NumberPeople
")
frmDayArrive = Request.Form("DayArrive")
frmMonthArrive = Request.Form("MonthArrive"
)
frmYearArrive = Request.Form("YearArrive")
frmDayDepart = Request.Form("DayDepart")
frmMonthDepart = Request.Form("MonthDepart"
)
frmYearDepart = Request.Form("YearDepart")
frmComments = Request.Form("Comments")
Dim emailBody
emailBody = emailBody & "Name:" & frmName & vbCrLf
emailBody = emailBody & "Surname:" & frmSurname & vbCrLf
emailBody = emailBody & "Email:" & frmEmailAddy & vbCrLf
emailBody = emailBody & vbCrLf
emailBody = emailBody & "PostalAddress:" & frmPostalAddress & vbCrLf
emailBody = emailBody & "Country:" & frmCountry & vbCrLf
emailBody = emailBody & "OtherCountry:" & frmOtherCountry & vbCrLf
emailBody = emailBody & "Telephone:" & frmTelephone & vbCrLf
emailBody = emailBody & "InterestIn:" & frmInterestIn & vbCrLf
emailBody = emailBody & "NumberPeople:" & frmNumberPeople & vbCrLf
emailBody = emailBody & "DayArrive:" & frmDayArrive & vbCrLf
emailBody = emailBody & "MonthArrive:" & frmMonthArrive & vbCrLf
emailBody = emailBody & "YearArrive:" & frmYearArrive & vbCrLf
emailBody = emailBody & "DayDepart:" & frmDayDepart & vbCrLf
emailBody = emailBody & "MonthDepart:" & frmMonthDepart & vbCrLf
emailBody = emailBody & "YearDepart:" & frmYearDepart & vbCrLf
emailBody = emailBody & "Comments:" & frmComments & vbCrLf
'Response.Write("<TEXTAREA
cols=80 rows=60>" & emailBody & "</TEXTAREA>")
'Response.End
SendMail frmEmailAddy, "martiniq@intekom.co.za, leanne@agnet.co.za", emailBody, 1
Sub SendMail(sender, recipient, subject, body, importance)
Response.Clear
Response.Redirect("
http://www.marina-martinique.co.za/thanks.htm")
Dim mail
Set mail = CreateObject("CDONTS.NewMa
il")
mail.MailFormat = 0 ' Mime
mail.From = sender
mail.To = recipient
mail.Subject = subject
mail.Body = body
mail.Importance = importance
mail.Send
Set mail = Nothing
End Sub
%>
I cannot figure this one out. Please help.
SendMail frmEmailAddy, "martiniq@intekom.co.za, leanne@agnet.co.za", emailBody, 1
WITH:
SendMail frmEmailAddy,"martiniq@int
Where subject variables is the subject of the email. The sub routine is not receiving the correct number of parameters becuase you forgot to include the subject when you call the parameter and the subroutine is anticipatign that the subject is being pasted