query di ricerca

[edovox]

Aiuto non riesco risolvere questa maledetta query
Sto cercando di fare un modulo ricerca per il mio db in mysql.
Il browser mostra sempre lo stesso errore ossia richiede

then ma in un punto dove è gia presente !!!!

Cosa sbaglio???? vi prego aiutatemi perchè sto andando fuori di matto.

Grazie.
Segue listato
--------------------------------------------------------------
<%
dim strcognome
strcognome = request.form("cognome")
dim strnome
strnome = request.form("nome")
dim strnome_dominio
strnome_dominio = request.form("nome_dominio")
dim strcontratto_del
strcontratto_del = request.form("contratto_del")

if strcognome =" " then strcognome="%"
if strnome =" " then strnome="%"
if strnome_dominio =" " then strnome_dominio="%"
if strcontratto_del =" " then strcontratto_del="%"
%>

<%
dim rs11
set rs11=server.CreateObject("Adodb.recordset")

Set Conn11 = Server.CreateObject("ADODB.Connection")
Conn11.ConnectionString = "DSN=uteweb"
Conn11.Open

rs11.Source="SELECT * FROM utentiweb WHERE cognome='" & request("cognome") & "' and nome='" & request("nome") & " 'and nome_dominio='" & request("nome_dominio") & "'and contratto_del='" & request("contratto_del") & "';"
rs11.Open ,conn11
if (rs11.EOF) Response.Write("NESSUN DOCUMENTO TROVATO");
Then (!rs11.EOF) {
Response.Write(rs11("nome"));
Response.Write(rs11("cognome"));

rs11.MoveNext();
}

conn11.Close();
%>

[Roby_72]

Hai mischiato VBscript e JS.

Roby

[edovox]

Grazie per la dritta, ma anche se non so dove ho creato tutto ciò in quanto non conosco vbscript, riesci a capire dov'è l'errore??? io non sono in grado.
Grazie per l'aiuto.
ps le pagine che fanno girare questo modulo sono asp.

[Roby_72]

<% 
dim strcognome 
strcognome = request.form("cognome") 
dim strnome 
strnome = request.form("nome") 
dim strnome_dominio 
strnome_dominio = request.form("nome_dominio") 
dim strcontratto_del 
strcontratto_del = request.form("contratto_del") 

if strcognome =" " then strcognome="%" 
if strnome =" " then strnome="%" 
if strnome_dominio =" " then strnome_dominio="%" 
if strcontratto_del =" " then strcontratto_del="%" 

dim rs11 
set rs11=server.CreateObject("Adodb.recordset") 

Set Conn11 = Server.CreateObject("ADODB.Connection") 
Conn11.ConnectionString = "DSN=uteweb" 
Conn11.Open 

rs11.Source="SELECT * FROM utentiweb WHERE cognome='" & request("cognome") & "' and nome='" & request("nome") & " 'and nome_dominio='" & request("nome_dominio") & "'and contratto_del='" & request("contratto_del") & "';" 
rs11.Open ,conn11 
if not rs11.EOF then
do while not rs11.EOF
Response.Write(rs11("nome")) &" "
Response.Write(rs11("cognome")) &"
"
rs11.MoveNext
Loop
else
Response.Write("NESSUN DOCUMENTO 
TROVATO") 
end if
rs11.Close
set rs11=nothing
conn11.Close
set conn11=nothing
%>

Roby

[edovox]

Caro Roby_72 non va! ancora errore segnala errore alla linea 32 ossia:

Response.Write("NESSUN DOCUMENTO TROVATO");

io ho aggiunto il ; ma anche senza non va!

[Roby_72]

Il ; va solo in Jscript quindi scordatelo.
Il fatto è che l'editor del forum ha fatto un po' di casino...

Questo:

Response.Write("NESSUN DOCUMENTO 
TROVATO")

va tutto su una riga:

Response.Write("NESSUN DOCUMENTO TROVATO")

Roby

[edovox]

Intanto grazie mille per le risposte questo portale è sempre la mia salvezza....

Comunque la riga come hai detto tu anche io l'ho scritta tutta su di una sola riga

Response.Write("NESSUN DOCUMENTO TROVATO")

ok anche per il ;

Infatti ora non mi mostra errori
ma restituisce sempre solo Nessun documento trovato

Considerando di immettere valori che realmente sono presenti nel db
Se puoi ancora aiutarmi grazie mille altrimenti ci provo solo e comunque grazie.

[Roby_72]

<% 
dim strcognome 
strcognome = request.form("cognome") 
dim strnome 
strnome = request.form("nome") 
dim strnome_dominio 
strnome_dominio = request.form("nome_dominio") 
dim strcontratto_del 
strcontratto_del = request.form("contratto_del") 

if strcognome =" " then strcognome="%" 
if strnome =" " then strnome="%" 
if strnome_dominio =" " then strnome_dominio="%" 
if strcontratto_del =" " then strcontratto_del="%" 

dim rs11 
set rs11=server.CreateObject("Adodb.recordset") 

Set Conn11 = Server.CreateObject("ADODB.Connection") 
Conn11.ConnectionString = "DSN=uteweb" 
Conn11.Open 

strSQL="SELECT * FROM utentiweb WHERE cognome='" & request("cognome") & "' and nome='" & request("nome") & "' and nome_dominio='" & request("nome_dominio") & "' and contratto_del='" & request("contratto_del") & "';" 
rs11.Open strSQL, conn11 
if not rs11.EOF then
do while not rs11.EOF
Response.Write(rs11("nome")) &" "
Response.Write(rs11("cognome")) &"
"
rs11.MoveNext
Loop
else
Response.Write("NESSUN DOCUMENTO TROVATO") 
end if
rs11.Close
set rs11=nothing
conn11.Close
set conn11=nothing
%>

Cambia TUTTO così. Tieni presente che le condizioni che devono contemporaneamente verificarsi sono 4 non solo nome e cognome.
Hai usato AND come congiunzione quindi devono esistere tutte e 4 contemporaneamente associate ad almeno un record perché ti restituisca qualcosa.

Roby

[edovox]

Sei un mito ma io inserisco tutti e 4 i valori, non avevo considerato
il discorso and se sostituissi con un or andrebbe meglio???
comunque con i 4 volori esatti immessi nei campi non mi trova il dato.

[Roby_72]

Dipende da te. Se ti servono o meno tutti e 4 o se te ne bastano solo due...
Prova allora con OR.

Scrivi poi così, per prova, e dimmi cosa leggi a video:

strSQL="SELECT * FROM utentiweb WHERE cognome='" & request("cognome") & "' and nome='" & request("nome") & "' and nome_dominio='" & request("nome_dominio") & "' and contratto_del='" & request("contratto_del") & "';" 
response.write strSQL:response.end
rs11.Open strSQL, conn11

Roby