|
|
.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 "" & RegProv (CodReg,Pro*2+2) & " | "
Response.Write "Ricevitorie on line | "
strSQL = "SELECT * FROM Ricevitorie WHERE (Provincia Like '" & RegProv(CodReg,Pro*2+1) & "') "
TabRic.Open strSQL, objConnRicevitorie
Do While Not TabRic.Eof
Response.Write " " & TabRic ("NomeRicevitoria") & ""
Response.Write " - " & TabRic ("Citta") & " | "
TabRic.MoveNext
Loop
TabRic.Close
Response.Write " "
Response.Write " "
next
%>
|
|
|
|
|
|