<% 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 %>

 

 

 

 

Free Aquarius Card

 


Aquarius

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

 

 

 

To send this card to a friend,
just fill in the details below.....easy!

 

No email address details are used for any other purpose,
other than to send this card!

 

Your Name
Your Email

Recipient Name
Recipient Email
 

Your Message

 

 

Read MORE about Sun Signs....   Choose another FREE horoscope 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("aquarius.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 %>

 

 

Free Horoscope Card

 


Your card has been sent!

 

Now, I would like to

 

Choose a different card... or

Have Personal One Hour Reading with Milton... or

Order your Personalised Compatibility Chart from Milton

 

 


<% 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 %>