<%@ Language=Vbscript %> <% option explicit %> <% Dim CodReg CodReg=Regione2Cod (Request ("Regione")) %> Ricevitorie.it : le Ricevitorie on line

.jpg">

  Le Ricevitorie on line : <%= RegProv (CodReg,1) %>


<% Dim Pro,Ric,strSQL,TabRic set TabRic= Server.createobject ("ADODB.RecordSet") For Pro = 1 to RegProv (CodReg,2) Response.Write "" Response.Write "" Response.Write "" strSQL = "SELECT * FROM Ricevitorie WHERE (Provincia Like '" & RegProv(CodReg,Pro*2+1) & "') " TabRic.Open strSQL, objConnRicevitorie Do While Not TabRic.Eof Response.Write "" TabRic.MoveNext Loop TabRic.Close Response.Write "
" & RegProv (CodReg,Pro*2+2) & "
Ricevitorie on line
" & TabRic ("NomeRicevitoria") & "" Response.Write " - " & TabRic ("Citta") & "
" Response.Write "
" next %>