<%
Dim MailBody
Err.Clear
Set objEMail = Server.CreateObject ("CDONTS.NewMail")
If (Err.number <> 0) then
Response.Write(Err.Description)
else
Recipient = "
bla@bla.net"
FROM = "
beee@beee.co.il"
MailBody = "Name : " & Request("name") & vbcrlf
MailBody = MailBody & "Telephone : " & Request("phone") & vbcrlf
MailBody = MailBody & "E-Mail : " & Request("email") & vbcrlf
MailBody = MailBody & "-------------------------------" & vbcrlf
MailBody = MailBody & "Message : " & vbcrlf & Request("message") & vbcrlf
objEMail.To = Recipient
objEMail.From = FROM
objEMail.Subject = Request("subject")
objEMail.Body = MailBody
objEMail.Send()
Set objEMail = Nothing
Response.Write("Message was Sent.")
End If
%>
ראשי
צ'אט
10-07-2005, 11:04
מצב כלאיים
