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>

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

---------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------

La pagina della richiesta è la seguente :

----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------
<%@ LANGUAGE = "VBScript" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<style>
h1{
font-family: verdana,helvetica,arial;
font-size: 1.1em;
background:#F1932E;
}
table{
font-family: verdana,helvetica,arial;
font-size:1em;
}
h4{
font-family: verdana,helvetica,arial;
font-size:.7em;
}
</style>
</head>

<%
'*******************legge i parametri passati dal metodo get
'http://www.nomedominio.it/immobilia/db/richidb.asp?
'ID_S3=0&ID_Z13=0&ID_Z4=0&ID_Z5=0&ID_Z6=0&ID_Z7=0
'&cifra1=0
'&cifra2=99999999
'&vani1=0
'&vani2=999
'&superficie1=0
'&superficie2=999999
'&ID_Z64=0&ID_Z10=0&B2=Cerca+i+dati+impostati

if Request.QueryString("cifra1")= "" then
cif1=1
else
cif1=CDbl(Request.QueryString("cifra1"))
end if

if Request.QueryString("cifra2")= "" then
cif2=1
else
cif2=CDbl(Request.QueryString("cifra2"))
end if

if Request.QueryString("vani1")= "" then
van1=1
else
van1=CDbl(Request.QueryString("vani1"))
end if

if Request.QueryString("vani2")= "" then
van2=1
else
van2=CDbl(Request.QueryString("vani2"))
end if

if Request.QueryString("superficie1")= "" then
sup1=1
else
sup1=CDbl(Request.QueryString("superficie1"))
end if

if Request.QueryString("superficie2")= "" then
sup2=1
else
sup2=CDbl(Request.QueryString("superficie2"))
end if

agenzia=CInt(Request.QueryString("ID_Z47"))
area=CInt(Request.QueryString("ID_Z3"))
comune=CInt(Request.QueryString("ID_Z6"))
provincia=CInt(Request.QueryString("ID_Z5"))
regione=CInt(Request.QueryString("ID_Z4"))
tipo=CInt(Request.QueryString("ID_Z10"))
tipologia=CInt(Request.QueryString("ID_Z13"))
zona=CInt(Request.QueryString("ID_Z7"))

ordina=CStr(Request.QueryString("srt"))
if ordina="" then
ordina="INDICE.Z11"
end if
ricaricatab="richidb.asp?ID_Z3="&area&"&ID_Z13 ="&tipologia&"&ID_Z4="&regione&"&ID_Z5="&p rovincia&"&ID_Z6="&comune&"&ID_Z7="&zona&" &ID_Z10="&tipo&"&ID_Z47="&agenzia&"&ci fra1="&cif1&"&cifra2="&cif2&"&vani1="&van1 &"&vani2="&van2&"&superficie1="&sup1&"&amp ;superficie2="&sup2
'ricaricatumb=ricaricatab

%>

<body background="img/sfondo2.jpg">
<%
'*******************parte comune a tutte le query
'SQLQuery1 = "SELECT INDICE.* FROM INDICE WHERE (INDICE.RECORD<>0)" '*******************per averli tutti
SQLQuery1 = "SELECT INDICE.* FROM INDICE WHERE"

'*******************parte diversificata a seconda della richiesta da parte della pagina catalogo
contaquery=0 'serve per sapere se aggiungere AND nella query
SQLQuery2=""
if area<>"" AND area<>"0" then
SQLQuery2 =SQLQuery2 &" (INDICE.ID_Z3)=" & area
contaquery=1
end if

if tipologia<>"" AND tipologia<>"0" then
if contaquery=1 then
SQLQuery2 =SQLQuery2 &" AND"
end if
SQLQuery2 =SQLQuery2 &" (INDICE.ID_Z13)=" & tipologia
contaquery=1
end if
if regione<>"" AND regione<>"0" then
if contaquery=1 then
SQLQuery2 =SQLQuery2 &" AND"
end if
SQLQuery2 =SQLQuery2 &" (INDICE.ID_Z4)=" & regione
contaquery=1
end if
if provincia<>"" AND provincia<>"0" then
if contaquery=1 then
SQLQuery2 =SQLQuery2 &" AND"
end if
SQLQuery2 =SQLQuery2 &" (INDICE.ID_Z5)=" & provincia
contaquery=1
end if
if comune<>"" AND comune<>"0" then
if contaquery=1 then
SQLQuery2 =SQLQuery2 &" AND"
end if
SQLQuery2 =SQLQuery2 &" (INDICE.ID_Z6)=" & comune
contaquery=1
end if
if zona<>"" AND zona<>"0" then
if contaquery=1 then
SQLQuery2 =SQLQuery2 &" AND"
end if
SQLQuery2 =SQLQuery2 &" (INDICE.ID_Z7)=" & zona
contaquery=1
end if
if tipo<>"" AND tipo<>"0" then
if contaquery=1 then
SQLQuery2 =SQLQuery2 &" AND"
end if
SQLQuery2 =SQLQuery2 &" (INDICE.ID_Z10)=" & tipo
contaquery=1
end if
if agenzia<>"" AND agenzia<>"0" then
if contaquery=1 then
SQLQuery2 =SQLQuery2 &" AND"
end if
SQLQuery2 =SQLQuery2 &" (INDICE.ID_Z47)=" & agenzia
contaquery=1
end if

if SQLQuery2 ="" then
SQLQuery2 = " (INDICE.RECORD<>0)"
end if

if (cif1<>0 AND cif2<>0) AND cif1<cif2 then
SQLQuery2 =SQLQuery2 &" AND"
SQLQuery3 =SQLQuery3 &" (INDICE.Z11)>="&cif1&" AND (INDICE.Z11)<="&cif2
contaquery=2
end if

if van1<>0 AND van2<>0 then
if contaquery=2 then
SQLQuery3 =SQLQuery3 &" AND"
end if
if van1<van2 then
SQLQuery3 =SQLQuery3 &" ((INDICE.Z14)>="&van1&" AND (INDICE.Z14)<="&van2&")"
else
SQLQuery3 =SQLQuery3 &" INDICE.Z14="&van1
end if
contaquery=2
end if

if (sup1<>0 AND sup2<>0) AND sup1<sup2 then
if contaquery=2 then
SQLQuery3 =SQLQuery3 &" AND"
end if
SQLQuery3 =SQLQuery3 &" (INDICE.Z15)>="&sup1&" AND (INDICE.Z15)<="&sup2
end if

'*******************parte che definisce il tipo di ordinamento
SQLQuery4=""
if contaquery=1 then
'SQLQuery=SQLQuery4 & " WHERE ((" & SQLQuery2 & "))"
end if
SQLQuery4 = " ORDER BY "& ordina

'*******************query definitiva
SQLQuery = SQLQuery1 & SQLQuery2 & SQLQuery3 & SQLQuery4
condizioni=""
condizioni=area & "-" & tipologia & "-" & regione & "-" & provincia & "-" & comune & "-" & zona & "-" & tipo & "-" & agenzia & "-" & ordina

'*******************Apre la connessione al database
Dim conn
Conn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & PathConn &"; Persist Security Info = False"
'*******************costruisco i recordset
Set rsOpereList = Server.CreateObject("ADODB.Recordset")
'*******************applico query
%>

<p align="center"><font <%=font_intesta%>><%'=rsOpereList.recordcount%></font>

<p align="center"><font <%=font_intesta%>><%'=SQLQuery%></font>

<p align="center"><font <%=font_intesta%>><%'=SQLQuery1 %></font>

<p align="center"><font <%=font_intesta%>><%'=SQLQuery2 %></font>

<p align="center"><font <%=font_intesta%>><%'=SQLQuery3 %></font>

<p align="center"><font <%=font_intesta%>><%'=SQLQuery4%></font>

<p align="center"><font <%=font_intesta%>><%'=condizioni%></font>

<p align="center"><font <%=font_intesta%>><%'=ricaricatab%></font>

<%
rsOpereList.open SQLQuery, Conn, 3, 3

' SE CI SONO DEI RISULTATI
if rsOpereList.recordcount > 0 then
%>

<div align="center"><center>

<table COLSPAN="8" CELLPADDING="5" BORDER="0">

<tr>
<td <%=cella_int_tab%>>
<font <%=font_int_tab%>>RIFERIMENTO</a></font></td>

<td <%=cella_int_tab%>>
<font <%=font_int_tab%>>FOTO</a></font></td>
<td <%=cella_int_tab%>>
<font <%=font_int_tab%>>NOVITA'</a></font></td>

<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z3">
<font <%=font_int_tab%>>AREA</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z13">
<font <%=font_int_tab%>>TIPOLOGIA</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z4">
<font <%=font_int_tab%>>REGIONE</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z5">
<font <%=font_int_tab%>>PROVINCIA</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z6">
<font <%=font_int_tab%>>COMUNE</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z7">
<font <%=font_int_tab%>>ZONA</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z10">
<font <%=font_int_tab%>>TIPO</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z15">
<font <%=font_int_tab%>>SUPERFICIE MQ.</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z14">
<font <%=font_int_tab%>>NUMERO VANI</a></font></td>
<td <%=cella_int_tab%>>
<a href="<%=ricaricatab%>&srt=INDICE.Z11">
<font <%=font_int_tab%>>PREZZO IN EURO</a></font></td>
</tr>

<%dim pagina%>
<% Do Until rsOpereList.EOF%>
<tr <%=cella_tab%>>
<%numero=numero+1%>
<td>
<font <%=font_tab%>>

<a href="./dettaglio.asp?
ID_Z3=<%= rsOpereList("ID_Z3")%>
&Z58=<%= rsOpereList("Z58")%>
&ID_Z47=<%= rsOpereList("ID_Z47")%>
&proposta=<%= rsOpereList("Z56")%>
&pic=1">

<%Dim codarea%>

<%if rsOpereList("Z3")="APPARTAMENTI" then%>
<%codarea=1%>
<%
end if
%>
<%if rsOpereList("Z3")="VILLE VILLETTE TERRATETTI" then%>
<%codarea=2%>
<%
end if
%>
<%if rsOpereList("Z3")="COLONICHE TERRENI" then%>
<%codarea=3%>
<%
end if
%>
<%if rsOpereList("Z3")="FONDI NEGOZI" then%>
<%codarea=4%>
<%
end if
%>
<%if rsOpereList("Z3")="CAPANNONI MAGAZZINI" then%>
<%codarea=5%>
<%
end if
%>
<%if rsOpereList("Z3")="GENERICA" then%>
<%codarea=6%>
<%
end if
%>
<%if rsOpereList("Z3")="ATTIVITA' COMMERCIALI" then%>
<%codarea=7%>
<%
end if
%>

<%=codarea%>/<%= rsOpereList("Z56")%>

</a>
</font>
</td>

<%
if rsOpereList("Z62")= 0 and Cint(rsOpereList("Z64"))= 0 then
%>
<td><font <%=font_tab%>></td>
<%
ELSE
%>
<td>
<%if rsOpereList("Z64")> 0 then%>
<font <%=font_tab%>>[img]wmv.gif[/img]
<%if rsOpereList("Z64")> 0 then%>

<%if rsOpereList("Z64")= 1 then%>
<%= rsOpereList("Z64")%>
filmato
<%else%>
<%= rsOpereList("Z64")%>
filmati
<%end if%>
<%end if%>
<%end if%>
<%if rsOpereList("Z62")> 0 then%>
<font <%=font_tab%>>

<%= rsOpereList("Z57")%><%= rsOpereList("Z56")%>N01<%= Seq%>P.JPG">
<%if rsOpereList("Z62")> 0 then%>

<%if rsOpereList("Z62")= 1 then%>
<%= rsOpereList("Z62")%>
immagine
<%else%>
<%= rsOpereList("Z62")%>
immagini
<%end if%>
<%end if%>
<%end if%>
</td>
<%
end if
%>

<%
if rsOpereList("Z60")<>1 then
%>
<td><font <%=font_tab%>></td>
<%
ELSE
%>
<td><font <%=font_tab%>>[img]new.gif[/img]</td>
<%
end if
%>

<td><font <%=font_tab%>><%= rsOpereList("Z3")%></td>
<td><font <%=font_tab%>><%= rsOpereList("Z13")%></td>
<td><font <%=font_tab%>><%= rsOpereList("Z4")%></td>
<td><font <%=font_tab%>><%= rsOpereList("Z5")%></td>
<td><font <%=font_tab%>><%= rsOpereList("Z6")%></td>
<td><font <%=font_tab%>><%= rsOpereList("Z7")%></td>

<td><font <%=font_tab%>><%= rsOpereList("Z10")%></td>

<td><font <%=font_tab%>><%= rsOpereList("Z15")%></td>
<td><font <%=font_tab%>><%= rsOpereList("Z14")%></td>

<%
if rsOpereList("Z61")<>"SI" then
%>
<td><font <%=font_tab%>><%= rsOpereList("Z12")%></td>
<%
ELSE
%>
<td><FONT SIZE=4 COLOR=RED FACE=ARIAL>PREZZO RISERVATO</FONT></td>
<%
end if
%>

</tr>
<% rsOpereList.MoveNext
Loop %>
</table>
</center>
</div>

<%ELSE%>
<CENTER><FORM>
<font color="#000000" face="Arial" size="2">
Non ci sono risultati che rispondono alle richieste inserite!
</font>

<INPUT TYPE="button" VALUE="torna indietro" onClick="history.back()">

</FORM></CENTER>
<%END IF%>

</body>
</html>

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Come posso fare per risolvere il seguente problema ?

Grazie
http://www.linservicecomputer.it
http://www.mediashopcenter.com

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

Ciao raga mi aiutate ?

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

Strumenti discussione

Ricerca discussione

Visualizza

Aggiungere un nuovo campo di ricerca per lettura da db access

Permessi di invio