<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'If Session("SecurityID") <> "·" Then 'Response.Redirect "default.asp" 'End If %> <% Dim sNewsID Dim oNewsDetails Dim scSQL 'Dim sNewsURL 'sNewsURL = Request.QueryString("NewsURL") 'sNewsID = Request.QueryString("TextID") Set oNewsDetails = Server.CreateObject("ADODB.Recordset") scSQL = "SELECT * FROM DText WHERE Status ='Active' AND TextName = 'Rates'" Set oNewsDetails = Conn.Execute(scSQL) %>
<%If oNewsDetails.Eof or oNewsDetails.Bof Then response.write("No Rates Avaliable at this time.
Please check back later.") response.end End If%>
<% =oNewsDetails("TextBody").Value %>