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