CDONTS Form Mail question - help needed

Question

I have a form on my asp page called MyMail.asp. The form is
linked to cdonts.asp_form.asp which sends an email of filled in
text boxes and comboboxes to my email address.
It works fine when all the fields (eight of them) are filled
in, but doesnt send the email if any of the textboxes are left
blank. How can I make it send the email if some of the textboxes
are blank? I have downloaded Yaromat, but it only seems to make
fields become "required". I want to be able to send the email with
say 3 of the eight fields filled out - ie not all of them are
compulsary.
Regards
Billy

Answer 1

Here is the code -
Firstly the form itself (mymail.asp) -
<form action="/cdonts_form.asp" method="post"
name="MyForm" id="MyForm">
<table width="200" border="1" align="center"
bordercolor="#999999" bgcolor="#CCCCCC">
<tr>
<td>Title</td>
<td><select name="MyTitle" id="MyTitle">
<option value="Mr">Mr</option>
<option value="Mrs">Mrs</option>
<option value="Miss">Miss</option>
<option value="Ms">Ms</option>
<option value="Dr">Dr</option>
<option value="Please Select" selected>Please
Select</option>
</select></td>
</tr>
<tr>
<td>First Name </td>
<td><input name="firstname" type="text"
id="firstname2" size="30"></td>
</tr>
<tr>
<td>Last Name </td>
<td><input name="lastname" type="text"
id="lastname2" size="30"></td>
</tr>
<tr>
<td valign="top">Address</td>
<td><textarea name="MyAddress" cols="28" rows="6"
id="MyAddress"></textarea></td>
</tr>
<tr>
<td>Email Address </td>
<td><input name="email" type="text" id="email3"
size="30"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td>Telephone</td>
<td><input name="MyTelephone" type="text"
id="MyTelephone"></td>
</tr>
<tr>
<td>Mobile Phone </td>
<td><input name="MyMobile" type="text"
id="MyMobile"></td>
</tr>
<tr>
<td>Where did you hear about us?</td>
<td>red
<input name="colour1" type="checkbox" id="colour12"
value="red">
blue
<input name="colour2" type="checkbox" id="colour22"
value="blue">
green
<input name="colour3" type="checkbox" id="colour32"
value="green"></td>
</tr>
<tr>
<td valign="top"><p>Enquiry /
Comments</p></td>
<td><textarea name="comments" cols="28" rows="6"
wrap="VIRTUAL" id="textarea"></textarea></td>
</tr>
<tr>
<td> </td>
<td><select name="test" id="select">
<option value="test1">test1</option>
<option value="test2">test2</option>
<option value="test3">test3</option>
</select></td>
</tr>
<tr>
<td> </td>
<td><input name="send" type="submit" id="send"
value="Submit Form"></td>
</tr>
</table>
</form>
Next the code from the cdonts_form.asp page (the page which
will send the email) -
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim MyMail
Dim MyBody
Dim MyEmail
Dim MyFirstname
Dim MyLastname
Dim MyColour1
Dim MyColour2
Dim MyColour3
Dim MyComments
Dim MyTest
Dim MyTitle
Dim MyAddress
Dim MyTelephone
Dim MyMobile
MyEmail = Request.Form("email")
MyFirstname = Request.Form("firstname")
MyLastname = Request.Form("lastname")
MyColour1 = Request.Form("colour1")
MyColour2 = Request.Form("colour2")
MyColour3 = Request.Form("colour3")
MyComments = Request.Form("comments")
MyTest = Request.Form("test")
MyTitle = Request.Form("MyTitle")
MyAddress = Request.Form("MyAddress")
MyTelephone = Request.Form("MyTelephone")
MyMobile = Request.Form("MyMobile")
MyBody = "First Name: "& MyFirstName & vbcrlf
MyBody = MyBody & "Last Name: "& MyLastName &
vbcrlf & vbcrlf
MyBody = MyBody & "Email: "& MyEmail & vbcrlf
MyBody = MyBody & "Colour 1: "& MyColour1 &
vbcrlf
MyBody = MyBody & "Colour 2: "& MyColour2 &
vbcrlf
MyBody = MyBody & "Colour 3: "& MyColour3 &
vbcrlf & vbcrlf
MyBody = MyBody & "Comments:" & vbcrlf
MyBody = MyBody & MyComments & vbcrlf & vbcrlf
'vbcrlf - Visual Basic Carriage Return Line Feed means leave a
space!
MyBody = MyBody & "Test:"& vbcrlf
MyBody = MyBody & MyTest & vbcrlf & vbcrlf
MyBody = MyBody & "Title: "& MyTitle & vbcrlf
MyBody = MyBody & "Address: "& MyAddress & vbcrlf
MyBody = MyBody & "Telephone: "& MyTelephone &
vbcrlf
MyBody = MyBody & "Mobile Number: "& MyMobile &
Vbcrlf
Set MyMail = Server.CreateObject ("CDONTS.NewMail")
MyMail.From = MyEmail
MyMail.To = "t**********@*******.com"
MyMail.Subject = "Enquiry for Academy Of Counsellors - sent
from website"
MyMail.Body = MyBody
MyMail.Send
set MyMail=nothing
Response.Write("Thankyou, Your e-mail has been sent")
%>
Hope this is helpful for you!!
Regards
Billy