%@ CodePage=65001 Language="VBScript"%> <% strProviderName = "Provider=Microsoft.Jet.OLEDB.4.0;" strServerRootPath = server.mappath("/") strDataBaseFile = "db\news.mdb;" strDataConnection = strProviderName & "Data Source=" & strServerRootPath & strDataBaseFile ' response.write strDataConnection ' response.end strNewsId =request.querystring("newsId") if (strNewsId = "") or (Not IsNumeric(strNewsId)) then response.end end if dim cmd ,rs set cmd = Server.CreateObject ("ADODB.Command") cmd.ActiveConnection = strDataConnection cmd.CommandText ="SELECT count(*) as intRecordCount FROM tblNews WHERE id=" & strNewsId set rs = cmd.Execute() intRecordCount = cInt(rs.fields("intRecordCount")) if cBool(intRecordCount) then ' response.write ("