<% @language = VBScript %> <% Option Explicit %> Thank Santa

<% Dim strName, strEmail, strFriend, strChoice1 strName = Trim(Request("name")) strEmail = Trim(Request.Form("email")) strFriend = Trim(Request.Form("friend")) strChoice1 = Trim(Request.Form("choice1")) 'Write the user's name to a cookie Response.Cookies("name") = strName 'Set the cookie to expire in a week Response.Cookies("name").Expires = Date() + 7 If (strName <> "" And strEmail <> "" And strFriend <> "" And strChoice1 <> "") Then Dim objMail, htmlText Set objMail = Server.CreateObject("CDONTS.NewMail") htmlText = "" htmlText = htmlText & "" htmlText = htmlText & "

" htmlText = htmlText & "

" htmlText = htmlText & "" htmlText = htmlText & "
" htmlText = htmlText & "


Dear " htmlText = htmlText & strName htmlText = htmlText & "

" htmlText = htmlText & "

" htmlText = htmlText & "Whew, what a night. Christmas " htmlText = htmlText & "Eve is always my favourite night of the year, and this year was one of " htmlText = htmlText & "the best. " htmlText = htmlText & strName htmlText = htmlText & ", I am glad you liked the " htmlText = htmlText & strChoice1 htmlText = htmlText & " that I left for you. " htmlText = htmlText & "The elves were working extra hard this year to make sure I had enough " htmlText = htmlText & "toys for all the good girls and boys.

" htmlText = htmlText & "

Have you talked to " htmlText = htmlText & strFriend htmlText = htmlText & "? Did " htmlText = htmlText & strFriend htmlText = htmlText & " like what I left at their house? I hope so.

" htmlText = htmlText & "

Well I am going to take a little " htmlText = htmlText & " time off because I sure am tired after all the fun and excitement. It " htmlText = htmlText & "won't be long until I start getting my summer home ready at Santa's " htmlText = htmlText & "Village in Bracebridge, Ontario. If you are in the neighborhood next " htmlText = htmlText & "summer, why don't you stop by and have a visit with Mrs. Claus and I?" htmlText = htmlText & " I have lots of rides and attractions to keep your whole family entertained for the day.

" htmlText = htmlText & "

And remember, don't forget to be on your best behaviour ... always!

" htmlText = htmlText & "
" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "
" htmlText = htmlText & "

Love Santa

" htmlText = htmlText & "
" htmlText = htmlText & "

 

" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" objMail.From = "santa@thanksanta.com" objMail.To = strEmail objMail.Subject = "Letter From Santa Claus" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = htmlText objMail.AttachUrl Server.MapPath("images/thanksantaemailbanner.gif"), "images/thanksantaemailbanner.gif" objMail.AttachUrl Server.MapPath("images/santaphoto.jpg"), "images/santaphoto.jpg" objMail.AttachUrl Server.MapPath("images/sv2.gif"), "images/sv2.gif" objMail.Send Response.Redirect "christmas-2003-thank-you.asp" Set objMail = Nothing Else %>

Send your THANK YOU letter to Santa.
" METHOD=POST>
What is your name?
What is your email address?
What is your best friend's name?
What was your favourite gift?
(Please list only one)
Please type your message to Santa here.

 

©Santa's Village & Sportsland
Santa's Village Road
PO Box 398
Bracebridge, ON  P1L 1T7
(705) 645-2512

<% End If %>