Silwad ---- سلواد

<%@ 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 - Retain" PersitsMail.AddAddress ToMail PersitsMail.AddReplyTo FromMail PersitsMail.Subject = "Feed Back - " & Now PersitsMail.Body = MailBody On Error Resume Next PersitsMail.Send Set PersitsMail = Nothing %> Silwad ---- سلواد

FeedBack

المساهمات