<% Dim oConn, oRS, strRet Dim strConnect strConnect = "Provider=sqloledb;Data Source=70.87.28.215;User Id=tasos;Password=nn481969" Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open strConnect Set oRS = oConn.Execute("SELECT CONVERT(VARCHAR(10), newsdate, 103) AS NewsDate, newsid, message FROM tblNews ORDER BY newsid DESC") strRet = strRet & "

" While Not oRS.EOF strRet = strRet & "
• " & "" & oRS("NewsDate") strRet = strRet & "" & oRS("message") & "" strRet = strRet & "
" oRS.MoveNext Wend strRet = strRet & "

" ' HERE WE ADD SOME NEW STUFF If Request.QueryString("htm")="1" Then strRet = "strCode='" & strRet & "'" Response.Buffer = TRUE Response.ContentType = "application/x-javascript" Response.Write strRet End If 'END OF NEW STUFF 'Response.Write strRet '& " "'" & & "'" & %>