Per vedere le adesioni ai vari servizi, cliccare sul nome della Gara
<%
Dim cat
Dim cat_numRows
Set cat = Server.CreateObject("ADODB.Recordset")
cat.ActiveConnection = MM_cns_STRING
cat.Source = "SELECT immagini_cat.id_immagine , immagini_cat.immagine, categorie.categoria, categorie.testo , categorie.id_categoria FROM categorie INNER JOIN immagini_cat ON categorie.id_categoria = immagini_cat.id_categoria;"
cat.CursorType = 0
cat.CursorLocation = 2
cat.LockType = 1
cat.Open()
cat_numRows = 0
%>
<%
'scorro il recordset
while not cat.eof
Session("img"&cat("id_immagine")) = cat("immagine")
%>
|
 " ALT="Immagine" hspace="6" >
|
<%=(cat.Fields.Item("testo").Value)%>
|
<%
'faccio avanzare il recordset
cat.movenext
wend
%>
<%
cat.Close()
Set cat = Nothing
%>
|
|
