<% '---- 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 %> High Havoc Online - Corduroy Gossip
  Gossip <% IF GossipNumber+1 <= TheLatestNumber THEN %> Read more gossip <% ELSE %>   <% END IF %> <% IF GossipNumber-1 > 0 THEN %>Read up on previous gossip <% ELSE %>   <% END IF %>  
  <% = RS("Gossip") %>
  Keep checking back to find out the latest!  

<IMG SRC="pics/flash/horiznavbar.gif" WIDTH=550 HEIGHT=50 BORDER=0>


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