|
|
|
| |
SureQuote News
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../news/pdtblnws.mdb"))
'create the recordset
Set objRec=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT fID, fTitle, fStory, fText, fLink, fPath, fSQ, fCJ, fDisplay, fAsia FROM news ORDER BY fID Desc"
On Error Resume Next
objRec.Open strSql, conn, adOpenDynamic, adLockOptimistic, adCmdText
%>
<%objRec.MoveFirst
While Not objRec.EOF %>
<%If objRec("fSQ")= True And objRec("fDisplay")=true Then%>
<%Response.Write objRec("fTitle")%>
<%Response.Write objRec("fText")%>
<%else%>
<%End If%>
<%objRec.MoveNext
Wend%>
<%
objRec.Close
Conn.Close
%>
|
| |
|
|
|
|
 |
Higgins Insurance & Investments are Authorised and Regulated by the Financial Services Authority
Higgins Insurance & Investments, Channel Wharf, 21 Old Channel Road, BT3 9DE
Tel: 028 9073 0700 Fax: 028 9073 0729
SureQuote: 028 9045 5999 |
| |
|
|
