email sending form....help

•

What is DaniWeb IT Discussion Community?

You're currently browsing the ASP section within the Web Development category of DaniWeb, a massive community of 375,198 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,036 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our ASP advertiser: Lunarpages ASP Web Hosting

Thread Tools Display Modes

Views: 607 | Replies: 2

•

Join Date: Sep 2007

Posts: 15

Reputation: cutebab is an unknown quantity at this point

Rep Power: 1

Solved Threads: 0

cutebab

Offline

Newbie Poster

email sending form....help

Apr 1st, 2008

hi ,

I hav developed a contact us form for a site in asp...
but when i press submit button its not sending mail......
iam using windows server with XP OS................

I hav pasted the code below.......Plz go thru it ......n try it so that it is workin........
if not plz provide me a workin model ..................
Plz.....help me out...........

regards,
cutebab

 Help with Code Tags 
 html Syntax (Toggle Plain Text) 
<html>
<head>
<title>Feedback Form</title>
</head>
<body bgcolor="#FFFFFF">
<%
If Request.Form="" Then %>
<form method="post" action="file:///C|/DOCUME%7E1/MRC%7E1.SAD/LOCALS%7E1/Temp/Temporary%20Directory%202%20for%20feedback.zip/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>Comments</td>
<td> 
<textarea name="txtFeedback" cols="40" rows="7"></textarea>
</td>
</tr>
<tr> 
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr> 
<td>&nbsp;</td>
<td> 
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
<br>
<% 
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 & "<font color='#00000' size='2' face='Verdana'>"
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 & "</font>"
sEmailText = sEmailText & "</body>"
sEmailText = sEmailText & "</html>"
 
 
'create the mail object 
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From=sEmail 'This is the email of the feedback sender
NewMailObj.To = "cjk@yahoo.com" 'change to your address
NewMailObj.Subject = "Feedback" 
NewMailObj.Body = sEmailText
'you need to add these 2 lines for the mail to be sent in HTML format
'remove them and the email will be sent in Text format
NewMailObj.BodyFormat = 0 
NewMailObj.MailFormat = 0 
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>
<html>
<head>
<title>Feedback Form</title>
</head>
<body bgcolor="#FFFFFF">
<%
If Request.Form="" Then %>
<form method="post" action="file:///C|/DOCUME%7E1/MRC%7E1.SAD/LOCALS%7E1/Temp/Temporary%20Directory%202%20for%20feedback.zip/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>Comments</td>
<td> 
<textarea name="txtFeedback" cols="40" rows="7"></textarea>
</td>
</tr>
<tr> 
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr> 
<td>&nbsp;</td>
<td> 
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
<br>
<% 
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 & "<font color='#00000' size='2' face='Verdana'>"
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 & "</font>"
sEmailText = sEmailText & "</body>"
sEmailText = sEmailText & "</html>"


'create the mail object 
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From=sEmail 'This is the email of the feedback sender
NewMailObj.To = "cjk@yahoo.com" 'change to your address
NewMailObj.Subject = "Feedback" 
NewMailObj.Body = sEmailText
'you need to add these 2 lines for the mail to be sent in HTML format
'remove them and the email will be sent in Text format
NewMailObj.BodyFormat = 0 
NewMailObj.MailFormat = 0 
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>

Last edited by peter_budo : Apr 1st, 2008 at 7:26 am. Reason: Keep It Organized - please use [code] tags

•