errore di sintassi

[quake_84]

ciao,qualcuno sa dirmi dov'è l'errore di sintassi che explorer continua a darmi?

<%
  ord = Request.Querystring("order")
  if ord = "tit" then
  ord = "Titolo" 
  end if
  if ord = "ogg" then
  ord = "Oggetto" 
  end if
  if ord = "data" then
  ord = "Data desc"
  End IF

if lettera <> "" then
SQL="SELECT * From news WHERE Titolo LIKE '" & lettera & "%'"
else
SQL="SELECT * From news ORDER BY "&ord&" "  
end if
%>

l'errore che mi da è:
Syntax error in ORDER BY clause.

/admin/list-news.asp, line 176

e la riga 176 è:

SQL="SELECT * From news ORDER BY "&ord&" "

a me sembra a posto...

[maximum]

Se ord è una stringa va scritto così:

SQL="SELECT * From news ORDER BY '" & ord & "'"

[quake_84]

no,anche così mi da errore

[optime]

fatti stampare la variabile SQL prima di eseguirla

[Roby_72]

Il problema è che "ord" è vuota.

Roby

[maximum]

Lettera cos'è? :master:

[quake_84]

no, ord non è vuota,sono io che ho messo solo una parte di codice...ora lo posto tutto:

<td width="15%" bgcolor="#F8663D" align="center" height="12">
    <font face="Verdana" size="1" color="#FFFFFF"><a href="list-news.asp?order=tit">
    <font color="#FFFFFF">Titolo</font></a></font></td>
    <td width="40%" bgcolor="#F8663D" align="center" height="12">
    <font face="Verdana" size="1" color="#FFFFFF"><a href="list-news.asp?order=ogg">
    <font color="#FFFFFF">Contenuto</font></a></font></td>
    <td width="10%" bgcolor="#F8663D" align="center">
    <font face="Verdana" size="1" color="#FFFFFF"><a href="list-news.asp?order=data">
    <font color="#FFFFFF">Data</font></a></font></td>
    <td width="7%" bgcolor="#F8663D" align="center" height="12">
    <font face="Verdana" size="1" color="#FFFFFF">Modifica</font></td>
    <td width="7%" bgcolor="#F8663D" align="center" height="12">
    <font face="Verdana" size="1" color="#FFFFFF">Elimina</font></td>
  </tr>
  <%
  SQL="SELECT * from news order by data desc, id desc"
  rs.Open sql, conn, 1, 3
  do while not rs.EOF 
  i = i + 1
  rs.movenext
  loop 
       
  if i = 0 then 
  Response.Write("Nessun dato disponibile") 
  else
 
  ord = Request.Querystring("order")
  if ord = "tit" then
  ord = "Titolo" 
  end if
  if ord = "ogg" then
  ord = "Oggetto" 
  end if
  if ord = "data" then
  ord = "Data desc"
  End IF
  
  Dim Page_Size
  Dim Current_Page
  Dim Page_Count

  Page_Size = 4

  If Request("Page") = "" Then
  Current_Page = 1
  Else
  Current_Page = CInt(Request("Page"))
  End If

  Set rs=Server.CreateObject("ADODB.RecordSet")
  rs.CursorLocation = adUseClient
  rs.PageSize = Page_Size
              
  SQL="SELECT * From news order by "&ord&" "  
                             
  rs.Open SQL, conn
  Page_Count = rs.PageCount

  If 1 > Current_Page Then Current_Page = 1
  If Current_Page > Page_Count Then Current_Page = Page_Count

  rs.AbsolutePage = Current_Page

  Do While rs.AbsolutePage = Current_Page And Not rs.EOF

  'inizializzazione del recordset
           
  titolo=rs("Titolo")
  oggetto=rs("Oggetto")
  data=rs("Data")
                  gg = Day(data)
                  mm = Month(data)
                  aaaa = Year(data)
                  data_n = DateSerial(Year(data), Month(data), Day(data))
       %>
       <tr>
         <td width="15%" bgcolor="#DADADA" height="13">
       <%Response.Write(titolo)%><font face="Verdana" size="1" color="#716F6E"> </font>
       </td>
       <td width="40%" bgcolor="#DADADA" height="13">
       <%Response.Write(oggetto)%><font face="Verdana" size="1" color="#716F6E"> </font>
       </td>
       <td width="10%" bgcolor="#DADADA" align="center">
       <%Response.Write(data_n)%><font face="Verdana" size="1" color="#716F6E"> </font>
       </td>
       <td width="7%" bgcolor="#DADADA" height="13">
       <p align="center"><a href="edit.asp?id=<%=rs("id")%>">
       <font color="#716F6E" face="Verdana" size="1">[img]modifica.gif[/img]</font></td>
       <td width="7%" bgcolor="#DADADA" height="13">
       <p align="center"><a href="delete.asp?id=<%=rs("id")%>">
       <font color="#716F6E" face="Verdana" size="1">[img]cancella.gif[/img]</font></td>
       </tr>
       <%
       rs.movenext
       loop
       end if
       rs.close
       set rs = nothing
       
  Response.Write "<center>"
  Response.Write "<td colspan=""10"" align=""center"">

"
  If Current_Page = 1 Then
  Response.Write "<font color='#000000'>Inizio | "
  End If 
  If Current_Page >= 2 Then
  Response.Write "<< Inizio | " & vbCrLf
  End If 
  If Current_Page >= Page_Count Then
  Response.Write "<font color='#000000'>Successiva >|"
  End If 
  If Current_Page < Page_Count Then
  Response.Write "Successiva >" & "|" & vbCrLf
  End IF 
  If Current_Page <> 1 Then
  Response.Write "< Precedente  | " & vbCrLf
  Response.Write " " & vbCrLf
  End If 
  If Current_Page = 1 Then
  Response.Write "<font color='#000000'>< Precedente | "
  End If 
  If Current_Page <> Page_Count Then
  Response.Write "Ultima >>" & vbCrLf
  End If 
  If Current_Page >= Page_Count Then
  Response.Write "Ultima"
  End If 
  %>

questo è quanto.l'errore che continua a darmi è che c'è un errore di sintassi nella riga

SQL="SELECT * From news order by "&ord&" "

ord è una variabile per ordinare i record di una tabella in base a Titolo, Contenuto e Data.

[Roby_72]

"lettera" dove lo prendi?
In che riga ti da errore?

Roby

[quake_84]

lettera lo prendo da un elenco alfabetico (e tutti i relativi link) nella testata della pagina, ma non è quello che mi da problemi.
l'errore che IE mi restituisce è:

Microsoft JET Database Engine error '80040e14'
Syntax error in ORDER BY clause.

/admin/list-news.asp, line 176

allora, la riga 176 in realtà è:

rs.Open SQL, conn, 1, 3

ma, visto che poi la descrizione dell'errore dice che c'è un errore di sintassi nella clausola order by, per forza la riga incriminata è

SQL="SELECT * From news order by "&ord&" "

[Roby_72]

Ma l'hai stampata a videi prima di eseguirla???

SQL="SELECT * From news order by "&ord&" "
response.write (SQL):response.end

Roby