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 & "" htmlText = htmlText & "

" htmlText = htmlText & "

Hello " htmlText = htmlText & strName htmlText = htmlText & "

" htmlText = htmlText & "

" htmlText = htmlText & "Mrs. Claus, the elves and I were so happy to hear from you. We love to receive " htmlText = htmlText & "emails, and we particularly enjoyed your email as we were just thinking " htmlText = htmlText & "about you the other day.

" htmlText = htmlText & "

I have been keeping an " htmlText = htmlText & "eye on your friend " htmlText = htmlText & strFriend htmlText = htmlText & " too, and I am proud that you are both " htmlText = htmlText & "being good.

" htmlText = htmlText & "

Christmas is never too " htmlText = htmlText & "far away, and my elves have been busy making lots of toys for all the " htmlText = htmlText & "good girls and boys. I think I saw them making a " htmlText = htmlText & strChoice1 htmlText = htmlText & " the other day. I " htmlText = htmlText & "will talk to your folks about your wish, but remember, it's not what " htmlText = htmlText & "you get for Christmas, but that you are thankful for what you have that " htmlText = htmlText & "makes Santa a happy guy.

" htmlText = htmlText & "

Remember to always be on your best behaviour.

" htmlText = htmlText & "

Love Santa X0X0X0

" htmlText = htmlText & "

" htmlText = htmlText & "Secret " htmlText = htmlText & "message to " htmlText = htmlText & strName htmlText = htmlText & " from the elves.
" htmlText = htmlText & "Santa doesn't know we added this part to the letter, so keep it a secret. " htmlText = htmlText & "We wanted to say that we hope you will come back to this site after " htmlText = htmlText & "Christmas to Thank Santa. It makes him feel really good to hear from " htmlText = htmlText & "you after his long journey around the world, and saying thank you is " htmlText = htmlText & "always a nice thing to do.

" htmlText = htmlText & "

Love from Santa's Elves
" htmlText = htmlText & "

" htmlText = htmlText & "

Send your letter to Santa

Santa Claus loves to hear from girls and boys from all over the world, especially at Christmas. We hope your Christmas is joyful every year and we also hope you carry the Christmas Spirit with you always!

Merry Christmas from Santa's Village & Sportsland!

" METHOD=POST>

What is your name?

What is your email address?

What is your best friend's name?

What would you like for Christmas?
(Please list only one item)

Please type your message to Santa here.

What is your name?
What is your email address?
What is your best friend's name?
What would you like for Christmas? (Please list only one item)
Please type your message to Santa here.