<% eventid=request("eventid") fcol=request("fcol") fon=request("font") k=1 'OPEN DATABASE AND RETRIEVE RESULTS DATA Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open(sConnection) Set countRS = Server.CreateObject("ADODB.recordset") countSQL = "SELECT COUNT(*) AS recordcount from news WHERE eventid=274" countRS.Open countSQL, dConn, 1, 3 recordcount = countRS("recordcount") countRS.close set countRS=nothing strSQL = "SELECT * from news INNER JOIN users ON news.userid = users.userid WHERE eventid = 274 AND newsactive='Y' ORDER BY newsdate DESC" Set objRS = dConn.Execute(strSQL) if recordcount <> "0" then do while not objRS.eof newsid = objRS("newsid") newsheadline = objRS("newsheadline") newstext = objRS("newstext") newsdate = objRS("newsdate") firstname = objRS("firstname") surname = objRS("surname") newstext = replace(newstext,chr(13),"
") response.write "" objRS.movenext loop end if objRS.Close Set objRS = Nothing dConn.close Set dConn = nothing %>