<% sql = "SELECT TOP 2 * From Clients WHERE ( [ID] Like '771' AND [Show] NOT LIKE '%Hide%' )" %> <%' Open Connection dim objConn dim objRec set objConn = Server.CreateObject("ADODB.Connection") set objRec = Server.CreateObject("ADODB.Recordset") ' set the cursor location for record count objRec.CursorLocation = 3 objConn.Open "Driver={Microsoft Access driver (*.mdb)};DBQ=d:\wwwdata\pub-domains\www.westcountry-online.com\accommodationdata\database\accommodationdata.mdb" objRec.Open sql, objConn 'objRec.Open "Clients", objConn, 0,1,2 %> <% ' trap any errors On Error Resume Next ' Say if their are no records found if objRec.eof Then Response.Write " - " End If ' Process Row objRec.MoveFirst x = 0 intCount = 0 do while Not objRec.eof %> <% IF (objRec("Current_Offer_End") >= Now() AND objRec("Current_Offer")<> "") THEN %>
star_border <%=objRec("Current_Offer")%>
<%end if%> <% objRec.MoveNext x=x+1 loop objRec.Close Set objRec = Nothing objConn.Close Set objConn=Nothing %>