<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rec_Manif Dim rec_Manif_numRows Set rec_Manif = Server.CreateObject("ADODB.Recordset") rec_Manif.ActiveConnection = MM_connManif_STRING rec_Manif.Source = "SELECT * FROM manif ORDER BY data ASC" rec_Manif.CursorType = 0 rec_Manif.CursorLocation = 2 rec_Manif.LockType = 1 rec_Manif.Open() rec_Manif_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rec_Manif_numRows = rec_Manif_numRows + Repeat1__numRows %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record rec_news_first = MM_offset + 1 rec_news_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (rec_news_first > MM_rsCount) Then rec_news_first = MM_rsCount End If If (rec_news_last > MM_rsCount) Then rec_news_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> Documento senza titolo
<% While ((Repeat1__numRows <> 0) AND (NOT rec_Manif.EOF)) %>
 <%= DoDateTime((rec_Manif.Fields.Item("data").Value), 1, 1040) %>
 
 
<%=(rec_Manif.Fields.Item("corpo").Value)%>
 
<%=(rec_Manif.Fields.Item("luogo").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rec_Manif.MoveNext() Wend %>
INFORMAZIONI E PREVENDITA:
UFFICIO TURISTICO
Via Roma, 30 - 12015 - Limone Piemonte
Tel: 0171-925280
Fax: 0171-925289
E-mail: iat@limonepiemonte.it
Indietro
<% rec_Manif.Close() Set rec_Manif = Nothing %>