<%@ LANGUAGE="VBSCRIPT" %>
<!-- remove this comment and end comment below before using
<html>
<head>
<title>Simple Form E-mail Component for ASP</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Form E-mail with ASP<br></h1>
<form method="POST" action="SENDFORM.asp">
<p>From: <input type="text" name="From" size="40"><br>
Email To: <input type="text" name="EmailTo" size="38"><br>
Subject: <input type="text" name="Subject" size="55"></p>
<p>Message<br>
<textarea rows="6" name="Message" cols="55"></TEXTAREA><P>
<p>Other: <input type="text" name="AnyFieldNameYouWant" size="49"></p>
<p><input type="submit" value="Send Form" name="Submit"><input type="reset"
value="Reset" name="Reset"></p>
</form>
<%
'************************************************* ***********
' SENDFORM.ASP -- Simple Form E-mail Component for ASP
' Created 7/31/98
' by Valentin Frixione
' e-mail: vfrixion@ix.netcom.com
' -- Must have Microsoft Windows NT 4 Server
' -- running Option Pack 4, with IIS4 & simple SMTP server
'************************************************* ***********
If Request.Form("Submit")= "Send Form" then
Set objSend = Server.CreateObject("CDONTS.Newmail")
objSend.From = Request ("From")
objSend.To = Request ("EmailTo")
objSend.Subject = Request ("Subject")
'--------------------------------------------------
' Putting the Body of the e-mail together...
'--------------------------------------------------
strBodyHeader= "This form was sent via e-mail on " _
& Now & ". " & "<P>"
'---------------------------------------------------------------'Collecting the fields from the HTML Form
'--------------------------------------------------------------
strBody =""
For each item in Request.Form
if item <> "Submit" then
strLineItem = item &" : " & _
Request.Form(item) & "<BR>"
strBody = strBody & strLineItem
end if
Next
strBody = strBodyHeader & strBody
objSend.Body = strBody
'--------------------------------------------------
'Sending the Form
'--------------------------------------------------
objSend.Send
If err.number = 0 then
'OK?
Response.Write "<p><strong>"
Response.Write "Your message was sent. "
response.write "It was:</strong><br><P>" & strBody
else
'Not OK!
Response.Write "<p><strong>A problem was detected, please "
Response.Write "contact the Webmaster with the following "
Response.Write "error description.</strong><br>"
Response.Write "Error: " & objSend.Response
End if
set objSend = Nothing
End If
%>
remove end comment and comment on top before using
-->
</BODY>
</HTML>
نوشته شده توسط Reza Safa
پاسخ با نقل قول
