<form action=result.asp method=post>
Name : <input type=text name=name> <br>
Addrees : <input type=text name=address> <br>
E-mail : <input type=text name=email> <br>
<input type=submit value=submit> <br>
</form>
<%
'inja tanzimate database ro set mikoni ke man access ro entekhab kardam
accessdb=Server.MapPath("db1.mdb")
cn = "Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & accessdb
set conn = Server.CreateObject("ADODB.Connection")
conn.Open(cn)
'inja etelaat varede database mishe
sql = "INSERT INTO history (name,address,email) VALUES ('" & request.form("name") & "','" request.form("address") & "','" & request.form("email") & "')"
set rs = conn.Execute(sql)
'inja emaili az tarafe admine site be user ersal mishe baraye masalan khoshamadgooi
'faghat yadet nareh inja smptt server khodeto set koni
Body ="Hi Dear : " & request.form("name") & vbCrLf _
& "" & vbCrLf _
& "Thank you for registring with us" & vbCrLf _
& "" & vbCrLf _
& "Thanks" & vbCrLf _
& "Site Admin" & vbCrLf _
& Trim(strMessage)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Welcome To yourdomain.com"
fromname="Site Administration"
emailfrom="[email protected]"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = request.form("email")
objMessage.TextBody = Body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourdomain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
'tamame va to khattaye pain mitooni baghiye safe ye html ro bezari
%>
<p>Thank you for registring with us</P>
<form action=sendmail.asp method=post>
Your Full Name : <input type=text name=name> <br>
Your E-mail : <input type=text name=email> <br>
Your Comments: <textarea name="comments" cols="22" rows="5"></textarea> <br>
<input type=submit value=submit> <br>
</form>
<%
Body ="Name : " & request.form("name") & vbCrLf _
& "E-Mail : " & request.form("email") & vbCrLf _
& "Comments : " & request.form("commentsl") & vbCrLf _
& Trim(strMessage)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Online Contact From Website"
fromname="Domain WebContact"
emailfrom="[email protected]"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = "[email protected]"
objMessage.TextBody = Body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourdomain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
%>
<p>Thank you for filling contact form</P>
به نقل از artin :che errori mideh ?
addrese frestandeh bayad ba domain khodet bashe va ghablan to control panel sakhte shodeh bashe