Immagini del Casentino

<%@LANGUAGE="VBSCRIPT"%> <% set rsBottone = Server.CreateObject("ADODB.Recordset") rsBottone.ActiveConnection = MM_ConnAziende_STRING rsBottone.Source = "SELECT bottone, link FROM sponsor" rsBottone.CursorType = 0 rsBottone.CursorLocation = 2 rsBottone.LockType = 3 rsBottone.Open() rsBottone_numRows = 0 %> <% set rsConteggio = Server.CreateObject("ADODB.Recordset") rsConteggio.ActiveConnection = MM_ConnAziende_STRING rsConteggio.Source = "SELECT * FROM Conteggio" rsConteggio.CursorType = 0 rsConteggio.CursorLocation = 2 rsConteggio.LockType = 3 rsConteggio.Open() rsConteggio_numRows = 0 %> <% set rsCategorie = Server.CreateObject("ADODB.Recordset") rsCategorie.ActiveConnection = MM_ConnAziende_STRING rsCategorie.Source = "SELECT * FROM categorie_b ORDER BY categoria ASC" rsCategorie.CursorType = 0 rsCategorie.CursorLocation = 2 rsCategorie.LockType = 3 rsCategorie.Open() rsCategorie_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsBottone_numRows = rsBottone_numRows + Repeat1__numRows %> Immagini del Casentino