Salve non riesco a risolvere questo errore quando voglio ordinare i risultati per data
Microsoft OLE DB Provider for SQL Server error '80040e14'
Unclosed quotation mark before the character string 'ORDER BY DataPubblicazioneASC'.
/listaGiuris.asp, line 220
invio un pò di codice
<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="Connections/TaxusDB.asp" -->
<%
if Request.form("Archivia") = "true" then
set Leggi = Server.CreateObject("ADODB.Recordset")
Leggi.ActiveConnection = MM_TaxusDB_STRING
Leggi.Source = "SELECT * FROM DocArchiviati WHERE IdDocumento = "& request("IdDocumento") & " AND IdCliente = " & Session("IdCLiente") & " AND Tipodocumento = " & Request("TipoDocumento")
Leggi.CursorType = 2
Leggi.CursorLocation = 2
Leggi.LockType = 3
Leggi.Open()
If Leggi.EOF then
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_TaxusDB_STRING
MM_editCmd.CommandText = "INSERT INTO DocArchiviati (IdCliente,IdDocumento,TipoDocumento) values ( " & Session("IdCliente") & ", " & Request("IdDocumento") & ", " & request("TipoDocumento") & ")"
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
end if
Leggi.Close
response.REDIRECT("ArchiviatoOk.asp")
end if
%>
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
TipoNumero = "ASC"
TipoData = "ASC"
if request.querystring("OrdineData") <> "" then
ORDINE = "ORDER BY DataPubblicazione" & request.querystring("OrdineData")
if request.querystring("OrdineData") = "ASC" then TipoData = DESC else TipoData = ASC
end if
if request.querystring("OrdineNumero") <> "" then
'ORDINE = "ORDER BY NumeroLegge " & request.querystring("OrdineNumero")
ORDINE = "ORDER BY Tipologia " & request.querystring("OrdineNumero")
if request.querystring("OrdineNumero") = "ASC" then TipoNumero = "DESC" else TipoNumero = "ASC"
end if
if request.querystring("Ricerca") = "" then
if request("IdTipologia") <> "" then
tipologie = split(request("IdTipologia"),",")
RICERCA = RICERCA & " IdTipologia = " & tipologie(0)
for x = 1 to UBound(tipologie)
RICERCA = RICERCA & " OR IdTipologia = " & tipologie(x)
next
end if
if request("IdIndice") <> "" then
Organo = split(request("IdIndice"),",")
RICERCA2 = RICERCA2 & " IdIndice = " & Organo(0)
for x = 1 to UBound(Organo)
RICERCA2 = RICERCA2 & " OR IdIndice = " & Organo(x)
next
end if
if request("IdFonte") <> "" then
Fontez = split(request("IdFonte"),",")
RICERCA3 = RICERCA3 & " IdFonte = " & Fontez(0)
for x = 1 to UBound(Fontez)
RICERCA3 = RICERCA3 & " OR IdFonte = " & Fontez(x)
next
end if
if request("radiobutton") <> "2" and request("radiobutton") <> "" then
if request("radiobutton") = "0" then
ricerca4 = " DataPubblicazione " & request("OperatoreData") & "'" & request("DataSingola") & "'"
else
ricerca4 = " DataPubblicazione BETWEEN '" & request("DataDal") & "' AND '" & request("DataAl") & "'"
end if
end if
if request("TitoloParole") <> "" then
if instr(1,request("TitoloParole"),"+") > 1 or instr(1,request("TitoloParole"),"&") > 1 then
if instr(1,request("TitoloParole"),"+") > 1 then
corpi = split(request("TitoloParole"),"+")
RICERCA5 = RICERCA5 & " CONTAINS(Titolo,'""" & corpi(x) & """ "
for x = 1 to UBound(corpi)
RICERCA5 = RICERCA5 & " OR """ & corpi(x) & """ "
next
RICERCA5 = RICERCA5 & "')"
else
corpi = split(request("TitoloParole"),"&")
RICERCA5 = RICERCA5 & " CONTAINS(Titolo,'""" & corpi(x) & """ "
for x = 1 to UBound(corpi)
RICERCA5 = RICERCA5 & " AND """ & corpi(x) & """ "
next
RICERCA5 = RICERCA5 & "')"
end if
else
RICERCA5 = RICERCA5 '& "CONTAINS(Titolo,'""" & request("TitoloParole") & """')"
'CONTAINS(Titolo,'""" & request("TitoloParole") & """')"
end if
end if
if request("CorpoParole") <> "" then
if instr(1,request("CorpoParole"),"+") > 1 or instr(1,request("CorpoParole"),"&") > 1 then
if instr(1,request("CorpoParole"),"+") > 1 then
corpi = split(request("CorpoParole"),"+")
RICERCA6 = RICERCA6 & " CONTAINS(Corpo,'""" & corpi(x) & """ "
for x = 1 to UBound(corpi)
RICERCA6 = RICERCA6 & " OR """ & corpi(x) & """"
next
RICERCA6 = RICERCA6 & "')"
else
corpi = split(request("CorpoParole"),"&")
RICERCA6 = RICERCA6 & " CONTAINS(Corpo,'""" & corpi(x) & """"
for x = 1 to UBound(corpi)
RICERCA6 = RICERCA6 & " AND """ & corpi(x) & """"
next
RICERCA6 = RICERCA6 & "')"
end if
else
'RICERCA6 = RICERCA6 & " CONTAINS(Corpo,'""" & request("CorpoParole") & """')"
parole = request("CorpoParole")
RICERCA6 = RICERCA6 & "CONTAINS(Corpo,'""" & parole & """' )"
end if
end if
if request("NumeroLegge") <> "" then
RICERCA7 = RICERCA7 & " NumeroGiuris = '" & request("NumeroLegge") & "'"
end if
if request("IdCategoria") <> "" then
Categ = split(request("IdCategoria"),",")
RICERCA8 = RICERCA8 & " IdCategoria = " & Categ(0)
for x = 1 to UBound(Categ)
RICERCA8 = RICERCA8 & " OR IdCategoria = " & Categ(x)
next
end if
if request("IdRegione") <> "" then
Regione = split(request("IdRegione"),",")
RICERCA9 = RICERCA9 & " IdRegione = " & Regione(0)
for x = 1 to UBound(Regione)
RICERCA9 = RICERCA9 & " OR IdRegione = " & Regione(x)
next
end if
if request("IdCodice") <> "" then
Codice = split(request("IdCodice"),",")
RICERCA10 = RICERCA10 & " IdCodice = " & Codice(0)
for x = 1 to UBound(Codice)
RICERCA10 = RICERCA10 & " OR IdCodice = " & Codice(x)
next
end if
'------------------------------------------------------------
ric = " WHERE "
if ricerca <> "" then ricerca = " (" & ricerca & ")"
if ricerca2 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca2 & ")"
end if
if ricerca3 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca3 & ")"
end if
if ricerca4 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca4 & ")"
end if
if ricerca5 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca5 & ")"
end if
if ricerca6 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca6 & ")"
end if
if ricerca7 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca7 & ")"
end if
if ricerca8 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca8 & ")"
end if
if ricerca9 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca9 & ")"
end if
if ricerca10 <> "" then
if ricerca <> "" then ricerca = ricerca & " AND "
ricerca = ricerca & " (" & ricerca10 & ")"
end if
'------------------------------------------------------------
if ricerca <> "" OR ricerca2 <> "" OR ricerca3 <> "" OR ricerca4 <> "" OR ricerca5 <> "" OR ricerca6 <> "" OR ricerca7 <> "" OR ricerca8 <> "" OR ricerca9 <> "" OR ricerca10 <> "" then ricerca = " WHERE " & ricerca
else
ricerca = request.querystring("ricerca")
end if
set Leggi = Server.CreateObject("ADODB.Recordset")
Leggi.ActiveConnection = MM_TaxusDB_STRING
Leggi.Source = "SELECT Giurisprudenza.Id, Giurisprudenza.IdTipologia, Giurisprudenza.NumeroGiuris, Giurisprudenza.Titolo, Giurisprudenza.DataPubblicazione,TipologiaGiuris.Tipologia FROM dbo.Giurisprudenza INNER JOIN TipologiaGiuris ON Giurisprudenza.IdTipologia=TipologiaGiuris.ID " & RICERCA & ORDINE
Leggi.CursorType = 2
Leggi.CursorLocation = 3
Leggi.LockType = 3
Application.lock
Leggi.Open()
Application.unlock
Leggi_numRows = 0
%>
<%
Vi ringrazio anticipatamente
