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

<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>

Tnx for editing the code........

hav u made any changes in the code n tested it whether it works..............
i hav tried it in my server n its not workin..............
is this code use Smtp mail server...........
plz reply...............

your form action value is wrong.

you can just set action ="" in form tag
i hope that will solve this issue

This article has been dead for over six months. Start a new discussion instead.