<%
Dim sCurrentPage
sCurrentPage = "extrapage"
%>
<%
bShowDetail = Len(Request("page")) > 0
sPageName = Request("page")
If bShowDetail Then
sSQL = "SELECT Comments FROM ExtraPages WHERE Name='" & sPageName & "'"
End If
Set rs = conDB.Execute( sSQL )
If IsRSEmpty(rs) Then
Response.Write "./"
Else%>
<%=sServiceName%>
<%=rs.Fields("Comments").Value%>
<%End If%>