jayjay66
Technical User
- Oct 31, 2005
- 114
Hi,
I really need help here because I have no clue why it's not working. It technically should work and I don't really get an error messages. This is a simple "feedback form" where the user puts his comments and clicks on "Submit" & the results are sent to my email address. The problem seems that I don't get the email that's sent. I don't get any errors either. Can somebody please help me with this simple problem. Here is the code:
<html>
<head>
<title>Feedback Form</title>
</head>
<body>
<%
'If the form has not been submitted execute the following code
If Request.Form="" Then %>
<form method="post" action="feedback.asp" name="form1">
<div align="center">Send us your Feedback<br>
<br>
</div>
<div align="center">
<table width="75%" border="0">
<tr>
<td>name</td>
<td>
<input type="text" name="txtName">
</td>
</tr>
<tr>
<td>email</td>
<td>
<input type="text" name="txtEmail">
</td>
</tr>
<tr>
<td>comment</td>
<td>
<textarea name="txtFeedback" cols="40" rows="7"></textarea>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
<br>
<%
'If the form has been submitted execute the following code
Else
'receive the form values
Dim sName, sEmail, sFeedback
sName=Request.Form("txtName")
sEmail=Request.Form("txtEmail")
sFeedback=Request.Form("txtFeedback")
' create the HTML formatted email text
Dim sEmailText
sEmailText = sEmailText & "<html>"
sEmailText = sEmailText & "<head>"
sEmailText = sEmailText & "<title>HTML Email</title>"
sEmailText = sEmailText & "</head>"
sEmailText = sEmailText & "<body>"
sEmailText = sEmailText & "Feedback message from: " & sName & "<br>"
sEmailText = sEmailText & "Message:" & sFeedback & "<br>"
sEmailText = sEmailText & "Date & Time:" & Now() & "<br>"
sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR")
sEmailText = sEmailText & "</body>"
sEmailText = sEmailText & "</html>"
'create the mail object
Set NewMailObj=CreateObject("CDO.Message")
NewMailObj.From=sEmail 'This is the email of the feedback sender
NewMailObj.To = "my-email-address@mydomain.com" 'change to my address
NewMailObj.Subject = "Feedback"
NewMailObj.TextBody = sEmailText
NewMailObj.Send
Set NewMailObj=Nothing
Response.write "<div align='center'>Thank you for sending your feedback.<br>"
Response.write "We will get back to you if necessary.</div>"
End If
%>
</body>
</html>
Many thanks. I'm sure I'm overlooking something.
Thanks,
JJ
I really need help here because I have no clue why it's not working. It technically should work and I don't really get an error messages. This is a simple "feedback form" where the user puts his comments and clicks on "Submit" & the results are sent to my email address. The problem seems that I don't get the email that's sent. I don't get any errors either. Can somebody please help me with this simple problem. Here is the code:
<html>
<head>
<title>Feedback Form</title>
</head>
<body>
<%
'If the form has not been submitted execute the following code
If Request.Form="" Then %>
<form method="post" action="feedback.asp" name="form1">
<div align="center">Send us your Feedback<br>
<br>
</div>
<div align="center">
<table width="75%" border="0">
<tr>
<td>name</td>
<td>
<input type="text" name="txtName">
</td>
</tr>
<tr>
<td>email</td>
<td>
<input type="text" name="txtEmail">
</td>
</tr>
<tr>
<td>comment</td>
<td>
<textarea name="txtFeedback" cols="40" rows="7"></textarea>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
<br>
<%
'If the form has been submitted execute the following code
Else
'receive the form values
Dim sName, sEmail, sFeedback
sName=Request.Form("txtName")
sEmail=Request.Form("txtEmail")
sFeedback=Request.Form("txtFeedback")
' create the HTML formatted email text
Dim sEmailText
sEmailText = sEmailText & "<html>"
sEmailText = sEmailText & "<head>"
sEmailText = sEmailText & "<title>HTML Email</title>"
sEmailText = sEmailText & "</head>"
sEmailText = sEmailText & "<body>"
sEmailText = sEmailText & "Feedback message from: " & sName & "<br>"
sEmailText = sEmailText & "Message:" & sFeedback & "<br>"
sEmailText = sEmailText & "Date & Time:" & Now() & "<br>"
sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR")
sEmailText = sEmailText & "</body>"
sEmailText = sEmailText & "</html>"
'create the mail object
Set NewMailObj=CreateObject("CDO.Message")
NewMailObj.From=sEmail 'This is the email of the feedback sender
NewMailObj.To = "my-email-address@mydomain.com" 'change to my address
NewMailObj.Subject = "Feedback"
NewMailObj.TextBody = sEmailText
NewMailObj.Send
Set NewMailObj=Nothing
Response.write "<div align='center'>Thank you for sending your feedback.<br>"
Response.write "We will get back to you if necessary.</div>"
End If
%>
</body>
</html>
Many thanks. I'm sure I'm overlooking something.
Thanks,
JJ