<% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("/top.htm"), 1) do while f.AtEndOfStream = false Response.Write(f.ReadLine & VbCrLf) loop f.Close Set f=Nothing Set fs=Nothing %> <% if request.ServerVariables("REQUEST_METHOD") = "GET" then %>

Send A Card

Card Preview


taurus

<% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("/ast/cards/horoscope/taurus.htm"), 1) do while f.AtEndOfStream = false Response.Write(f.ReadLine & VbCrLf) loop f.Close Set f=Nothing Set fs=Nothing %>

Find out more....


To Send This Card to a Friend
Just Fill In The Form Below

Please note that this information is only used
to format the email that will be sent

Your Name
Your Email

Recipient Name
Recipient Email

Your Message



Or choose a different card...

<% else title = "A Horoscope Card for you " & request("strToName") & " - Best Wishes, " & request("strName") Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.Importance = 1 objMail.From = request("strName") & "<" & request("strEmail") & ">" objMail.To = request("strTo") objMail.Subject = title ' this is my messages HTML strMsg = "

" Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("taurus.htm"), 1) do while f.AtEndOfStream = false strMsg = strMsg & f.ReadLine loop f.Close Set f=Nothing Set fs=Nothing strMsg = strMsg & "

Find out more....

" strMsg = strMsg & Request.Form("Message") & Response.Write(Message) strMsg = strMsg & "

Send your own Card

" strMsg = strMsg & "

Horoscope Card courtesy of
http://www.miltonblack.com.au

Proudly Australian
Australian Owned, Australian Designed
Find out more About Australia

Content Copyright © 2006 Milton Black

" ' set the format of the email to html, etc objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = strMsg objMail.Send ' destroy the email object Set objMail = Nothing %>

Send A Card


Your card has been sent!

Choose a different card... or

Find out more in your own
Personalised Horoscope... or

Order your own Personal Compatibility Chart


<% End if %> <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("/bot.htm"), 1) do while f.AtEndOfStream = false Response.Write(f.ReadLine & VbCrLf) loop f.Close Set f=Nothing Set fs=Nothing %>