<%@LANGUAGE="VBSCRIPT"%>
<%
dim strPath
' Get the current virtual address and store it
strVPath = Request.ServerVariables("PATH_INFO")
%>
<%pageName =Mid(strVPath, InStrRev(strVPath, "/") + 1)%>
<%
Dim RSPageLookup__pageNamelool
RSPageLookup__pageNamelool = "Home.htm"
if (pageName <> "") then RSPageLookup__pageNamelool = pageName
%>
<%
set RSPageLookup = Server.CreateObject("ADODB.Recordset")
RSPageLookup.ActiveConnection = MM_cms_STRING
RSPageLookup.Source = "SELECT pageid, pagetitle FROM tbl_pages WHERE pagelink = '" + Replace(RSPageLookup__pageNamelool, "'", "''") + "'"
RSPageLookup.CursorType = 0
RSPageLookup.CursorLocation = 2
RSPageLookup.LockType = 3
RSPageLookup.Open()
RSPageLookup_numRows = 0
%>
<%
Dim RSMenusExist__pagelookup
RSMenusExist__pagelookup = "0"
if (RSPageLookup.fields.item("pageid").value <> "") then RSMenusExist__pagelookup = RSPageLookup.fields.item("pageid").value
%>
<%
set RSMenusExist = Server.CreateObject("ADODB.Recordset")
RSMenusExist.ActiveConnection = MM_cms_STRING
RSMenusExist.Source = "SELECT contentID FROM tbl_content WHERE menudisplay = True AND pageID = " + Replace(RSMenusExist__pagelookup, "'", "''") + ""
RSMenusExist.CursorType = 0
RSMenusExist.CursorLocation = 2
RSMenusExist.LockType = 3
RSMenusExist.Open()
RSMenusExist_numRows = 0
%>
<%
Dim RSMeta__pageidlook
RSMeta__pageidlook = "0"
if (RSPageLookup.fields.item("pageid").value <> "") then RSMeta__pageidlook = RSPageLookup.fields.item("pageid").value
%>
<%
set RSMeta = Server.CreateObject("ADODB.Recordset")
RSMeta.ActiveConnection = MM_cms_STRING
RSMeta.Source = "SELECT meta_tag, metacontent FROM tbl_meta, tbl_metadata WHERE pageID = " + Replace(RSMeta__pageidlook, "'", "''") + " AND metanameid = tbl_meta.metaID"
RSMeta.CursorType = 0
RSMeta.CursorLocation = 2
RSMeta.LockType = 3
RSMeta.Open()
RSMeta_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
RSMeta_numRows = RSMeta_numRows + Repeat1__numRows
%>
Mail Solutions: <%=RSPageLookup.fields.item("pagetitle").value%>
<%
While ((Repeat1__numRows <> 0) AND (NOT RSMeta.EOF))
%>
" content="<%=RSMeta.fields.item("metacontent").value%>">
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RSMeta.MoveNext()
Wend
%>
<![CDATA[
]]>
<%
RSPageLookup.Close()
%>
<%
RSMenusExist.Close()
%>
<%
RSMeta.Close()
%>