%@LANGUAGE="VBSCRIPT"%> <%session.lcid=2057%> <% Dim rs_topic__MMColParam rs_topic__MMColParam = "1" If (Request.QueryString("topic_id") <> "") Then rs_topic__MMColParam = Request.QueryString("topic_id") End If %> <% Dim rs_topic Dim rs_topic_numRows Set rs_topic = Server.CreateObject("ADODB.Recordset") rs_topic.ActiveConnection = MM_con_uk_STRING rs_topic.Source = "SELECT * FROM qry_topic_items WHERE tbl_topic.topic_id = " + Replace(rs_topic__MMColParam, "'", "''") + "" rs_topic.CursorType = 0 rs_topic.CursorLocation = 2 rs_topic.LockType = 1 rs_topic.Open() rs_topic_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_topic_numRows = rs_topic_numRows + Repeat1__numRows %>
|
|
||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
External Link Disclaimer |
|
||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||