%@LANGUAGE="VBSCRIPT"%> <%
Dim Articles_by_Eqbal__MMColParam
Articles_by_Eqbal__MMColParam = "3"
if(Request.QueryString("id") <> "") then Articles_by_Eqbal__MMColParam = Request.QueryString("id")
%> <%
Dim categories_by_Eqbal__MMColParam
categories_by_Eqbal__MMColParam = "5"
if(Request.QueryString("cid") <> "") then categories_by_Eqbal__MMColParam = Request.QueryString("cid")
%> <%
set Articles_by_Eqbal = Server.CreateObject("ADODB.Recordset")
Articles_by_Eqbal.ActiveConnection = "dsn=eqbal;"
Articles_by_Eqbal.Source = "SELECT article_id, article_heading, print_date, article FROM Articles_by_Eqbal WHERE article_id = " + Replace(Articles_by_Eqbal__MMColParam, "'", "''") + ""
Articles_by_Eqbal.CursorType = 0
Articles_by_Eqbal.CursorLocation = 2
Articles_by_Eqbal.LockType = 3
Articles_by_Eqbal.Open
Articles_by_Eqbal_numRows = 0
%><%
set categories_by_Eqbal = Server.CreateObject("ADODB.Recordset")
categories_by_Eqbal.ActiveConnection = "dsn=eqbal;"
categories_by_Eqbal.Source = "SELECT * FROM Categories_by_Eqbal WHERE category_id = " + Replace(categories_by_Eqbal__MMColParam, "'", "''") + ""
categories_by_Eqbal.CursorType = 0
categories_by_Eqbal.CursorLocation = 2
categories_by_Eqbal.LockType = 3
categories_by_Eqbal.Open
categories_by_Eqbal_numRows = 0
%>
Eqbal Ahmad - Articles