<% Option Explicit %>
<%
'----- Declare variables
Dim myName, myBGColor, myTableColor, myTextColor
Dim myLinkColor, myVlinkColor
Dim myLinks, myEmails
Dim objMail, MessageBody
'----- Send to Edit page -----
IF Request.Form("cmdEdit") = "Edit" THEN
Response.Redirect("edit.asp")
END IF
'----- Set Up and Send Email -----
IF Request.Form("cmdSend") = "Send" THEN
Set myMail = CreateObject("CDONTS.Newmail")
myMail.From = Request.Form("From")
myMail.To = Request.Form("To")
myMail.Subject = Request.Form("Subject")
myMail.Body = Request.Form("Message")
myMail.Send
END IF
'----- Set up defaults for the page -----
IF Request.Cookies("cookieName") = "" THEN
myName = "My "
ELSE
myName = Request.Cookies("cookieName") & "'s "
END IF
IF request.Cookies("cookieBGColor") = "" THEN
myBGColor = "#FFFFFF"
ELSE
myBGColor = Request.Cookies("cookieBGColor")
END IF
IF Request.Cookies("cookieTableBGColor") = "" THEN
myTableBGColor = "#9BA3CD"
ELSE
myTableBGColor = Request.Cookies("cookieTableBGColor")
END IF
IF Request.Cookies("cookieTextColor") = "" THEN
myTextColor = "#000000"
ELSE
myTextColor = Request.Cookies("cookieTextColor")
END IF
IF Request.Cookies("cookieLinkColor") = "" THEN
myLinkColor = "blue"
ELSE
myLinkColor = Request.Cookies("cookieLinkColor")
END IF
IF Request.Cookies("cookieVLinkColor") = "" THEN
myVLinkColor = "purple"
ELSE
myVLinkColor = Request.Cookies("cookieVLinkColor")
END IF
'----- Get Favorite Places Information -----
myLinks = "" & Request.Cookies("cookieLinkOne") & " "
myLinks = myLinks & "" & Request.Cookies("cookieLinkTwo") & " "
myLinks = myLinks & "" & Request.Cookies("cookieLinkThree") & " "
myLinks = myLinks & "" & Request.Cookies("cookieLinkFour") & " "
myLinks = myLinks & "" & Request.Cookies("cookieLinkFive") & " "
%>