errore di sintassi LIKE %%

[vekicca]

ciao a tutti,
premetto che di asp ne so proprio poco, chiedo aiuto in questa stringa.

<%
Dim Lista
Dim Lista_numRows

Set Lista = Server.CreateObject("ADODB.Recordset")
Lista.ActiveConnection = MM_ecommerce_STRING
Lista.Source = "SELECT * FROM Prodotti WHERE " + Request.QueryString("Campo") + " LIKE '%" + Request.QueryString("Cosa") + "%'"
Lista.CursorType = 0
Lista.CursorLocation = 2
Lista.LockType = 1
Lista.Open()

Lista_numRows = 0
%>

explorer mi segnala questo errore
Errore di sintassi (operatore mancante) nell'espressione della query 'LIKE '%%''.
grazie

[Roby_72]

Request.QueryString("Cosa") non contiene nulla...

Roby

[vekicca]

posso chiederti maggiori spiegazioni?
cosa dovrei metterci?

il tutto è un modulo di ricerca dove campo è un elenco e cosa è un campo di testo...
grazie

[Roby_72]

Nell'url c'è il parametro "cosa"?
Secondo me no... e quindi lo recuperi vuoto.

Roby

[vekicca]

posso postarti il codice? non so davvero dove guardare..

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Delete Record: declare variables

if (CStr(Request("MM_delete")) = "form2" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_ecommerce_STRING
MM_editTable = "Prodotti"
MM_editColumn = "ID"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = ""

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql delete statement
MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the delete
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
Dim marca
Dim marca_numRows

Set marca = Server.CreateObject("ADODB.Recordset")
marca.ActiveConnection = MM_ecommerce_STRING
marca.Source = "SELECT DISTINCT Categoria FROM Prodotti"
marca.CursorType = 0
marca.CursorLocation = 2
marca.LockType = 1
marca.Open()

marca_numRows = 0
%>
<%
Dim Tipo
Dim Tipo_numRows

Set Tipo = Server.CreateObject("ADODB.Recordset")
Tipo.ActiveConnection = MM_ecommerce_STRING
Tipo.Source = "SELECT DISTINCT Classe FROM Prodotti"
Tipo.CursorType = 0
Tipo.CursorLocation = 2
Tipo.LockType = 1
Tipo.Open()

Tipo_numRows = 0
%>

<%
Dim Lista
Dim Lista_numRows

Set Lista = Server.CreateObject("ADODB.Recordset")
Lista.ActiveConnection = MM_ecommerce_STRING
Lista.Source = "SELECT * FROM Prodotti WHERE " + Request.QueryString("Campo") + " LIKE '%" + Request.QueryString("Cosa") + "%'"
Lista.CursorType = 0
Lista.CursorLocation = 2
Lista.LockType = 1
Lista.Open()

Lista_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Tipo_numRows = Tipo_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 10
Repeat2__index = 0
marca_numRows = marca_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = 10
Repeat3__index = 0
Lista_numRows = Lista_numRows + Repeat3__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>E-commerce - Daviduccio.it - Amministrazione</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../CSS/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>

<body>
<div align="center" class="Stile1">


Lista dei prodotti inseriti: </p>



<input name="Submit2" type="button" style="font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0" onClick="MM_goToURL('parent','default.asp');return document.MM_returnValue" value="Indietro">
</p>
<table width="359" border="1" class="Stile3">
<tr bgcolor="#CCCCCC">
<td width="349">Cerca:</td>
</tr>
<tr bordercolor="#000000">
<td><div align="left">
<form name="form1" method="get" action="proList.asp">
Campo:
<select name="Campo" size="1" id="Campo" style="font-family: Verdana; font-size: 10px">
<option value="Nome" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Nome" = CStr(Request.QueryString("campo"))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Nome</option>
<option value="Descrizione" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Descrizione" = CStr(Request.QueryString("campo"))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Descrizione</option>
<option value="Prezzo_1" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Prezzo_1" = CStr(Request.QueryString("campo"))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Prezzo</option>
<option value="Classe" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Classe" = CStr(Request.QueryString("campo"))) Then Response.Write("selected=""selected""") : Response.Write("")%>>Codice</option>
</select>
Cosa:
<input type="text" name="cosa" size="20" style="font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0">
<input type="submit" name="Submit" value="Cerca" style="font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0">
</form>
</div></td>
</tr>
</table>


</p>


</p>



<% If Not Lista.EOF Or Not Lista.BOF Then %>
<table border="0" class="Stile3">
<tr bgcolor="#CCCCCC">
<td>ID</td>
<td>Nome</td>
<td width="300">Descrizione</td>
<td>Prezzo</td>
<td>Marca</td>
<td>Classe</td>
<td>Eliminazione</td>
</tr>
<% While ((Repeat3__numRows <> 0) AND (NOT Lista.EOF)) %>
<tr bgcolor="<%
If (Repeat3__numRows Mod 2) Then
Response.Write("#ffcc66")
Else
Response.Write("#ffff66")
End IF
%>">
<td><div align="left">&campo=<%=Request.QueryString("campo")%>&cosa=<%=R equest.QueryString("cosa")%>"><%=(Lista.Fields.Ite m("ID").Value)%></div></td>
<td><div align="left">&campo=<%=Request.QueryString("campo")%>&cosa=<%=R equest.QueryString("cosa")%>"><%=(Lista.Fields.Ite m("Nome").Value)%></div></td>
<td width="300"><div align="left">&campo=<%=Request.QueryString("campo")%>&cosa=<%=R equest.QueryString("cosa")%>"><%=(Lista.Fields.Ite m("Descrizione").Value)%></div></td>
<td><div align="left">&campo=<%=Request.QueryString("campo")%>&cosa=<%=R equest.QueryString("cosa")%>"><%=FormatCurrency((L ista.Fields.Item("Prezzo").Value))%></div></td>
<td><div align="left">&campo=<%=Request.QueryString("campo")%>&cosa=<%=R equest.QueryString("cosa")%>"><%=(Lista.Fields.Ite m("Categoria").Value)%></div></td>
<td><div align="left">&campo=<%=Request.QueryString("campo")%>&cosa=<%=R equest.QueryString("cosa")%>"><%=(Lista.Fields.Ite m("Classe").Value)%></div></td>
<td><form name="form2" method="POST" action="<%=MM_editAction%>">
<input type="submit" name="Submit3" value="Elimina" style="font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0">
<input type="hidden" name="MM_delete" value="form2">
<input type="hidden" name="MM_recordId" value="<%= Lista.Fields.Item("ID").Value %>">
</form></td>
</tr>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
Lista.MoveNext()
Wend
%>
</table>
<% End If ' end Not Lista.EOF Or NOT Lista.BOF %>
</div>
</body>
</html>
<%
marca.Close()
Set marca = Nothing
%>
<%
Tipo.Close()
Set Tipo = Nothing
%>
<%
Lista.Close()
Set Lista = Nothing
%>

[Roby_72]

Con la request.querystring recuperi un parametro passato nell'URL (nel link del browser)....
Esiste il parametro "cosa"???? Il codice non c'entra.

Roby

[vekicca]

scusate, ho capito l'errore.
tutti gli IDp dovevano diventare solo ID.
grazie