if sel_ses = "" and sel_reg = "*" and sel_prov = "*" then

[Lino80]

sel_ses = request.form("immobile")
sel_reg = request.form("località")
sel_prov = request.form("prezzo")

Dim strRicerca
if sel_ses = "" and sel_reg = "*" and sel_prov = "*" then
strRicerca = " ORDER BY ID"
else

if sel_ses = "" and sel_reg = "*" and sel_prov = "*" then
strRicerca = " ORDER BY ID"

questa parte di codice significa:

se hai selezionato il campo "immobile" e "località" e "prezzo"

stampa a video tutti i risultati, e così o no?

grazie

[Roby_72]

Difficile dirlo...

Roby

[Lino80]

come mai è difficile dirlo?

<%
dim objConn
set objConn = server.createobject("ADODB.Connection")
objConn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&_
Server.MapPath("mdb-database\ecom.mdb")
sel_ses = request.form("immobile")
sel_reg = request.form("località")
sel_prov = request.form("prezzo")

Dim strRicerca
if sel_ses = "" and sel_reg = "*" and sel_prov = "*" then
strRicerca = " ORDER BY ID"
else
if sel_ses = "" and sel_reg <> "*" and sel_prov = "*" then
strRicerca = " WHERE località = '"& sel_reg &"' ORDER BY ID"
else
if sel_ses <> "" and sel_reg = "*" and sel_prov = "*" then
strRicerca = " WHERE immobile = '"& sel_ses &"' ORDER BY ID"
else
if sel_ses <> "" and sel_reg <> "*" and sel_prov = "*" then
strRicerca = " WHERE immobile = '"& sel_ses &"' OR località ='"& sel_reg &"' ORDER BY ID"
else
if sel_ses <> "" and sel_reg <> "*" and sel_prov <> "*" then
strRicerca = " WHERE immobile = '"& sel_ses &"' OR località ='"& sel_reg & "' OR prezzo ='"& sel_prov & "' ORDER BY ID"
end if
end if
end if
end if
end if

iPageSize = 2 'NUMERO RECORD PER PAGINA

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If


dim objRS, strSQL
set objRS = server.createobject("ADODB.Recordset")
strSQL = "SELECT * FROM tabella"
strSQL = strSQL & strRicerca
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objRS.recordcount
iPageCount = objRS.PageCount
%>

vorrei capire il funzionamento... prendiamo questa stringa:

if sel_ses <> "" and sel_reg <> "*" and sel_prov = "*" then
strRicerca = " WHERE immobile = '"& sel_ses &"' OR località ='"& sel_reg &"' ORDER BY ID"

chi mi sa dire praticamente come si comporta e come interagisce col db?

[Roby_72]

Stampati la query e lo vedi.
Cos'è un concorso a premi?

Roby

[Mems]

Originariamente inviato da Roby_72
Stampati la query e lo vedi.
Cos'è un concorso a premi?

Roby

[Santino83_02]

Originariamente inviato da Lino80
vorrei capire il funzionamento... prendiamo questa stringa:

if sel_ses <> "" and sel_reg <> "*" and sel_prov = "*" then
strRicerca = " WHERE immobile = '"& sel_ses &"' OR località ='"& sel_reg &"' ORDER BY ID"

chi mi sa dire praticamente come si comporta e come interagisce col db?

mah di per se, se le condizioni sono rispettate, la stringa assume quel valore e di conseguenza farà ricavare dal db i dati che rispecchiano quella where...

tocca ora da vedere se ne contesto (o algoritmo) in cui è immersa la condizione, questa mantenga sia il suo senso d'essere che la sua correttezza logica...


che ho vinto che ho vinto che ho vinto?

[Roby_72]

Niente! Non hai risposto... squalificato.

Roby

[Lino80]

ho stampato la query così:

<%
dim objConn
set objConn = server.createobject("ADODB.Connection")
objConn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&_
Server.MapPath("mdb-database\ecom.mdb")
sel_ses = request.form("immobile")
sel_reg = request.form("località")
sel_prov = request.form("prezzo")

Dim strRicerca
if sel_ses = "" and sel_reg = "*" and sel_prov = "*" then
strRicerca = " ORDER BY ID"
else
if sel_ses = "" and sel_reg <> "*" and sel_prov = "*" then
strRicerca = " WHERE località = '"& sel_reg &"' ORDER BY ID"
else
if sel_ses <> "" and sel_reg = "*" and sel_prov = "*" then
strRicerca = " WHERE immobile = '"& sel_ses &"' ORDER BY ID"
else
if sel_ses <> "" and sel_reg <> "*" and sel_prov = "*" then
strRicerca = " WHERE immobile = '"& sel_ses &"' OR località ='"& sel_reg &"' ORDER BY ID"
else
if sel_ses <> "" and sel_reg <> "*" and sel_prov <> "*" then
strRicerca = " WHERE immobile = '"& sel_ses &"' OR località ='"& sel_reg & "' OR prezzo ='"& sel_prov & "' ORDER BY ID"
end if
end if
end if
end if
end if
response.write strRicerca 
iPageSize = 2 'NUMERO RECORD PER PAGINA

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If


dim objRS, strSQL
set objRS = server.createobject("ADODB.Recordset")
strSQL = "SELECT * FROM tabella"
strSQL = strSQL & strRicerca
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
reccount = objRS.recordcount
iPageCount = objRS.PageCount
%>

è giusto o sbagliato prof. Bill Gates??

quando vado ad avviare la ricerca, selezionando

Tipologia: TUTTI
Località: TRECASTAGNI
Prezzo: TUTTI

non mi stampa nulla a video..come mai?

[Santino83_02]

fatti stampare STRSQL

[Roby_72]

Quindi in quel ginepraio di IF non ci entra.
Cmq:

IF THEN
ELSEIF THEN
ELSEIF THEN
ELSE
END IF

Roby