<% theID=170 %> <% 'DO NOT DELETE THIS IS A REQUIRED FILE %> <% Dim GetContentRS__var1 GetContentRS__var1 = "0" If (theID <> "") Then GetContentRS__var1 = theID End If %> <% Dim GetContentRS Dim GetContentRS_cmd Dim GetContentRS_numRows Set GetContentRS_cmd = Server.CreateObject ("ADODB.Command") GetContentRS_cmd.ActiveConnection = MM_sqlconn_STRING GetContentRS_cmd.CommandText = "SELECT * FROM dbo.pages INNER JOIN Divisions ON Divisions.sid=pages.divisionID WHERE pgid = ?" GetContentRS_cmd.Prepared = true GetContentRS_cmd.Parameters.Append GetContentRS_cmd.CreateParameter("param1", 5, 1, -1, GetContentRS__var1) ' adDouble Set GetContentRS = GetContentRS_cmd.Execute GetContentRS_numRows = 0 %> <% IF GetContentRS.EOF THEN Response.write("

Sorry this page has been removed from our site, please update your short cut.

") ELSE %> <% Dim siteFolder,sid,udotheader,udotfooter siteFolder=TRIM(GetContentRS.Fields.Item("FolderName").Value) sid = (GetContentRS.Fields.Item("sid").Value) IF GetContentRS("udot") = 1 THEN udotheader="
" udotheader=udotheader&"
" udotfooter="
" ELSE udotfooter="" udotheader="" END IF %> <%=(GetContentRS.Fields.Item("titleTag").Value)%> " /> " /> <%=udotheader%>
<%=TRIM(GetContentRS.Fields.Item("titleTag").Value)%>
<% IF TRIM(GetContentRS.Fields.Item("alertmsg").Value)<>"" THEN Response.write("
"&TRIM(GetContentRS.Fields.Item("alertmsg").Value)&"
") END IF %> <%=TRIM(GetContentRS.Fields.Item("pageHTML").Value)%>
<%=TRIM(GetContentRS.Fields.Item("rightcol").Value)%>

<%=udotfooter%> <% END IF 'eof check%> <% GetContentRS.Close() Set GetContentRS = Nothing %>