<%@ Language=VBScript %> <% Dim ToMail,HTTP_HOST_Array,FromMail,MailBody ToMail = "info" FromMail = "info" HTTP_HOST_Array = Split(Request.ServerVariables("HTTP_HOST"),".",-1,1) If UBound(HTTP_HOST_Array) > 0 Then If HTTP_HOST_Array(0) = "www" Then For i = 1 To UBound(HTTP_HOST_Array) - 1 DomainName = DomainName & HTTP_HOST_Array(i) & "." Next DomainName = DomainName & HTTP_HOST_Array(i) Else DomainName = Request.ServerVariables("HTTP_HOST") End If End If FromMail = FromMail & "@" & DomainName ToMail = ToMail & "@" & DomainName MailBody = "" For Each Item In Request.Form MailBody = Item & ": " & Request.Form(Item) & Chr(13) & Chr(10) & MailBody Next On Error Resume Next Set PersitsMail = Server.CreateObject("Persits.MailSender") PersitsMail.Host = "209.81.157.3" PersitsMail.From = FromMail PersitsMail.FromName = "Feed Back shatat" PersitsMail.AddAddress ToMail PersitsMail.AddReplyTo FromMail PersitsMail.Subject = "Feed Back - " & Now PersitsMail.Body = MailBody On Error Resume Next PersitsMail.Send Set PersitsMail = Nothing %> Silwad ---- سلواد


Map Registration
الإنضمام للخارطة 

Name
 : (required)
Country : (required)
E-mail
 : (required)
Address
 : (required)
Please note: All information you provide on this form will be strictly confidential.
Include my email address on the map : Yes No
With "Yes" general viewers of the signatures page can send you email. With a "No" value, your address is stored in a secure private location for signature validation only.