synthax error

[forte78]

Microsoft VBScript compilation error '800a03ea'

Syntax error

/public/elencodati.asp, line 422

strSQL = strSQL & AND visione = 'SI'

come correggerlo?

[Mems]

Vediamo il codice della pagina?

[Mems]

Originariamente inviato da forte78
Microsoft VBScript compilation error '800a03ea'

Syntax error

/public/elencodati.asp, line 422

strSQL = strSQL & AND visione = 'SI'

come correggerlo?

Ah, si...

strSQL = strSQL & " AND visione = 'SI'"

[forte78]

strSQL = strSQL & " AND visione = 'SI' "
strSQL = strSQL & " AND statopratica = 'SOSPESO' "


Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'tipoimmobile Like '%%' AND comune Like '%%' AND quartiere Like '%%' AND zona Like '%%' AND uso Like '%%' AND nuovacostruzione Like '% AND visione = 'SI' AND statopratica = 'SOSPESO' %' AND descrizione Like '%%' AND telefono Like '%%' AND cellulare Like '%%''.

/public/elencodati.asp, line 483

[Mems]

Mancano i valori tra i %

[forte78]

strSQL = strSQL & " AND visione = 'SI' "
strSQL = strSQL & " AND statopratica = 'SOSPESO' "

strSQL = strSQL & "%' AND cognome Like '%" & Trim(Session("cognome")) & "%'"


Questa è come un altro campo della query

[Mems]

Dopo l'ultima concatenazione della stringa strSQL metti

response.write strSQL
response.end

Vediamo sta query composta per intero.

[forte78]

<%
'NUMERO RISULTATI

varmq = Session("mq")
if trim(varmq) <> "" then
mqpiu15 =Replace((varmq*(1.25)) ,",", ".")
mqmen15 =Replace((varmq*(0.75)) ,",", ".")
end if

varprezzo = Session("prezzo")
if trim(varprezzo) <> "" then
prezzopiu15 =Replace((varprezzo*(1.25)) ,",", ".")
prezzomen15 =Replace((varprezzo*(0.75)) ,",", ".")
end if

'*** LA QUERY ************************************************** *********************************
strSQL = "SELECT * FROM immobili WHERE "
strSQL = strSQL & "tipoimmobile Like '%" & Trim(Session("tipoimmobile"))
strSQL = strSQL & "%' AND comune Like '%" & Trim(Session("comune"))
strSQL = strSQL & "%' AND quartiere Like '%" & Trim(Session("quartiere"))
strSQL = strSQL & "%' AND zona Like '%" & Trim(Session("zona"))
strSQL = strSQL & "%' AND uso Like '%" & Trim(Session("uso"))

' --- GIARDINO
If Len(Trim(Session("giardino"))) > 0 Then
strSQL = strSQL & "%' AND giardino Like '%" & Trim(Session("giardino"))
End If
'--- TERRAZZO
If Len(Trim(Session("terrazzo"))) > 0 Then
strSQL = strSQL & "%' AND terrazzo Like '%" & Trim(Session("terrazzo"))
End If

'--- CAMERE DA LETTO
If Len(Trim(Session("cameredaletto"))) > 0 Then
strSQL = strSQL & "%' AND cameredaletto Like '%" & Trim(Session("cameredaletto"))
End If

strSQL = strSQL & "%' AND nuovacostruzione Like '%" & Trim(Session("nuovacostruzione"))
strSQL = strSQL & " AND visione = 'SI' "
strSQL = strSQL & "%' AND descrizione Like '%" & Trim(Session("descrizione"))
strSQL = strSQL & "%' AND telefono Like '%" & Trim(Session("telefono"))
strSQL = strSQL & "%' AND cellulare Like '%" & Trim(Session("cellulare"))
strSQL = strSQL & "%' AND agenzia Like '%" & Trim(Session("agenzia"))
strSQL = strSQL & "%' AND indirizzo Like '%" & Trim(Session("indirizzo"))
strSQL = strSQL & "%' AND livello Like '%" & Trim(Session("livello"))
strSQL = strSQL & "%' AND cognome Like '%" & Trim(Session("cognome")) & "%'"

if trim(varmq) <> "" then
strSQL = strSQL & " AND mq <=" & mqpiu15 & " and mq >=" & mqmen15 & " "
end if

if trim(varprezzo) <> "" then
strSQL = strSQL & " AND prezzo <=" & prezzopiu15 & " and prezzo >=" & prezzomen15 & " "
end if

'strSQL = strSQL &" ORDER BY codiceimmobile DESC"

Select Case Request.QueryString("ord")
Case "codUp"
strSQL = strSQL & " ORDER BY codiceimmobile"
Case "codDown"
strSQL = strSQL & " ORDER BY codiceimmobile DESC"
Case "indUp"
strSQL = strSQL & " ORDER BY indirizzo"
Case "indDown"
strSQL = strSQL & " ORDER BY indirizzo DESC"
Case "comUp"
strSQL = strSQL & " ORDER BY comune"
Case "comDown"
strSQL = strSQL & " ORDER BY comune DESC"
Case "proUp"
strSQL = strSQL & " ORDER BY cognome"
Case "proDown"
strSQL = strSQL & " ORDER BY cognome DESC"
Case "mqUp"
strSQL = strSQL & " ORDER BY mq"
Case "mqDown"
strSQL = strSQL & " ORDER BY mq DESC"
Case "livUp"
strSQL = strSQL & " ORDER BY livello"
Case "livDown"
strSQL = strSQL & " ORDER BY livello DESC"

Case "preUp"
strSQL = strSQL & " ORDER BY prezzo"
Case "preDown"
strSQL = strSQL & " ORDER BY prezzo DESC"
Case Else
strSQL = strSQL & " ORDER BY codiceimmobile ASC"
End Select


'************************************************* *********************************************

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cn
%>

[Mems]

Response.Write strSQL
Response.End

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cn

[forte78]

SELECT * FROM immobili WHERE tipoimmobile Like '%%' AND comune Like '%%' AND quartiere Like '%%' AND zona Like '%%' AND uso Like '%%' AND nuovacostruzione Like '% AND visione = 'SI' %' AND descrizione Like '%%' AND telefono Like '%%' AND cellulare Like '%%' AND agenzia Like '%%' AND indirizzo Like '%%' AND livello Like '%%' AND cognome Like '%%' ORDER BY codiceimmobile ASC

no sempre questo