" strBody = strBody & "" strBody = strBody & "" if blnSbj(0) then strBody = strBody & "" strBody = strBody & "" elseif blnSbj(1) then strBody = strBody & "" strBody = strBody & "" else strBody = strBody & "" if blnSbj(2) then strBody = strBody & "" end if end if strBody = strBody & "" Thanks = "I thank you for your interest.

I hope that you will share the message in this website with everyone you know." SendMessage strBody, eFrom, eReply, eTo, eCc, eBcc, eAtt, Thanks end if %>
<% dim subject, sbj(3), blnSbj(2) for x = 0 to ubound(blnSbj) blnSbj(x) = false next subject = Trim(Request("subject")) select case subject case "Receive Prayer Cards" sbj(0) = " selected" blnSbj(0) = true case "Send Translation" sbj(1) = " selected" blnSbj(1) = true case "Prayer Intentions" sbj(2) = " selected" blnSbj(2) = true case "Free Rosary DVD" sbj(3) = " selected" case else end select %> <%if Request("mess") = "" then%> Get your Worldwide Rosary Prayer Cards

The easiest way for you to get your own Worldwide Rosary prayer cards would be for you to simply print them out using the convenient pages (Print & Share) on this site, which are provided for this purpose, and then cutting out the sheets of paper, to make your own. However, not everyone necessarily owns a printer, and some people might not even be able to afford the cost of paper or even own a pair of scissors. So if you're willing to help spread the Worldwide Rosary Prayer to the world, but your financial resources won't permit you to print out your own cards using this site, then you can fill out this form to send me an email. You will have to include your mailing address, which I will need to send you some of the prayer cards.

Or if you would be able to send me a translation of the prayer into a language not yet found on this site, please include this information, and you might someday see your translation of the prayer.

For prayer intentions you’d like me to pray for, or to contact me for another reason, please fill out this form. (And don’t forget to pray for your prayer intentions yourself, too!) <%=hr%>
<%if blnSbj(0) then%> <%elseif blnSbj(1) then%> <%else%> <%if blnSbj(2) then%> <%end if%> <%end if%>
Your Contact Reason:
Your Email:
Your Mailing Address:
Number of Cards:
Language Wanted:
Name of language
you're sending:

Translation of prayer & explanation of how to use it:
Your Country:

Your Prayer Intention:

Your Message:
<%else dim strBody, eFrom, eReply, eTo, eCc, eBcc, eAtt, Thanks eFrom = "WebSrv@webhog.ca" eReply = Request("EMAIL") eTo = "leo@worldwiderosaryprayer.com" eCc = "" eBcc = "" eAtt = "" strBody = "
Contact Reason: " & Request("subject") & "
E-mail: " & Request("email") & "
Address: " & Request("addr") & "
Number of Cards: " & Request("num") & "
Language: " & Request("lan") & "
Language: " & Request("lan") & "
Translation: " & Replace(Request("translation"),vbCrlF,"
") & "
Country: " & Request("country") & "
Prayer Intentions " & Replace(Request("prayer"),vbCrlF,"
") & "
Your Message: " & Replace(Request("mess"),vbCrlF,"
") & "