bioedilizia
bio

ow
ow
ow
formazione
ow
materiali
ow
bio1
bioedilizia
bio2
 
bio3

HOME
CHI SIAMO
CERTIFICAZIONI
OBIETTIVI
STATUTO
DPG
ADESIONE
bio4
bio5
bio6

 

SERVIZIO DI NEWSLETTER

Indirizzo mail

 

Iscrivi Cancella

 
 
 

  ISCRIZIONI
b01
bi8 Associazione
bi9 Corsi
bi10 Newsletter
bi11
bi20
 <% Dim Recordset69 Dim Recordset69_numRows Set Recordset69 = Server.CreateObject("ADODB.Recordset") Recordset69.ActiveConnection = MM_connetti3_STRING Recordset69.Source = "SELECT ID, titolo, data FROM Sql178806_1.eventi" Recordset69.CursorType = 0 Recordset69.CursorLocation = 2 Recordset69.LockType = 1 Recordset69.Open() Recordset69_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Recordset69_total Dim Recordset69_first Dim Recordset69_last ' set the record count Recordset69_total = Recordset69.RecordCount ' set the number of rows displayed on this page If (Recordset69_numRows < 0) Then Recordset69_numRows = Recordset69_total Elseif (Recordset69_numRows = 0) Then Recordset69_numRows = 1 End If ' set the first and last displayed record Recordset69_first = 1 Recordset69_last = Recordset69_first + Recordset69_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset69_total <> -1) Then If (Recordset69_first > Recordset69_total) Then Recordset69_first = Recordset69_total End If If (Recordset69_last > Recordset69_total) Then Recordset69_last = Recordset69_total End If If (Recordset69_numRows > Recordset69_total) Then Recordset69_numRows = Recordset69_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset69_total = -1) Then ' count the total records by iterating through the recordset Recordset69_total=0 While (Not Recordset69.EOF) Recordset69_total = Recordset69_total + 1 Recordset69.MoveNext Wend ' reset the cursor to the beginning If (Recordset69.CursorType > 0) Then Recordset69.MoveFirst Else Recordset69.Requery End If ' set the number of rows displayed on this page If (Recordset69_numRows < 0 Or Recordset69_numRows > Recordset69_total) Then Recordset69_numRows = Recordset69_total End If ' set the first and last displayed record Recordset69_first = 1 Recordset69_last = Recordset69_first + Recordset69_numRows - 1 If (Recordset69_first > Recordset69_total) Then Recordset69_first = Recordset69_total End If If (Recordset69_last > Recordset69_total) Then Recordset69_last = Recordset69_total End If End If %>
DOWNLOAD
RECAPITI
CONTATTI
AREA RISERVATA
  <% Dim eve eve = (Recordset69_total) if eve >"1" Then response.write("EVENTI") End if %>
bioedi