Form to Mail ASP

[yoitsike]

Hi,

Im having a little difficulty with a E-mail form in ASP. It sends to my E-mail just fine but the responses when filling out the form do not appear in the e-mail, the e-mail is just blank. Can somebody help me out with the coding please?

This coding is on the actual asp form page..


<FORM ACTION="formtomail.asp" METHOD="post">
<p align="center">
<span class="style12">Name : </span>
<input type="text" size="51" maxlength="256" name="Name" style="width: 264px"><p align="center">
<span class="style12">E-mail : </span>
<input type="text" size="48" maxlength="256" name="Email" style="width: 266px"><p align="center">
<INPUT TYPE=submit value="Submit">
</FORM>


This is the page the form sends all the infomation to..


<%
request.form("Name")
request.form("Email")

Const cdoBasic = 1 'Use basic (clear-text) authentication.
Const cdoSendUsingPort = 2
'cdosys related
Dim iMsg
Dim iConf
Dim Flds
'mail related
Dim strMsg
Dim strTo
Dim strCC
Dim strFrom
Dim strSubject
Dim strTextBody


'==================begin your configuration=============================
'you must have a username and pass word or you will not be able to send
'
Dim sendusername : sendusername = "cynthia@mycheaptravel.com"
Dim userpassword : userpassword = ""
Dim smtpserver : smtpserver = "mail93.opentransfer.com"
'end your configuration

'===================begin set your info here============================
'set your TO, CC, From, Subject and body here
'
strTo = "cynthia@mycheaptravel.com"
strCC = ""
strFrom = "cynthia@mycheaptravel.com"
strSubject = "My Cheap Travel Quotes"
strTextBody = ""
'end set your info here


'Create message and configuration objects
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'Apply settings to the configuration object
With Flds
' Specify the authentication mechanism to basic (clear-text) authentication.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
' The username for authenticating to an SMTP server
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sendusername
' The password used to authenticate to an SMTP server
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = userpassword
' Port
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
'Specify mail server
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
'Specify the timeout in seconds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
' The port on which the SMTP service specified by the smtpserver field is listening for connections (typically 25)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Use SSL for the connection (False or True)
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Update
End With

'Apply the settings to the message object and send it
With iMsg
Set.Configuration = iConf
.To = strTo
.From = strFrom
If strCC <> "" Then
.CC = strCC
End If
.Subject = strSubject
.TextBody = strTextBody
'Send message
.Send
End With
' cleanup mail objects
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>


Can somebody please let me know why it is not sending the information that is posted on the form to my e-mail is something not coded properly? Thanks in advance!

[Dee_Veloper]

this is not valid:

request.form("Name")
request.form("Email")

They must be assigned to variables

you also do not have any value assigned to the variable "strTextBody" so the email content is blank