AdevarulPrezent.com | Contact Us

<% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(cStr(Request.Form("email"))) & "" MailSubject = "" & cStr(cStr(Request.Form("subject"))) & "" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"" & cStr(cStr(Request.Form("email"))) & "") MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "Message sent through AdevarulPrezent.com:" & vbCrlf & "" MailBody = MailBody & "---" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("message")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "---" & vbCrlf & "" MailBody = MailBody & "Nume: " MailBody = MailBody & cStr(Request.Form("name")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Religia: " MailBody = MailBody & cStr(Request.Form("religia")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Newsletter: " MailBody = MailBody & cStr(Request.Form("newsletter")) MailBody = MailBody & "" & vbCrlf & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((cStr(Request.Form("Submit")) <> "")) then 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("adrian@adevarulprezent.com") 'Send Mail All Entries if ("contact_confirmation.html"<>"") then Response.Redirect("contact_confirmation.html") end if end if %> AdevarulPrezent.com | Contact Us


	Home \| Contact

Multumim pentru vizitarea siteului nostru! Comentariile dumneavoastra sunt apreciate!

Va rugam completati aceasta forma, apoi dati un singur clic pe butonul "Trimite"!

Numele:
Adresa email:

Din ce denominatiune religioasa faceti parte?
Crestin Protestant
Adventist de Ziua a Saptea
Crestin ortodox/catolic
Alte religii/Ateu

Doriti sa primiti stirile AdevarulPrezent?
Da
Nu

Subiectul mesajului:

Aveti comentarii, sugestii, intrebari? Exprimati-le:

Website by Exprimare