News at Unicorn Communications Incorporated

<%@ Language = "VBScript" %> <% Option Explicit Response.Buffer = true Response.Expires = -1441 %> <% Dim objRS, strSQL strSQL = "SELECT * FROM news WHERE newsid = " & Request("id") Set objRS = objConn.Execute(strSQL) %> News at Unicorn Communications Incorporated

<% While Not objRS.EOF %> <% objRS.MoveNext Wend %>

<%= Server.HTMLEncode(Trim(objRS("newsheadline"))) %>
<%= FormatDateTime(objRS("newsdate"), vbShortDate) %>
<%= Replace(Server.HTMLEncode(Trim(objRS("newstext"))), Chr(13) & Chr(10), "
") %>

For more information call (727) 789-2856 or e-mail info@unicorncom.net