Aggiungere un nuovo campo di ricerca per lettura da db access

**mediashopcenter** · 21-01-2007, 23:49

Ciao Raga,

sono un po di giorni che mi sto battendo con il seguente problema:

devo aggiungere un nuovo campo di tipo input type in un form. Inserendo un numero ex. 2/2313 lui mi deve restituire tramite una select di questi due valori : idz3 e idz98 la pagina che contiene solamente i dati relativi alla mia richiesta e non di tutti sul db.
Le pagine dove contengono il codice sono:

<%@ LANGUAGE = "VBScript" %>
<html>
<head>
<link rel="stylesheet" href="stylesheets.css" type="text/css">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title></title>
</head>
<body background="img/sfondo2.jpg">
<table border="0" width="100%" >
<tr>

<td width="614" height="50">
<center>
<font face="Arial" size="2" color="#000000">

Proposte

Inserisci nei campi i dati richiesti:

</font>
</center>
</td>

</tr>
<tr>

<%
'http://www.nomedominio.it/0000/regione.asp?&regione=1
regione=Request.QueryString("regione")
area=Cint(Request.QueryString("area"))
tipo=Cint(Request.QueryString("tipo"))
immagini=Cint(Request.QueryString("immagini"))
nuove=Cstr(Request.QueryString("nuove"))

domandaregione=Request.QueryString("regione")
domandaprovincia=Request.QueryString("provincia")

if area>0 then
SQLaggiuntaarea=" AND INDICE.ID_Z3=" & area
end if

if tipo>0 then
SQLaggiuntatipo=" AND INDICE.ID_Z10 LIKE '" & tipo & "' "
end if

if immagini>0 then
SQLaggiuntaimmagini=" AND INDICE.Z62>0 "
end if

if nuove<>"" then
SQLaggiuntanuove=" AND INDICE.Z60 LIKE '1' "
end if

if area=0 and tipo=0 and immagini=0 and nuove="" then
SQLaggiunta=""
end if

%>

<%'=regione%>
<%'=area%>
<%'=tipo%>
<%'=immagini%>
<%'=nuove%>

<%
if domandaprovincia="" then
Query_Area="SELECT DISTINCT INDICE.Z3,INDICE.ID_Z3 FROM INDICE WHERE ID_Z4=" & domandaregione & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z3"
Query_Tipologia="SELECT DISTINCT INDICE.Z13,INDICE.ID_Z13 FROM INDICE WHERE ID_Z4=" & domandaregione & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z13"
Query_Regione="SELECT DISTINCT INDICE.Z4,INDICE.ID_Z4 FROM INDICE WHERE ID_Z4=" & domandaregione & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z4"
Query_Provincia="SELECT DISTINCT INDICE.Z5,INDICE.ID_Z5 FROM INDICE WHERE ID_Z4=" & domandaregione & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z5"
Query_Comune="SELECT DISTINCT INDICE.Z6,INDICE.ID_Z6 FROM INDICE WHERE ID_Z4=" & domandaregione & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z6"
Query_Zona="SELECT DISTINCT INDICE.Z7,INDICE.ID_Z7 FROM INDICE WHERE ID_Z4=" & domandaregione & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z7"
Query_Tipo="SELECT DISTINCT INDICE.Z10,INDICE.ID_Z10 FROM INDICE WHERE ID_Z4=" & domandaregione & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z10"
else
Query_Area="SELECT DISTINCT INDICE.Z3,INDICE.ID_Z3 FROM INDICE WHERE ID_Z4=" & domandaregione & " AND Z5='" & domandaprovincia & "'" & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z3"
Query_Tipologia="SELECT DISTINCT INDICE.Z13,INDICE.ID_Z13 FROM INDICE WHERE ID_Z4=" & domandaregione & " AND Z5='" & domandaprovincia & "'" & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z13"
Query_Regione="SELECT DISTINCT INDICE.Z4,INDICE.ID_Z4 FROM INDICE WHERE ID_Z4=" & domandaregione & " AND Z5='" & domandaprovincia & "'" & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z4"
Query_Provincia="SELECT DISTINCT INDICE.Z5,INDICE.ID_Z5 FROM INDICE WHERE ID_Z4=" & domandaregione & " AND Z5='" & domandaprovincia & "'" & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z5"
Query_Comune="SELECT DISTINCT INDICE.Z6,INDICE.ID_Z6 FROM INDICE WHERE ID_Z4=" & domandaregione & " AND Z5='" & domandaprovincia & "'" & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z6"
Query_Zona="SELECT DISTINCT INDICE.Z7,INDICE.ID_Z7 FROM INDICE WHERE ID_Z4=" & domandaregione & " AND Z5='" & domandaprovincia & "'" & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z7"
Query_Tipo="SELECT DISTINCT INDICE.Z10,INDICE.ID_Z10 FROM INDICE WHERE ID_Z4=" & domandaregione & " AND Z5='" & domandaprovincia & "'" & SQLaggiuntaarea & SQLaggiuntatipo & " ORDER BY INDICE.Z10"
end if
%>


<%
'Query_Area="SELECT TAB_AREE.* FROM TAB_AREE ORDER BY TAB_AREE.Z3"
'Query_Tipologia="SELECT TAB_TIPOLOGIE.* FROM TAB_TIPOLOGIE ORDER BY TAB_TIPOLOGIE.Z13"
'Query_Regione="SELECT TAB_REGIONI.* FROM TAB_REGIONI ORDER BY TAB_REGIONI.Z4"
'Query_Provincia="SELECT TAB_PROVINCIE.* FROM TAB_PROVINCIE ORDER BY TAB_PROVINCIE.Z5"
'Query_Comune="SELECT TAB_COMUNI.* FROM TAB_COMUNI ORDER BY TAB_COMUNI.Z6"
'Query_Zona="SELECT TAB_ZONE.* FROM TAB_ZONE ORDER BY TAB_ZONE.Z7"
'Query_Tipo="SELECT TAB_TIPI.* FROM TAB_TIPI ORDER BY TAB_TIPI.Z10"

'Apre la connessione al database
Conn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & PathConn &"; Persist Security Info = False"

'costruisco i recordset
Set rsAree = Server.CreateObject("ADODB.Recordset")
Set rsTipologie = Server.CreateObject("ADODB.Recordset")
Set rsRegioni = Server.CreateObject("ADODB.Recordset")
Set rsProvince = Server.CreateObject("ADODB.Recordset")
Set rsComuni = Server.CreateObject("ADODB.Recordset")
Set rsZone = Server.CreateObject("ADODB.Recordset")
Set rsTipi = Server.CreateObject("ADODB.Recordset")

'applico query
rsAree.open Query_Area, Conn
rsTipologie.open Query_Tipologia, Conn
rsRegioni.open Query_Regione, Conn
rsProvince.open Query_Provincia, Conn
rsComuni.open Query_Comune, Conn
rsZone.open Query_Zona, Conn
'rsSettori.open Query_Settore, Conn
rsTipi.open Query_Tipo, Conn
%>

<form method="GET" action="richidb.asp" align="center">

<table border="0">
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Area di consultazione:
</font>
</TD>
<TD >

<SELECT NAME="ID_Z3">
<%IF area =0 THEN%>
<option selected value="0">Tutte</option>
<%end if%>
<% rsAree.MoveFirst
Do Until rsAree.EOF %>
<option value="<%=rsAree("ID_Z3")%>"><%=rsAree("Z3")%></option>
<%rsAree.MoveNext
Loop %>
</SELECT>

</TD>
</tr>
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Tipologia:
</font>
</TD>
<TD>

<SELECT NAME="ID_Z13">
<option selected value="0">Tutte</option>
<% rsTipologie.MoveFirst
Do Until rsTipologie.EOF %>
<option value="<%=rsTipologie("ID_Z13")%>"><%=rsTipologie( "Z13")%></option>
<%rsTipologie.MoveNext
Loop %>

</SELECT>

</TD>
</tr>
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Regione:
</font>
</TD>
<TD>

<SELECT NAME="ID_Z4">
<%IF domandaregione =0 THEN%>
<option selected value="0">Tutte</option>
<%end if%>
<% rsRegioni.MoveFirst
Do Until rsRegioni.EOF %>
<option value="<%=rsRegioni("ID_Z4")%>"><%=rsRegioni("Z4") %></option>
<%rsRegioni.MoveNext
Loop %>

</SELECT>

</TD>
</tr>
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Provincia:
</font>
</TD>
<TD>

<SELECT NAME="ID_Z5">
<%IF domandaprovincia="" THEN%>
<option selected value="0">Tutte</option>
<%end if%>
<% rsProvince.MoveFirst
Do Until rsProvince.EOF %>
<option value="<%=rsProvince("ID_Z5")%>"><%=rsProvince("Z5 ")%></option>
<%rsProvince.MoveNext
Loop %>

</SELECT>

</TD>
</tr>
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Comune:
</font>
</TD>
<TD>

<SELECT NAME="ID_Z6">
<option selected value="0">Tutti</option>
<% rsComuni.MoveFirst
Do Until rsComuni.EOF %>
<option value="<%=rsComuni("ID_Z6")%>"><%=rsComuni("Z6")%> </option>
<%rsComuni.MoveNext
Loop %>
</SELECT>

</TD>
</tr>
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Zona:
</font>
</TD>
<TD>

<SELECT NAME="ID_Z7">
<option selected value="0">Tutte</option>
<% rsZone.MoveFirst
Do Until rsZone.EOF %>
<option value="<%=rsZone("ID_Z7")%>"><%=rsZone("Z7")%></option>
<%rsZone.MoveNext
Loop %>
</SELECT>

</TD>
</tr>
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Cifra Richiesta:
</font>
</TD>
<TD>
<font face="Arial" size="2" color="#000000">
minimo<INPUT NAME="cifra1" SIZE="12" VALUE="1">
massimo<INPUT NAME="cifra2" SIZE="12" VALUE="99999999">
</font>
</TD>
</tr>
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Numero vani:
</font>
</TD>
<TD>
<font face="Arial" size="2" color="#000000">
minimo<INPUT NAME="vani1" SIZE="3" VALUE="1">
massimo<INPUT NAME="vani2" SIZE="3" VALUE="999">
</font>
</TD>
</tr>
<tr>
<TD>
<font face="Arial" size="2" color="#000000">
Superficie totale mq.:
</font>
</TD>
<TD>
<font face="Arial" size="2" color="#000000">
minimo<INPUT NAME="superficie1" SIZE="6" VALUE="1">
massimo<INPUT NAME="superficie2" SIZE="6" VALUE="999999">
</font>
</TD>
</tr>

<tr>
<td colspan="2">
<INPUT TYPE="submit" NAME="P4" tabindex="1" VALUE="Cerca i dati impostati">
<INPUT TYPE="reset" NAME="P5" tabindex="2" VALUE="Annulla i criteri">
</td>
</tr>
</table>

</FORM>

</body>
</html>

Discussione: Aggiungere un nuovo campo di ricerca per lettura da db access

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

Aggiungere un nuovo campo di ricerca per lettura da db access

Permessi di invio