Thanks for your help guys!
Here is my form:
--------------------------------------------------
<form action="thankyou.asp" method="post" name="feedback_form" id="feedback_form">
<p>
<p class="headingtext">Where Your Opinion Counts </p>
<p class="bodytext">Please complete the form below with any ideas and feedback</p>
<table width="440" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td align="right" class="headingtext">Name</td>
<td width="10" rowspan="3" align="left" valign="top"> </td>
<td width="75">
<input type="text" name="Name" size="20" maxlength="80" />
</td>
<td width="*" rowspan="3" class="tiny"> </td>
</tr>
<tr>
<td align="right" class="headingtext">E-mail address</td>
<td><input type="text" name="Email" size="20" maxlength="80" />
</td>
</tr>
<tr>
<td align="right" valign="top"><div align="left"><span class="headingtext">Your Ideas</span> - <span class="bodytext"><br/>
We want to hear your ideas for the types of events and activities you would like to see take place:</span></div></td>
<td>
<textarea name="Ideas" cols="40" rows="4"></textarea>
</td>
</tr>
<tr>
<td align="right" valign="top"><div align="left"><span class="headingtext">Your Feedback</span> - <span class="bodytext"><br/>
We would like to hear your feedback (good and bad)</span></span>: </div></td>
<td align="left" valign="top"> </td>
<td><textarea name="Feedback" cols="40" rows="4"></textarea></td>
<td> </td>
</tr>
</table>
<br/>
<center>
<input type="submit" value="Send" />
<input type="reset" value="Clear" />
</center><br/>
</form>
--------------------------------------------------
And here a bit of code, have been playing to CDO and CDONTS. I am running XP but I don't know what my users will have!
This code give me this error:
ActiveX component can't create object: 'CDO.Message'
--------------------------------------------------
dim formElements
formElements = ""
formElements = formElements & "Name: " & Request("Name") & "" & vbcrlf
formElements = formElements & "Description: " & Request("Email") & "" & vbcrlf
formElements = formElements & "Web Address: " & Request("Ideas") & "" & vbcrlf
formElements = formElements & "Return Link: " & Request("Feedback") & ""
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Feedback "
objMessage.From = "my@email.com"
objMessage.To = "my@email.com"
objMessage.TextBody = "This is a my form element:" & formElements
objMessage.Send
---------------------------------------------
I also tried this but wasn't sure what to put in for mailserver:
----------------------------------------------------
sch = "
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "<enter_mail.server_here>"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "from@me.com"
cdoMessage.To = "to@me.com"
cdoMessage.Subject = "Sample CDONTS NewMail"
cdoMessage.TextBody = "This is a test for CDONTS message"
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
--------------------------------------------------
I also tried example from
And finally this,
--------------------------------------------------
<%
Dim MyBody
Dim MyCDONTSMail
%>
<%
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "my@email.com"
MyCDONTSMail.To= "my@@email.com"
MyCDONTSMail.Subject="This is a Test"
MyBody = "results from page" & vbCrLf
MyBody = MyBody & "We appreciate your business" & vbCrLf
MyBody = MyBody & "Your stuff will arrive within 7 business days"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
--------------------------------------------------
Any ideas or am I totally on the wrong track? I tried the last few just to get an email through but I got nothing.
Katherine