%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim webdata__MMColParam webdata__MMColParam = "1" If (Request.QueryString("id") <> "") Then webdata__MMColParam = Request.QueryString("id") End If %> <% Dim webdata Dim webdata_numRows Set webdata = Server.CreateObject("ADODB.Recordset") webdata.ActiveConnection = MM_webdata_STRING webdata.Source = "SELECT * FROM news WHERE id = " + Replace(webdata__MMColParam, "'", "''") + "" webdata.CursorType = 0 webdata.CursorLocation = 2 webdata.LockType = 1 webdata.Open() webdata_numRows = 0 %>