آقا اين لينكش:
http://tonekaweb.com\contact.html
اينم سورس صفحه !
بگو مشكل از كجاست كه خيلي منو اذيت كرده!
[align=left:100d96e154]<%@ language=vbscript %>
<%
'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
Response.Buffer = True
'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
'----------------- Place your e-mail address in the following sting ----------------------------------
strMyEmailAddress = "
[email protected]"
'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------
strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail
'----------- Place Blind Copy e-mail address's in the following sting, separated by ; --------------
strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail
'-----------------------------------------------------------------------------------------------------
'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")
'Initialse strBody string with the body of the e-mail
strBody = "<h2>E-mail sent from form on Web Site</h2>"
strBody = strBody & "<br>
Name: " & Request.Form("firstName") & " " & Request.Form("lastName")
strBody = strBody & "<br><br>
Address: -"
If (Request.Form("street1")) > "" Then
strBody = strBody & "<br> " & Request.Form("street1")
End If
strBody = strBody & "<br><br>
Telephone: " & Request.Form("tel")
strBody = strBody & "<br>
E-mail: " & strReturnEmailAddress
strBody = strBody & "<br><br>
Enquiry: - <br>" & Replace(Request.Form("enquiry"), vbCrLf, "<br>")
'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
'Set the return e-mail address to your own
strReturnEmailAddress = strMyEmailAddress
End If
'Send the e-mail
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">"
'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress
'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress
'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress
'Set the subject of the e-mail
objCDOMail.Subject = "Nazar"
'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0
'Set the main body of the e-mail
objCDOMail.Body = strBody
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Language" content="fa">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Contact Us</title>
</head>
<noframes>
<body leftmargin="0" topmargin="0" style="text-align: right">
</noframes>
<p>&nbsp;</p>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: dotted; border-width: 1" bordercolor="#111111" width="70%">
<tr>
<td width="100%"><span lang="en-us">&nbsp;</span><p>&nbsp;</p>
<table width="517" border="0" align="center" cellpadding="0" cellspacing="0" dir="rtl">
<tr>
<td height="2" dir="rtl" width="516">
<p dir="rtl" align="center">
<font size="2" face="Tahoma">
لطفا <font color="#0000ff">نظرات</font><span lang="en-us"> </span>و<span lang="en-us">
</span> <font color="#0000ff">
پيشنهادات </font>خود را&nbsp; <span lang="fa">برای ما ارسال نمایید.</span></font><font face="Tahoma"></dd></font></td>
</tr>
</table>
<p dir="rtl">
<br>
</p>
<table width="479" border="0" align="center" cellpadding="0" cellspacing="0" dir="rtl">
<tr>
<td align="center" dir="rtl" width="478">
<p dir="rtl"><font face="Tahoma" style="font-size: 14pt">برای ارسال فرم متشکریم. <br>
</font>
</td>
</tr>
</table>
<p dir="rtl">&nbsp;</p>
<p dir="rtl">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>[/align:100d96e154]
:
