Hi,

I have repeatedly been able to make the "Insert record and Email form" work on some of my clients web sites, the problem is that my new clients server does not have CDONTS, they use ASPMail.

I can make a simple ASPMail form work, but when I try to adapt the ASPMail code to the form that should submit the infromation to the database and then send out the e-mail, only the database portion works, the e-mail is never sent.

Help.....thanks, Mitch

This is the code from the form page with ASPMail:

_____________________________________________________________

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/wwwc.asp" -->
<%
If (CStr(Request("MM_insert") <> "" Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer"
Mailer.FromName = "Walla Walla Wine Club Join the Club"
Mailer.FromAddress = " "
' localhost is required by the hosting company, it works on the simple form
Mailer.RemoteHost = "localhost"
Mailer.AddRecipient "Join the Club", " "
Mailer.Subject = "I want to JOIN THE CLUB!"
Mailer.BodyText = "This is the subject" & Request.Form ("varSubject"
Mailer.BodyText = "Billing Address Name: " & "  " & Request("billing_address_name" & "<br>"
Mailer.BodyText = "Billing Address: " & "  " & Request("billing_address" & "<br>"
Mailer.BodyText = "Billing City: " & "  " & Request("billing_city" & "<br>"
Mailer.BodyText = "Billing State: " & "  " & Request("billing_state" & "<br>"
Mailer.BodyText = "Billing Zip: " & "  " & Request("billing_zip" & "<br>"
Mailer.BodyText = "Billing Dayphone: " & "  " & Request("billing_dayphone" & "<br>" & "<br>"
Mailer.BodyText = "Billing Email: " & "<br>" & "<br>" & Request("billing_email" & "<br>" & "<br>"
Mailer.BodyText = "Ship to Address Name: " & "<br>" & "<br>" & Request("ship_to_address_name" & "<br>" & "<br>"
Mailer.BodyText = "Ship to Address: " & "  " & Request("ship_to_address" & "<br>"
Mailer.BodyText = "Ship to City: " & "  " & Request("ship_to_city" & "<br>"
Mailer.BodyText = "Ship to State: " & "  " & Request("ship_to_state" & "<br>"
Mailer.BodyText = "Ship to Zip: " & "  " & Request("ship_to_zip" & "<br>"
Mailer.BodyText = "Ship to Dayphone: " & "  " & Request("ship_to_dayphone" & "<br>"
Mailer.BodyText = "Ship to Email: " & "  " & Request("ship_to_email" & "<br>" & "<br>"
Mailer.BodyText = "Gift Membership: " & "<br>" & "<br>" & Request("gift_membership" & "<br>" & "<br>"
Mailer.BodyText = "Gift Message: " & "<br>" & "<br>" & Request("gift_message" & "<br>" & "<br>"
Mailer.BodyText = "Bottles per Shipment: " & "  " & Request("bottles_per_shipment" & "<br>"
Mailer.BodyText = "How Many Shipments: " & "  " & Request("how_many_shipments" & "<br>"
Mailer.BodyText = "Ship to State: " & "  " & Request("ship_to_state" & "<br>"
Mailer.BodyText = "Ship to Zip: " & "  " & Request("ship_to_zip" & "<br>"
end if
%>