<% '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 GossipNumber= Request("GossipNumber") Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open "corduroygossip" FINDNUMBER="SELECT * FROM Latest" RS.Open FINDNUMBER, Conn, adOpenKeyset,adLockReadOnly TheLatestNumber=RS("LatestNumber") Rs.Close Conn.Close If GossipNumber="" THEN GossipNumber=TheLatestNumber End If SQLSTMT = "SELECT * FROM Gossip WHERE [Number] = " & GossipNumber Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open "corduroygossip" RS.Open SQLSTMT, Conn, adOpenKeyset,adLockReadOnly NoOfRecords = RS.Recordcount %>

<% IF GossipNumber+1 <= TheLatestNumber THEN %> <% ELSE %>   <% END IF %> <% IF GossipNumber-1 > 0 THEN %> <% ELSE %>   <% END IF %>     <% = RS("Gossip") %>

<% RS.close set rstemp=nothing conn.close set conn=nothing %>