Expected end of statement

**luchett** · 02-12-2004, 10:31

Ciao ragazzi.

Mi da questo errore in corrispondenza di una query:

codice:

Materie.Source = "SELECT *  FROM MaterieCorso  WHERE WHERE Cat = "b" AND Corso = " + Replace(Materie__PAR1, "'", "''") + " AND Gruppo = " + Replace(Materie__PAR2, "'", "''") + ""

Cosa sbaglio?

**Roby_72** · 02-12-2004, 10:34

codice:

Materie.Source = "SELECT *  FROM MaterieCorso  WHERE WHERE Cat = 'b' AND Corso = '" + Replace(Materie__PAR1, "'", "''") + "' AND Gruppo = '" + Replace(Materie__PAR2, "'", "''") + "'"

Roby

**luchett** · 02-12-2004, 10:45

uffa!

ora non mi dà più l'errore ma non mi visualizza la pagina e non mi restituisce un altro errore.

Che vuoldire?

**luchett** · 02-12-2004, 13:10

Ora mi dà il seguente errore:

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

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/pagine_01/corsodett.asp, line 91

ILcodice è il seguente

codice:

<%@LANGUAGE="VBSCRIPT"%>


<%
Dim Corsi
Dim Corsi_numRows

Set Corsi = Server.CreateObject("ADODB.Recordset")
Corsi.ActiveConnection = MM_ComLazio_STRING
Corsi.Source = "SELECT IdMsg, Titolo, Descrizione  FROM Corsi"
Corsi.CursorType = 0
Corsi.CursorLocation = 2
Corsi.LockType = 1
Corsi.Open()

Corsi_numRows = 0
%>
<%
Dim DettCorsiPagina__PAR1
DettCorsiPagina__PAR1 = "46"
If (request.querystring("dettmsg")   <> "") Then 
  DettCorsiPagina__PAR1 = request.querystring("dettmsg")  
End If
%>
<%
Dim DettCorsiPagina__PAR2
DettCorsiPagina__PAR2 = "52"
If (request.querystring("idmsg")   <> "") Then 
  DettCorsiPagina__PAR2 = request.querystring("idmsg")  
End If
%>
<%
Dim DettCorsiPagina
Dim DettCorsiPagina_numRows

Set DettCorsiPagina = Server.CreateObject("ADODB.Recordset")
DettCorsiPagina.ActiveConnection = MM_ComLazio_STRING
DettCorsiPagina.Source = "SELECT *  FROM MaterieCorso  WHERE Corso = " + Replace(DettCorsiPagina__PAR1, "'", "''") + " AND Gruppo = " + Replace(DettCorsiPagina__PAR2, "'", "''") + ""
DettCorsiPagina.CursorType = 0
DettCorsiPagina.CursorLocation = 2
DettCorsiPagina.LockType = 1
DettCorsiPagina.Open()

DettCorsiPagina_numRows = 0
%>
<%
Dim menucor__MMPAR
menucor__MMPAR = "46"
If (Request.querystring("dettmsg")  <> "") Then 
  menucor__MMPAR = Request.querystring("dettmsg") 
End If
%>
<%
Dim menucor
Dim menucor_numRows

Set menucor = Server.CreateObject("ADODB.Recordset")
menucor.ActiveConnection = MM_ComLazio_STRING
menucor.Source = "SELECT *  FROM menucorsi  WHERE IdMsg = " + Replace(menucor__MMPAR, "'", "''") + ""
menucor.CursorType = 0
menucor.CursorLocation = 2
menucor.LockType = 1
menucor.Open()

menucor_numRows = 0
%>
<%
Dim Materie__PAR2
Materie__PAR2 = "1"
If (request.querystring("idmsg")   <> "") Then 
  Materie__PAR2 = request.querystring("idmsg")  
End If
%>
<%
Dim Materie__PAR1
Materie__PAR1 = "2"
If (request.querystring("dettmsg")   <> "") Then 
  Materie__PAR1 = request.querystring("dettmsg")  
End If
%>
<%
Dim Materie
Dim Materie_numRows

Set Materie = Server.CreateObject("ADODB.Recordset")
Materie.ActiveConnection = MM_ComLazio_STRING
Materie.Source = "SELECT *  FROM MaterieCorso  WHERE Cat = 'b' AND Corso = '" + Replace(Materie__PAR1, "'", "''") + "' AND Gruppo = '" + Replace(Materie__PAR2, "'", "''") + "'"
Materie.CursorType = 0
Materie.CursorLocation = 2
Materie.LockType = 1
Materie.Open()

Materie_numRows = 0
%>
<%
Dim Materieb
Dim Materieb_numRows

Set Materieb = Server.CreateObject("ADODB.Recordset")
Materieb.ActiveConnection = MM_ComLazio_STRING
Materieb.Source = "SELECT *  FROM MaterieCorso  WHERE Cat = 'a' AND Corso = '" + Replace(Materie__PAR1, "'", "''") + "' AND Gruppo = '" + Replace(Materie__PAR2, "'", "''") + "'"
Materieb.CursorLocation = 2
Materieb.LockType = 1
Materieb.Open()

Materieb_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Corsi_numRows = Corsi_numRows + Repeat1__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
Materie_numRows = Materie_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index

Repeat4__numRows = -1
Repeat4__index = 0
Materieb_numRows = Materieb_numRows + Repeat4__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
menucor_numRows = menucor_numRows + Repeat2__numRows
%>
<html>
<head>
<title><%=(DettCorsiPagina.Fields.Item("Titolo").Value)%> -  Regione Lazio ENTE REGIONALE PER LA COMUNICAZIONE "Istituto Montecelio"</title>
<meta http-equiv="Content-Type" content="text/html;">
<meta name="description" content="Corsi regionali diretti alla creazione di addetti alla comunicazione. Un particolare riguardo viene rivolto alle nuove tecniche di comunicazione multimediale.">
<link href="../css/comunicazione_01.css" rel="stylesheet" type="text/css">
<meta name="keywords" content="Internet, corsi, multimedialità, Lazio, televisione, gratuiti, regione Lazio, diploma">
</head>
<body bgcolor="#d0d9e6" >
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="tabellatestata">
  <tr>
    <td width="148">[img]../images/master02/logomontecelio.gif[/img]</td>
    <td width="350" align="right">
      
        <table width="100%" border="0" cellspacing="6" cellpadding="0">
        <tr>
          <td class="cellebordatemenusup">mappa del sito</td>
          <td class="cellebordatemenusup">info</td>
          <form name="form1" method="get" action="../pagine_01/cerca.asp"><td>
		  <table width="150" border="0" cellpadding="2" cellspacing="0" class="cellebordatemenusup">
              <tr valign="middle">
                <td align="right">
                  <input name="cerca" type="text" id="cerca" size="10">
                </td>
                <td>                  <input name="imageField" type="image" class="bottonecerca" src="../images/master02/cerca.gif" width="54" height="20" border="0"></td>
              </tr>
          </table></td></form>
        </tr>
    </table></td>
    <td align="right"></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr valign="top">
    <td width="600">
      <table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="tabellamenu"><table width="600" border="0" cellspacing="0" cellpadding="5">
            <tr align="center">
              <td>[img]../images/master02/home.gif[/img]</td>
              <td>[img]../images/master02/corsi.gif[/img]</td>
              <td>[img]../images/master02/informazioni.gif[/img]</td>
              <td>[img]../images/master02/istituzionale.gif[/img]</td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td height="24" class="tabellanavigazione">... &gt; ... &gt; "><%=(DettCorsiPagina.Fields.Item("TitoloCorso").Value)%>&gt; <%=(DettCorsiPagina.Fields.Item("Titolo").Value)%></td>
        </tr>
        <tr>
          <td>[img]../images/master02/barra.gif[/img]</td>
        </tr>
        <tr>
          <td valign="top" class="corpocentrale">
            <table width="100%" border="0" cellspacing="4" cellpadding="0">
              <tr valign="top">
                <td align="center" class="cellebordatetitolo"><%=(DettCorsiPagina.Fields.Item("CorsoTitolo").Value)%>
                  
                  <%=(DettCorsiPagina.Fields.Item("GruppoTitolo").Value)%>

                <%=(DettCorsiPagina.Fields.Item("MateriaTitolo").Value)%></td>
              </tr>
              <tr valign="top">
                <td class="cellebordatemenusup">
                  <% 
While ((Repeat2__numRows <> 0) AND (NOT menucor.EOF)) 
%>
                  <% if (menucor.Fields.Item("Pieno").Value) = "1" then %>
                  &idmsg=<%=(menucor.Fields.Item("MessCorr").Value)%>&idtipo=<%=(menucor.Fields.Item("IdTipo").Value)%>" title="Per maggiori informazioni clicca qui">[img]../images/puntoelencosfondoBianco/rosso.gif[/img]<%=(menucor.Fields.Item("Titolo").Value)%>

                  

                  <%else%>
                  &idmsg=<%=(menucor.Fields.Item("MessCorr").Value)%>&idtipo=<%=(menucor.Fields.Item("IdTipo").Value)%>" title="ATTENZIONE Sezione in Allestimento">[img]../images/puntoelencosfondoBianco/attenzione.gif[/img]<%=(menucor.Fields.Item("Titolo").Value)%>

                  

                  <%end if%>
                  <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  menucor.MoveNext()
Wend
%><a href="infocorsi.asp?InfoCorso=<%=(DettCorsiPagina.Fields.Item("TitoloCorso").Value)%>">[img]../images/puntoelencosfondoBianco/rosso.gif[/img]Richiesta maggiori informazioni
                </a>
</td>
              </tr>
              <tr valign="top">
                <td class="cellebordate"><%=(DettCorsiPagina.Fields.Item("ContenutoCorr").Value)%>
                  <% 
While ((Repeat3__numRows <> 0) AND (NOT Materie.EOF)) 
%>
                  

<%=(Materie.Fields.Item("MateriaTitolo").Value)%></p>
				  <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  Materie.MoveNext()
Wend
%>
    <% 
While ((Repeat4__numRows <> 0) AND (NOT Materieb.EOF)) 
%>             
				  

<%=(Materieb.Fields.Item("MateriaTitolo").Value)%></p>
				  <% 
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  Materieb.MoveNext()
Wend
%>
</td>
              </tr>
</table></td>
        </tr>
    </table></td>    <td class="tabellalaterale">
	<table width="100%" border="0" cellpadding="0" cellspacing="0"><tr>
        <td class="menulattest"><a href="areacorsi.asp">Area
            Corsi</a></td>
        </tr>
        <% 
While ((Repeat1__numRows <> 0) AND (NOT Corsi.EOF)) 
%>
      <tr>
        <%
		corsotmp=(Corsi.Fields.Item("Titolo").Value)
		corsotmp = Replace(corsotmp,"

","")
		corsotmp = Replace(corsotmp,"</p>","")
		%>
        <td class="menulat">" title="<%=corsotmp%>">[img]../images/puntoelencosfondoBianco/rosso.gif[/img]<%=corsotmp%>

          
</td>
</tr>
        <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Corsi.MoveNext()
Wend
%>
    </table>

	</td>
  </tr>
  <tr>
    <td>[img]../images/master02/barra2.gif[/img]</td>
    <td background="../images/master02/barralaterale.gif">[img]../images/master02/barralaterale.gif[/img]</td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr align="center" valign="middle">
        <td width="99" height="50">[img]../images/master02/reglazio.gif[/img]</td>

    <td height="50" align="left" valign="middle" class="note"><a href="areaistituzionale.asp" title="Il chi siamo dell'istituto">Istituto
        Montecelio</a> Piazza Rondanini,
    48 00186-ROMA - Tutti i diritti riservati

       Partner - Organigramma - Sedi

       <a href="note.asp">Note
    Legali</a> - Informativa sulla Privacy</td>
    
    <td width="85">[img]../images/loghi/lamware.gif[/img]</td>
  </tr>
</table>
</body>
</html>
<%
Corsi.Close()
Set Corsi = Nothing
%>
<%
DettCorsiPagina.Close()
Set DettCorsiPagina = Nothing
%>
<%
menucor.Close()
Set menucor = Nothing
%>
<%
Materie.Close()
Set Materie = Nothing
%>
<%
Materieb.Close()
Set Materieb = Nothing
%>

**Roby_72** · 02-12-2004, 15:09

Gli script generati con DW MX sono illegibili.

Roby

**Ohmnibus** · 02-12-2004, 17:24

Ad occhio parrebbe che nella tabella MaterieCorso i campi Cat , Corso e Gruppo non siano tutti testuali, come invece specifichi nella stringa...

**luchett** · 02-12-2004, 17:57

Intanto grazie della risposta.

No infatti Gruppo e Corso sono numerici.

Quindi la query era scritta bene in precedenza?

**Roby_72** · 02-12-2004, 18:00

codice:

Materie.Source = "SELECT *  FROM MaterieCorso WHERE WHERE Cat = 'b' AND Corso = " + Replace(Materie__PAR1, "'", "''") + " AND Gruppo = " + Replace(Materie__PAR2, "'", "''") + ""

La replace però a quel punto non serve.

Roby

Discussione: Expected end of statement

Strumenti discussione

Ricerca discussione

Visualizza

Expected end of statement

Permessi di invio