<%

dim pagename : pagename = request.ServerVariables("PATH_INFO")
dim sdc : Set sdc = new cSeoDashboardClient
dim spd : Set spd = sdc.GetPageDataByName(pagename)

Class cSeoDashboardClient

    dim Sitekey

    Public Function GetPageDataByName(PageName)
        
        SiteKey = "09fc2a5a-48c3-40f1-a3a7-73f8b0f08b1e"

        dim seoPageData
        Set seoPageData = WSGetSEOPageData(PageName)

        Set GetPageDataByName = seoPageData
    End Function
    
    Private Function WSGetSEOPageData(PageName)   
        Dim seoPageData
        Set seoPageData = new cSeoPageData
        
        Dim myXML
        Dim SoapRequest
        Dim SoapURL

        Set SoapRequest = Server.CreateObject("MSXML2.XMLHTTP")
        Set myXML =Server.CreateObject("MSXML.DOMDocument")


        myXML.Async=False
        SoapURL = "http://SEOMDashboard.USDM.net/SEOMDashboardWebService.asmx/GetPageData?SiteKey=" & SiteKey & "&PageName=" & PageName
        SoapRequest.Open "GET", SoapURL , False
        SoapRequest.Send()

        if Not myXML.load(SoapRequest.responseXML) then 'an Error loading XML
            'Put some code here to let us know that the webservice call failed.
            'seoPageData.TitleTag = "Page didn't load. - " & SoapRequest.responseText
        Else    'parse the XML
            Set seoPageData = LoadSEOPageData(myXML)
        End If
       
        Set SoapRequest = Nothing
        Set myXML = Nothing 

        Set WSGetSEOPageData = seoPageData
    End Function

    Private Function LoadSEOPageData(myXML)
        Dim seoPageData
        Set seoPageData = new cSeoPageData
        
        Dim nodesPageID
        Dim nodesSiteID
        Dim nodesSEOPageName
        Dim nodesDynamicPageName
        Dim nodesTitleTag
        Dim nodesKeywordTag
        Dim nodesDescriptionTag
        Dim nodesRobotTag
        Dim nodesAuthorTag
        Dim nodesAltAttributeLogoImage
        Dim nodesAltAttributeMainImage
        Dim nodesAltAttribute1
        Dim nodesAltAttribute2
        Dim nodesAltAttribute3
        Dim nodesSEOContentPage
        Dim nodesSEOPageContent1
        Dim nodesSiteGoogle
        Dim nodesSiteYahoo
        Dim nodesSiteMSN
        Dim nodesSiteWebTrends


        REM -- The XML Nodes are CASE SENSITIVE!
        Set nodesPageID=myXML.documentElement.selectNodes("//SEOPageData/PageID")
        Set nodesSiteID=myXML.documentElement.selectNodes("//SEOPageData/SiteID")
        Set nodesSEOPageName=myXML.documentElement.selectNodes("//SEOPageData/SEOPageName")
        Set nodesDynamicPageName=myXML.documentElement.selectNodes("//SEOPageData/DynamicPageName")
        Set nodesTitleTag=myXML.documentElement.selectNodes("//SEOPageData/TitleTag")
        Set nodesKeywordTag=myXML.documentElement.selectNodes("//SEOPageData/KeywordTag")
        Set nodesDescriptionTag=myXML.documentElement.selectNodes("//SEOPageData/DescriptionTag")
        Set nodesRobotTag=myXML.documentElement.selectNodes("//SEOPageData/RobotTag")
        Set nodesAuthorTag=myXML.documentElement.selectNodes("//SEOPageData/AuthorTag")
        Set nodesAltAttributeLogoImage=myXML.documentElement.selectNodes("//SEOPageData/AltAttributeLogoImage")
        Set nodesAltAttributeMainImage=myXML.documentElement.selectNodes("//SEOPageData/AltAttributeMainImage")
        Set nodesAltAttribute1=myXML.documentElement.selectNodes("//SEOPageData/AltAttribute1")
        Set nodesAltAttribute2=myXML.documentElement.selectNodes("//SEOPageData/AltAttribute2")
        Set nodesAltAttribute3=myXML.documentElement.selectNodes("//SEOPageData/AltAttribute3")
        Set nodesSEOContentPage=myXML.documentElement.selectNodes("//SEOPageData/SEOContentPage")
        Set nodesSEOPageContent1=myXML.documentElement.selectNodes("//SEOPageData/SEOPageContent1")
        Set nodesSiteGoogle=myXML.documentElement.selectNodes("//SEOPageData/SiteData/TrackingCode/Google")
        Set nodesSiteYahoo=myXML.documentElement.selectNodes("//SEOPageData/SiteData/TrackingCode/Yahoo")
        Set nodesSiteMSN=myXML.documentElement.selectNodes("//SEOPageData/SiteData/TrackingCode/MSN")
        Set nodesSiteWebTrends=myXML.documentElement.selectNodes("//SEOPageData/SiteData/TrackingCode/WebTrends")

        seoPageData.PageID = nodesPageID(0).text
        seoPageData.SiteID = nodesSiteID(0).text
        seoPageData.SEOPageName = nodesSEOPageName(0).text
        seoPageData.DynamicPageName = nodesDynamicPageName(0).text
        seoPageData.TitleTag = nodesTitleTag(0).text
        seoPageData.KeywordTag = nodesKeywordTag(0).text
        seoPageData.DescriptionTag = nodesDescriptionTag(0).text
        seoPageData.RobotTag = nodesRobotTag(0).text
        seoPageData.AuthorTag = nodesAuthorTag(0).text
        seoPageData.AltAttributeLogoImage = nodesAltAttributeLogoImage(0).text
        seoPageData.AltAttributeMainImage = nodesAltAttributeMainImage(0).text
        seoPageData.AltAttribute1 = nodesAltAttribute1(0).text
        seoPageData.AltAttribute2 = nodesAltAttribute2(0).text
        seoPageData.AltAttribute3 = nodesAltAttribute3(0).text
        seoPageData.SEOContentPage = nodesSEOContentPage(0).text
        seoPageData.SEOPageContent1 = nodesSEOPageContent1(0).text
        seoPageData.SiteGoogle = nodesSiteGoogle(0).text
        seoPageData.SiteYahoo = nodesSiteYahoo(0).text
        seoPageData.SiteMSN = nodesSiteMSN(0).text
        seoPageData.SiteWebTrends = nodesSiteWebTrends(0).text
        
        Set nodesPageID = Nothing
        Set nodesSiteID = Nothing
        Set nodesSEOPageName = Nothing
        Set nodesDynamicPageName = Nothing
        Set nodesTitleTag = Nothing
        Set nodesKeywordTag = Nothing
        Set nodesDescriptionTag = Nothing
        Set nodesRobotTag = Nothing
        Set nodesAuthorTag = Nothing
        Set nodesAltAttributeLogoImage = Nothing
        Set nodesAltAttributeMainImage = Nothing
        Set nodesAltAttribute1 = Nothing
        Set nodesAltAttribute2 = Nothing
        Set nodesAltAttribute3 = Nothing
        Set nodesSEOContentPage = Nothing
        Set nodesSEOPageContent1 = Nothing
        Set nodesSiteGoogle = Nothing
        Set nodesSiteYahoo = Nothing
        Set nodesSiteMSN = Nothing
        Set nodesSiteWebTrends = Nothing
      
        Set LoadSEOPageData = seoPageData  
    End Function        

    Private Function TestLoadSEOPageData(myXML)
        Dim seoPageData
        Set seoPageData = new cSeoPageData
        
        seoPageData.TitleTag = "TitleTag"
        seoPageData.KeywordTag = "KeywordTag"
        seoPageData.DescriptionTag = "DescriptionTag"
        seoPageData.RobotTag = "RobotTag"
        seoPageData.AuthorTag = "AuthorTag"
        seoPageData.AltAttributeLogoImage = "AltAttributeLogoImage"
        seoPageData.AltAttributeMainImage = "AltAttributeMainImage"
        seoPageData.AltAttribute1 = "AltAttribute1"
        seoPageData.AltAttribute2 = "AltAttribute2"
        seoPageData.AltAttribute3 = "AltAttribute3"
        seoPageData.SEOContentPage = "SEOContentPage"
        seoPageData.SEOPageContent1 = "SEOPageContent1"
            
        Set TestLoadSEOPageData = seoPageData
    End Function    
End Class

Class cSeoPageData
    Public PageID
    Public SiteID
    Public SEOPageName
    Public DynamicPageName
    Public TitleTag 
    Public KeywordTag
    Public DescriptionTag
    Public RobotTag
    Public AuthorTag
    Public AltAttributeLogoImage
    Public AltAttributeMainImage
    Public AltAttribute1
    Public AltAttribute2
    Public AltAttribute3
    Public SEOContentPage
    Public SEOPageContent1
    Public SiteMap1Display
    Public SiteMap1AnchorText
    Public SiteMap1Category
    Public SiteMap2Display
    Public SiteMap2AnchorText
    Public SiteMap2Category
    Public SiteMapXMLDisplay
    Public SiteMapXMLAnchorText
    Public SiteMapXMLCategory    
    Public SiteGoogle
    Public SiteYahoo
    Public SiteMSN
    Public SiteWebTrends
End Class

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Stay, Shop and Play Package</title>
<meta name="keywords" content="<%=spd.KeywordTag %>">
<meta name="description" content="<%=spd.DescriptionTag %>">
<meta name="robots" content="<%=spd.RobotTag %>">
<meta name="author" content="<%=spd.AuthorTag %>">
<%=spd.SiteGoogle %>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<style media="screen" type="text/css">
	@import "css/all.css";
    a:link {
	text-decoration: underline;
}
a:visited {
	text-decoration: underline;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: underline;
}
.style7 {font-size: 18px}

.dpDiv {
	}


/* the table (within the div) that holds the date picker calendar */
.dpTable {
	font-family: Tahoma, Arial, Helvetica, sans-serif;
	font-size: 12px;
	text-align: center;
	color: #505050;
	background-color: #ece9d8;
	border: 1px solid #AAAAAA;
	}

/* a table row that holds date numbers (either blank or 1-31) */
.dpTR {
	}

/* the top table row that holds the month, year, and forward/backward buttons */
.dpTitleTR {
	}

/* the second table row, that holds the names of days of the week (Mo, Tu, We, etc.) */
.dpDayTR {
	}

/* the bottom table row, that has the "This Month" and "Close" buttons */
.dpTodayButtonTR {
	}


/* a table cell that holds a date number (either blank or 1-31) */
.dpTD {
	border: 1px solid #ece9d8;
	}


/* a table cell that holds a highlighted day (usually either today's date or the current date field value) */
.dpDayHighlightTD {
	background-color: #CCCCCC;
	border: 1px solid #AAAAAA;
	}


/* the date number table cell that the mouse pointer is currently over (you can use contrasting colors to make it apparent which cell is being hovered over) */
.dpTDHover {
	background-color: #aca998;
	border: 1px solid #888888;
	cursor: pointer;
	color: red;
	}


/* the table cell that holds the name of the month and the year */
.dpTitleTD {
	}


/* a table cell that holds one of the forward/backward buttons */
.dpButtonTD {
	}


/* the table cell that holds the "This Month" or "Close" button at the bottom */
.dpTodayButtonTD {
	}


/* a table cell that holds the names of days of the week (Mo, Tu, We, etc.) */
.dpDayTD {
	background-color: #CCCCCC;
	border: 1px solid #AAAAAA;
	color: white;
	}


/* additional style information for the text that indicates the month and year */
.dpTitleText {
	font-size: 12px;
	color: gray;
	font-weight: bold;
	}


/* additional style information for the cell that holds a highlighted day (usually either today's date or the current date field value) */ 
.dpDayHighlight {
	color: 4060ff;
	font-weight: bold;
	}


/* the forward/backward buttons at the top */
.dpButton {
	font-family: Verdana, Tahoma, Arial, Helvetica, sans-serif;
	font-size: 10px;
	color: gray;
	background: #d8e8ff;
	font-weight: bold;
	padding: 0px;
	}


/* the "This Month" and "Close" buttons at the bottom */
.dpTodayButton {
	font-family: Verdana, Tahoma, Arial, Helvetica, sans-serif;
	font-size: 10px;
	color: gray;
	background: #d8e8ff;
	font-weight: bold;
	}
    </style>
	<!--[if lt IE 7]><link rel="stylesheet" type="text/css" href="css/ie7.css" media="screen"/><![endif]-->
    <SCRIPT language="JavaScript" SRC="datepicker.js"></SCRIPT> 

</head>
<body>
	<div id="main">
		<div class="header">
			<h1><a href='http://www.sunsetcottage.com' class="style1">SunsetCottage</a>

</h1>
			<span class="branch-top">&nbsp;</span>		</div>
		<div class="content">
			<div class="center-box">
				<div class="welcome-box-top">				</div>
				<div class="welcome-box-center">
					<span class="pink-bird">&nbsp;</span>
					<div class="welcome-box-bottom">&nbsp;</div>
					<div class="welcome-box-center-content">
						<div class="two-boxes">
							<div class="left-welcome">
								<h2><img src="images/logos.gif" alt="Brought to you by Tanger, Dixie Stampede and  Accommodations by Sunset Cottage!" name="dixie_stampede1" width="296" height="165" border="0" id="dixie_stampede1" /></h2>
					          <p align="center"><b><em>Stay, Shop and Play Smoky  Mountain<br />
				              Value Vacation Package</em>!</b><br />
						        <br />
						        Accommodations by Sunset Cottage, Dixie Stampede and Tanger Outlets have teamed up to offer an exclusive gift to Sunset Cottage guests who also book a Dixie Stampede Dinner and shop at Tanger Outlets in Sevierville! <br />
  <br />
  <strong>Offer 1:</strong> Shop and Save more with a FREE Tanger Coupon Book &amp; Tanger Tote Bag. Simply bring your check-in voucher to  shopper services to receive your coupon book and Tanger tote. Coupon code <strong>1616909</strong><br /> 
  (exp. 12/31/2009)<br />
						      </p>
							  <p align="center"> &nbsp; <br />
							  </p>
							  <p align="center"><strong>Offer 2:</strong> Shop and Save More with a FREE $10 Tanger Gift Card with your purchase of $150 or more. Simply bring your check-in voucher and your same day Tanger store receipts totaling $150 or more to Shopper Services to receive your FREE gift card. Limit one free gift card per household. Coupon code <strong>161009A</strong><br /> 
							    (exp. 12/31/2009)<br />
							  </p>
						      <div align="center"></div>
						  </div>
<div class="right-welcome">
								<h2>&nbsp;</h2>
								<form action="http://rentals.sunsetcottage.com/RNS/search/PropertyListings.aspx" method="post"><div>
								  <p align="center"><br />
							      </p>
								  </div>
								</form>
								<p>
								  <!-- Begin LawrencevilleWeather.com Weather Forecast -->
								
						    <form action="http://rentals.sunsetcottage.com/rns/search/propertydetail.aspx" method="get">
						      <div align="center">
						        <h4>Call  and book today to take advantage of this very  special offer from <b>Sunset Cottage,</b> <b>Dixie Stampede and Tanger Outlets! </b><br />
						        </h4>
                              </div>
                </form>
						    </p>
							  <div align="center"><br />
							    <!-- End Lawrencevilleweather.com Weather Forecast -->
							    <span class="style7"><br />
						        You must call to get these great deals!<br />
  <br />
						        Call us now at
<br />					      
						        1-800-211-4599<br />
						        and </span><span class="style7">mention:
						        <br />
						        STAY, SHOP and PLAY<br />
						        Offer!</span></div>
              </div>
						</div>
					</div>	
			  </div>
		    <div class="second-box-bottom">&nbsp;</div>
				<ul class="chapters">
					<li class="first-li"><a href="cabins_1br.asp">1 Bedroom</a></li>
					
					<li><a href="cabins_2br.asp">2 Bedroom</a></li>
					<li><a href="cabins_3br.asp">3 Bedroom</a></li>
					<li><a href="cabins_4br.asp">4+ Bedroom</a></li>
					<li><a href="cabins_condo.asp">Condominiums</a></li>
					<li></li>
				</ul>
		  </div>
            <div class="left-side">
				<div class="left-side-top">&nbsp;</div>
				<div class="left-side-center">
					<!--- When updating this file include, be sure to update the .js file includes also --->
<div class="left-side-center-content">
						<ul> 
							<li class="NavTitle"></li> 
						    <li><a href="http://www.sunsetcottage.com">Home</a></li>
							<li><a href="http://www.sunsetcottage.com/accommodations.asp">Accommodations</a></li> 
						    <li><a href="http://www.sunsetcottage.com/cabins_1br.asp">1  Bedroom Cabins</a></li> 
						    <li><a href="http://www.sunsetcottage.com/cabins_2br.asp">2  Bedroom Cabins</a></li> 
						    <li><a href="http://www.sunsetcottage.com/cabins_3br.asp">3  Bedroom Cabins</a></li> 
						    <li><a href="http://www.sunsetcottage.com/cabins_4br.asp">4+ Bedroom Cabins</a></li> 
						    <li><a href="http://www.sunsetcottage.com/cabins_condo.asp">Condominiums</a></li> 
						    <li><a href="http://www.sunsetcottage.com/grouped_cabins.asp">Groups &amp; Reunions </a></li> 
							 
					         <li><a href="http://www.sunsetcottage.com/special_amenities.asp">Special Amenities</a><a href="http://www.sunsetcottage.com/cabins_luxury.asp"><br />
				              </a>				          </li>
					         <hr align="left" width="80" noshade="noshade" /> 
						    <li><a href="http://rentals.sunsetcottage.com/RNS/search/searchoptions.aspx">Reservations</a></li> 
					         <li><a href="http://www.sunsetcottage.com/specials.asp">Specials</a><br />
					         </li> 
				             <li><a href="rental_policies.asp">Rental Policies</a></li>
			              <li><a href="http://www.sunsetcottage.com/rss.asp">Instant Updates (RSS)</a></li> 
					         <li><a href="http://www.sunsetcottage.com/reviews_consumer.asp">Guest Reviews</a></li> 
					         <li><a href="http://blog.sunsetcottage.com/default.aspx">Blog</a></li>
					         <li><a href="http://www.sunsetcottage.com/areainfo.asp">Area Information</a></li> 
					         <li><a href="http://www.sunsetcottage.com/attractions.asp">Attractions Tickets </a></li>
					         <li><a href="http://www.sunsetcottage.com/weddings.asp">Weddings Info</a></li> 
					         <li><a href="http://www.smokymtnrealty.com" target="_blank">Real Estate</a></li>
					         <li><a href="http://www.sunsetcottage.com/contact.asp">Contact Us</a></li> 
					         <li><a href="http://rentals.sunsetcottage.com/RNS/ownerservices/ownerservices.aspx">Owner Services</a></li>
					         <li><a href="http://rentals.sunsetcottage.com/RNS/inquiry/inquiry.aspx">Request Info</a></li>
						     </li> 
  </ul> 
</div>


				</div>
				<div class="left-side-bottom"><a href="enewsletter.asp" title="Sign Up"></a></div>
			</div>
		</div>
	</div>
<table width="24" height="202" border="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>

	<div class="footer">
		<!--- When updating this file include, be sure to update the .js file includes also --->
<div class="footer-content">
  <div align="center">
    <p><a href="http://www.sunsetcottage.com/index.asp">Pigeon Forge Home |</a> 
      <a href="http://www.sunsetcottage.com/accommodations.asp"> Cabin Rentals|</a>
      <a href="http://www.sunsetcottage.com/specials.asp">Cabin Specials |</a> 
      <a href="http://www.sunsetcottage.com/areainfo.asp">Area Information |</a> 
      <a href="http://www.sunsetcottage.com/wedding.asp">Weddings |</a> <a href="http://www.sunsetcottage.com/reviews_consumer.asp">Pigeon Forge Cabin Reviews </a><a href="http://blog.sunsetcottage.com/default.aspx"><br>
      Blog |</a><a href="http://www.sunsetcottage.com/rss.asp"><img src="images/rssicon.gif" width="12" height="12" border="0" /></a>   <a href="http://www.sunsetcottage.com/rss.asp">Receive Instant Updates </a><br />
      <a href="http://www.sunsetcottage.com/enewsletter.asp">Free eNewsletter |</a> 
	  <a href="http://www.sunsetcottage.com/sitemap.asp">Sitemap |</a> <a href="http://www.sunsetcottage.com/contact.asp">Contact Us |</a> <a href="http://www.sunsetcottage.com/rental_policies.asp">Rental Policies |</a>
	  <a href="http://www.sunsetcottage.com/privacy_policies.asp">Privacy Policy </a> <span class="footer-sp"><br />
      Copyright &copy; 1997-2009 -- Accommodations by Sunset Cottage -- All rights reserved.</span><br />
      <br /> 
	
      <a href="http://www.realtor.com/Basics/Sell/ListAdvert/Agreement.asp" target="_blank" class="png"><img src="http://www.sunsetcottage.com/images/banner-bottom01.png" alt="" width="74" height="31" border="0" /></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://www.realtor.org/rmotoolkits.nsf/pages/prop25#a10" target="_blank" class="png"><img src="http://www.sunsetcottage.com/images/banner-bottom02.png" alt="" width="33" height="31" border="0" /></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://www.aaa.com/AAA_Travel/Travel/travel.htm" target="_blank" class="png"><img src="http://www.sunsetcottage.com/images/banner-bottom03.png" alt="" width="48" height="33" border="0" /></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://www.realtor.org/edmatrix.nsf/0/97a6e68d6f01f7c886256e1900627199" target="_blank" class="png"><img src="http://www.sunsetcottage.com/images/banner-bottom04.png" alt="" width="64" height="31" border="0" /></a><br />
      <br />
    </p>
  </div>
</div>


</div>	
	</div>
	
<%=spd.SiteWebTrends %>
</body>
</html>