• Books
• Articles
• Bulletin Board

Articles

<% sql = "SELECT * FROM tblPressRelease ORDER BY DateofRelease DESC" Set rsContent = Server.CreateObject("ADODB.Recordset") rsContent.Open sql, conn, 3, 3 'check to some Press Releases Exist if not rsContent.eof then do until rsContent.eof response.write("") response.write("") response.write("") response.write("") rsContent.MoveNext loop 'if not set an error message else response.write("There are no current releases") end if 'close connections rsContent.close Set rsContent = Nothing %>

" & rsContent("DateofRelease") & "

-- " & rsContent("NewsHeadline") & "