salve, avrei bisogno di far visualizzare i risultati di una ricerca in una popup
il codice che uso è questo
FORM PER LA RICERCA
<form method='post' name='form'>
<table>
<%nome_form="form"%>
<tr>
<td>Regione</td>
<td>
<select name="id_regione" id="id_regione" onChange="cerca_province();">
<option value="0">Seleziona Regione</option>
<%
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/Regioni-Province-Comuni-Italia.mdb")
SQL = "Select * From regioni order by regione asc"
Set RS = MyConn.Execute(SQL)
While Not RS.EOF
%>
<option value="<%=rs("id_regione")%>"><%=rs("regione")%></option>
<%
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>
</select>
</td>
</tr>
<tr>
<td>Provincia</td>
<td id="provincia">
</td>
</tr>
<tr>
<td>Comune</td>
<td id="comuni">
</td>
</tr>
<tr>
<td></td>
<td><label>
<input type="submit" name="submit" id="submit" value="Ricerca" />
</label></td>
</tr>
</table>
</form>
VISUALIZZAZIONE RISULTATI DA PASSARE ALLA FINESTRA IN POPUP
<%
if len (Request.Form)>0 then
dim Conn, strConn
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/Regioni-Province-Comuni-Italia.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
'qui recupero il nome della Regione
SQL = "SELECT regione from regioni where id_regione="&request.form("id_regione")&""
Set RS = Conn.Execute(SQL)
While Not RS.EOF
regione=rs("regione")
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
'qui recupero il nome della Provincia
SQL = "SELECT provincia from province where id_provincia="&request.form("id_provincia")&""
Set RS = Conn.Execute(SQL)
While Not RS.EOF
provincia=rs("provincia")
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
'qui recupero il nome del Comune
SQL = "SELECT comune from comuni where id_comune="&request.form("id_comune")&""
Set RS = Conn.Execute(SQL)
While Not RS.EOF
comune=rs("comune")
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
SQL = "SELECT * FROM rivenditore WHERE provincia LIKE '" & provincia & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 3
Response.write("<table border=0 width='640' align=center style='FONT-FAMILY: VERDANA, ARIAL, HELVETICA, GENEVA; FONT-SIZE: 9px'>")
Response.write("<tr align=center bgcolor='#CCCCCC'>")
Response.write("<td>rivenditore</td>")
Response.write("<td>regione</td>")
Response.write("<td>provincia</td>")
Response.write("<td>comune</td>")
Response.write("<td>indirizzo</td>")
Response.write("<td>telefono</td>")
Response.write("</tr>")
Do Until rs.Eof = True
Response.write("<tr bgcolor='#66FFCC' align=center style='FONT-FAMILY: VERDANA, ARIAL, HELVETICA, GENEVA; FONT-SIZE: 9px'>")
Response.write("<td>"&rs("rivenditore")&"</td>")
Response.write("<td>"&rs("regione")&"</td>")
Response.write("<td>"&rs("provincia")&"</td>")
Response.write("<td>"&rs("comune")&"</td>")
Response.write("<td>"&rs("indirizzo")&"</td>")
Response.write("<td>"&rs("telefono")&"</td>")
Response.write("</tr>")
rs.movenext
Loop
Response.write("</table>")
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
End if
%>

Rispondi quotando
optastic('rivenditori1.asp');">