<%@LANGUAGE="VBSCRIPT"%>
<%
Dim indepthnewsarticle__MMColParam
indepthnewsarticle__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
indepthnewsarticle__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim indepthnewsarticle
Dim indepthnewsarticle_numRows
Set indepthnewsarticle = Server.CreateObject("ADODB.Recordset")
indepthnewsarticle.ActiveConnection = MM_ConnToffeeWeb_STRING
indepthnewsarticle.Source = "SELECT * FROM indepthnews WHERE ID = " + Replace(indepthnewsarticle__MMColParam, "'", "''") + ""
indepthnewsarticle.CursorType = 0
indepthnewsarticle.CursorLocation = 2
indepthnewsarticle.LockType = 1
indepthnewsarticle.Open()
indepthnewsarticle_numRows = 0
%>
ToffeeWeb - In-Depth News