<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Request.QueryString("ID") <> "") then Recordset1__MMColParam = Request.QueryString("ID")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_pagesCONNECTION_STRING
Recordset1.Source = "SELECT * FROM PageTable WHERE ID = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
UrologyStone.com
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
</body>
]]>
<%
Recordset1.Close()
%>