sending form data via email

[AS Dawg]

Made a form with two fields and a submit button
field name is "subline"
textarea name is "bodynote"
But it never sends..any suggestions?? I'm stumped. Do not get any errors,
redirects me to my done page..just never get the mail????


<%
If (cStr(Request("Submit")) <> "") Then

Dim usxCDO
Set usxCDO = Server.CreateObject("CDONTS.NewMail")
usxCDO.From = "webmaster@123456.com" <-valid email
usxCDO.To = rsmail.Fields.Item("ContactEmail").Value <- this is coming for
the DB
usxCDO.Subject = cStr(Request("subline"))
usxCDO.Body = cStr(Request("bodynote"))
usxCDO.Send
Set usxCDO = Nothing
Response.Redirect "/done.asp"
End If
%>

[Billium99]

Are you sure you have a CDONTS mail service on the server machine? If it's Win
XP, it's most likely CDOSYS, which has a different syntax, but even with the
correct service type, there may be some additional configuration required here
- quite often the mail server will require the mailbox owner's user info
including password - who owns the email address that replaces
[email]webmaster@123456.com[/email]? Bill

[AS Dawg]

It works fine with other extensions same type works great,same server(CDONTS
installed), I hand coded a the email for the "To" to be pulled from the DB
and I set the recordset correctly. When it pulls my email (first record) it
works but not anyone else's. (have several bogus members all have good email
addresses) got me scratching my head!!!

I can only guess it's a coding issue I am overlooking :(


"Billium99" <webforumsuser@macromedia.com> wrote in message
news:d2rsm7$jot$1@forums.macromedia.com...

> Are you sure you have a CDONTS mail service on the server machine? If it's
> Win
> XP, it's most likely CDOSYS, which has a different syntax, but even with
> the
> correct service type, there may be some additional configuration required
> here
> - quite often the mail server will require the mailbox owner's user info
> including password - who owns the email address that replaces
> [email]webmaster@123456.com[/email]? Bill
>

[Baxter]

Hi!
Copy this put it in a new page upload it to your sever and see if it works
then you can see what you need to do.
<%
If Request.Form.Count = 0 Then
%> <H1>CDONTS Test Submission Form</H1>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>To:&nbsp;</td>
<td>
<input type="TEXT" name="TO" size="30">
</td>
</tr>
<tr>
<td>From:&nbsp;</td>
<td>
<input type="TEXT" name="FROM" size="30" value="user@guesswho.net">
</td>
</tr>
<tr>
<td>Subject:&nbsp;</td>
<td>
<input type="TEXT" name="SUBJECT" size="40">
</td>
</tr>
<tr>
<td valign="TOP">Body:&nbsp;</td>
<td>
<textarea name="BODY" rows="5" cols="40"></textarea>
</td>
</tr>
<tr>
<td>&nbsp;</td>
<td>
<input type="SUBMIT" value="Send Message" name="SUBMIT">
&nbsp;
</table>
<%
Else
Dim objCDO
On Error Resume Next
Set objCDO = Server.CreateObject("CDONTS.NewMail")
If Err.Number = 0 Then
objCDO.To = Request.Form("TO")
objCDO.From = Request.Form("FROM")
objCDO.Subject = Request.Form("SUBJECT")
objCDO.Body = Request.Form("BODY")
objCDO.AttachFile( Server.MapPath(".\TestFile.txt") )
objCDO.Send
Set objCDO = Nothing
%><H1>Message Sent</H1>
<B>To: </B> <% = Server.HTMLEncode(Request.Form("TO")) %><BR>
<B>From: </B> <% = Server.HTMLEncode(Request.Form("FROM")) %><BR>
<B>Subject: </B> <% = Server.HTMLEncode(Request.Form("SUBJECT"))
%><BR>
<HR> <% = Server.HTMLEncode(Request.Form("BODY")) %><HR><BR>
<A HREF="XcCDONTS.asp">Send another message</A><P>
<%
Else
Response.Write "<H1>Attention</H1>The CDONTS object could not be
created."
End If
End If
%>
<FONT SIZE="1"><EM>Transmitted: <% = Now %><BR></EM></FONT>
DAve

"AS Dawg" <asdawgNOTHERE@tampabay.rr.com> wrote in message
news:d2rkp7$6vt$1@forums.macromedia.com...

> Made a form with two fields and a submit button
> field name is "subline"
> textarea name is "bodynote"
> But it never sends..any suggestions?? I'm stumped. Do not get any errors,
> redirects me to my done page..just never get the mail????
>
>
> <%
> If (cStr(Request("Submit")) <> "") Then
>
> Dim usxCDO
> Set usxCDO = Server.CreateObject("CDONTS.NewMail")
> usxCDO.From = "webmaster@123456.com" <-valid email
> usxCDO.To = rsmail.Fields.Item("ContactEmail").Value <- this is coming

for

> the DB
> usxCDO.Subject = cStr(Request("subline"))
> usxCDO.Body = cStr(Request("bodynote"))
> usxCDO.Send
> Set usxCDO = Nothing
> Response.Redirect "/done.asp"
> End If
> %>
>
>