Condizione if in una query select

[Enrique_Rojas]

Scusate perchè questa query non estra niente?:

NOME = Request.form("NOME")
COGNOME = Request.form("COGNOME")

response.write NOME
response.write COGNOME

Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"dxxx.mdb")
Dim SQL, REC

if NOME = "TUTTI" then
SQL = "select * from Lista order by NOME asc"
Set REC = Conn.Execute(SQL)

if COGNOME = "TUTTI" then
SQL = "select * from Lista order by COGNOME asc"
Set REC = Conn.Execute(SQL)

end if
end if
.....

[dado86ssj]

Il codice sembra giusto, che valori hanno le variabili nome e cognome quando non visualizzi niente?
Ricevi una pagina vuota oppure un errore??

[99eros9]

forse perchè le condizioni non sono soddisfatte. Comunque devi anche chiudere e ripulire il recordset visto che si possono verificare anche tutte.
Ricevi qualche errore in particolare?

[vaargard]

NOME = Request.form("NOME")
COGNOME = Request.form("COGNOME")

response.write NOME
response.write COGNOME

Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"dxxx.mdb")
Dim SQL, REC

if NOME = "TUTTI" then
  SQL = "select * from Lista order by NOME asc"
end if

if COGNOME = "TUTTI" then
  SQL = "select * from Lista order by COGNOME asc"
end if


Set REC = Conn.Execute(SQL)
.....

[optime]

perche' nidifichi le if? non mi sembra l'approccio giusto...

[vaargard]

nel tuo caso se nome='Tutti' e cognome = tutti esegui due query sullo stesso oggetto recordset ... è strano che non ti dia errore!!!

[Enrique_Rojas]

Grazie, non ricevo errori solo che la query non estrae nulla... il principio è che dal form NOME o COGNOME seleziono il valore "TUTTI" la query dovrebbe restituirmi tutti i records... con response write il valore arriva giusto però records estratti = 0

[optime]

sappiamo cosa deve fare lo script se nome e/o cognome contengono TUTTI. e se contengono qualcos'altro?

[dado86ssj]

Originariamente inviato da optime
perche' nidifichi le if? non mi sembra l'approccio giusto...

Una volta fatto il controllo sui nomi, se non ne esiste nessuno è inutile rifarlo anche sui cognomi...

[Enrique_Rojas]

roba da matti... o sono rimbambito o non so che...

NOME = Request.form("NOME")
COGNOME = Request.form("COGNOME")

response.write NOME
response.write COGNOME

Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"dxxx.mdb")
Dim SQL, REC

if NOME = "TUTTI" then
  SQL = "select * from Lista order by NOME asc"
end if

if COGNOME = "TUTTI" then
  SQL = "select * from Lista order by COGNOME asc"
end if


Set REC = Conn.Execute(SQL)
.....

la query non estrae nulla e nel dbase ho più di 1300 records...