%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim rsdt1__MMColParam rsdt1__MMColParam = "1" If (Request.QueryString("dtid") <> "") Then rsdt1__MMColParam = Request.QueryString("dtid") End If %> <% Dim rsdt1 Dim rsdt1_numRows Set rsdt1 = Server.CreateObject("ADODB.Recordset") rsdt1.ActiveConnection = MM_conn_STRING rsdt1.Source = "SELECT * FROM news WHERE dtid = " + Replace(rsdt1__MMColParam, "'", "''") + "" rsdt1.CursorType = 0 rsdt1.CursorLocation = 2 rsdt1.LockType = 1 rsdt1.Open() rsdt1_numRows = 0 %>
|
|||||||||||||||||||||||||||||||||||
<% rsdt1.Close() Set rsdt1 = Nothing %>