<%if request ("name")="" then%>
<%else
dim UserIp,StrMessage
dim UserHost
' userIp="ايبي المرسل :" & & "
"
' userHost=" الموقع : " & request.servervariables("REMOTE_HOST")
'strMessage = Request.Form("skey")
'strMessage = strMessage & request.servervariables("REMOTE_ADD") & "
"
strMessage= "Name : " & request.form("name") & "
"
strMessage= "Email : " & request.form("Email") & "
"
strMessage= "Address : " & request.form("Address") & "
"
strMessage= "Tle : " & request.form("Tle") & "
"
strMessage= "Fax : " & request.form("Fax") & "
"
strMessage = strMessage & Replace(request.form("body"), vbCrLf, "
")
strMessage = Replace(strMessage, vbCrLf, "
")
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("Name") & "<" & Request.Form("Email") & ">"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.To=Request.Form("recipient")
objCDOMail.subject= Request.Form("subject")
objCDOMail.body=strMessage
objCDOMail.Importance = 1
objCDOMail.Send
set objCDOMail=nothing
%>
| Message |
|
Thank You For Writeing To us
Inshallah you will be contacted in the next few days
please wait while you are returned to the Feedback page.
Click here to retry Feedback page.
|
|
<%' set mail=nothing
end if
%>
|
|
Copyright
© 2007 AL-A'bed Medical Supplies Company Ltd. All Rights Reserved
|
|
