Nuovo problema inatteso (vado fuori di testa)

**uomoragno2** · 20-05-2004, 20:37

Ciao a tutti, ho aggiunto un paio di righe al mio codice e mi sta dando questo errore:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/prova/aggiornamenti/catalogo_aggiungi.asp, line 124

Credo che indichi la mancanza di un end if.
Il problema è che il codice ha un solo if e un end if.

Non ci sto capendo più nulla... è già il secondo errore per il quale non riesco a darmi una spiegazione.

Secondo voi cosa può essere?
Fatemi sapere.

GRazie.

**uomoragno2** · 20-05-2004, 20:49

Vi spiego meglio come mi da l'errore.
Praticamente ho il mio codice perfettamente funzionante; faccio la copia di un pezzo, perchè mi serve, e non mi accetta più nulla.

Il pezzo incriminato è questo,che riesco a ripetere per 3 volte e alla quarta va in errore:

codice:

  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <%
Response.Write("<select name=Ccategoria3>")
Response.Write("<option></option>")
rs2.movefirst
while not rs2.eof
Response.Write("<option>" & rs2("titolo") & "</option>")
rs2.movenext
wend
Response.Write("</select>")
%>
    </font></td>
  </tr>

Fatemi sapere.

**teorema55** · 20-05-2004, 23:23

Ho provato il tuo codice e va benissimo, non gli manca proprio niente.........quindi se ti da' un errore, il motivo deve risiedere (la butto lì.....) nei dati contenuti nel db o nel settaggio, apertura, chiusura, ecc. degli oggetti connessione e recordset....
la select viene popolata egregiamente con i contenuti del (mio) database.

**uomoragno2** · 21-05-2004, 09:13

Ciao, sono tornato... sono d'accordo con quanto detto teorema55, la select viene popolata benissimo; il problema nace quando di select ne metto 5 e oltre ad esse la pagina ha altri campi di input.
Praticamente se il codice va oltre le 300 righe si impalla.
E' un problema che ho avuto anche tre giorni fa con una altra pagina asp e che nessuno è riuscito a spiegarsi.
Bo bo se trovate qualcosa fatemi sapere.
Grazie mille.

**uomoragno2** · 21-05-2004, 09:34

**albis** · 21-05-2004, 09:37

posta tutto il codice nella versione che ti dà errore

**uomoragno2** · 21-05-2004, 09:44

Questo è il codice:
ho modificato solo password e id del datatbase.
Vorrei sottolinere, se può essere d'aiuto, che in locale non mi da alcun problema, mi da errore in hosting (su Aruba).

codice:

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>AGGIUNGI PRODOTTO</title>
<style> 
body{ 
padding:0; 
margin:0;
width:100%; 
height:100%; 
scrollbar-face-color: #70180A; 	
scrollbar-shadow-color: #000000; 
scrollbar-highlight-color: #70180A; 
scrollbar-3dlight-color: #000000; 	
scrollbar-darkshadow-color: #000000;  
scrollbar-track-color: #2b0000; 
scrollbar-arrow-color: #000000;
border-left:1px solid #5C5B4E; 
border-right:1px solid #5C5B4E; 
border-top:1px solid #5C5B4E; 
border-bottom:1px solid #5C5B4E; 	
} 
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="stile.css" rel="stylesheet" type="text/css">
<link href="stilenero.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#690101">
<%
dim co 
set co = server.createObject("ADODB.Connection") 
co.Open "Driver={MySQL ODBC 3.51 Driver};server=62.149.115.12;port=3306;Database=AA;UID=Sql35582;PWD=AA" 
dim rs 
strq = "select count(*) as variabile from catalogocategorie" 
strq2 = "select * from catalogocategorie order by titolo" 
set rs = co.execute(strq) 
set rs2 = co.execute(strq2)

totrec = rs(0)
if totrec > 0 then
%>
<form action="catalogo_aggiungi2.asp" method="post" enctype="multipart/form-data" name="mioform">
<table width="100%" border="0" align="center" bgcolor="#690101">
  <tr>
    <td width="100%" bgcolor="#690101"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Categoria</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <%
Response.Write("<select name=campocategoria>")
rs2.movefirst
while not rs2.eof
Response.Write("<option>" & rs2("titolo") & "</option>")
rs2.movenext
wend
Response.Write("</select>")
%>
    </font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Categoria</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <%
Response.Write("<select name=Ccategoria2>")
Response.Write("<option></option>")
rs2.movefirst
while not rs2.eof
Response.Write("<option>" & rs2("titolo") & "</option>")
rs2.movenext
wend
Response.Write("</select>")
%>
    </font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Categoria</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <%
Response.Write("<select name=Ccategoria3>")
Response.Write("<option></option>")
rs2.movefirst
while not rs2.eof
Response.Write("<option>" & rs2("titolo") & "</option>")
rs2.movenext
wend
Response.Write("</select>")
%>
    </font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Categoria</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <%
Response.Write("<select name=Ccategoria4>")
Response.Write("<option></option>")
rs2.movefirst
while not rs2.eof
Response.Write("<option>" & rs2("titolo") & "</option>")
rs2.movenext
wend
Response.Write("</select>")
%>
    </font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Categoria</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <%
Response.Write("<select name=Ccategoria5>")
Response.Write("<option></option>")
rs2.movefirst
while not rs2.eof
Response.Write("<option>" & rs2("titolo") & "</option>")
rs2.movenext
wend
Response.Write("</select>")
%>
    </font></td>
  </tr>        
  <tr>
    <td width="100%" bgcolor="#690101"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Nome</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <input name="camponome" type="text" size="40" maxlength="20">
    </font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Codice</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <input name="campocodice" type="text" size="40" maxlength="20">
    </font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Prezzo</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <input name="campoprezo" type="text" size="20" maxlength="20">
    </font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Prezzo
          in offerta</span></font> </td>
  </tr>
  <tr>
    <td width="100%"><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
      <input name="campoprezzoofferta" type="text" size="20" maxlength="20">
    </font></td>
  </tr>
  <tr>
    <td width="100%" height="20"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">Prodotto
          in offerta</span></font>
        <input name="campoofferta" type="checkbox" value="SI">
    </td>
  </tr>  
  <tr>
    <td width="100%" height="20"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile">ABILITATO</span></font>
        <input name="campoabilitato" type="checkbox" value="SI" checked>
    </td>
  </tr>
  <tr>
    <td width="100% bgcolor="#690101"" valign="middle"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile" >Disponibilit&agrave;</span></font> </td>
  </tr>
  <tr>
    <td width="78%">
      <textarea class="stilenero"  name="campodisponibilita" cols="84" rows="6" ></textarea>
    </td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101" valign="middle"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif"> <span class="stile" >Descrizione</span></font> </td>
  </tr>
  <tr>
    <td width="100%">
      <textarea class="stilenero"  name="campodescrizione" cols="84" rows="6" ></textarea>
    </td>
  </tr>
</table>
<table width="100%" border="0" align="center" bgcolor="#690101">
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif">
		<span class="stile">Foto mini (75/60)</span></font>
	</td>    
  </tr>
  <tr>
	<td width="78%">
	  <font size="2" face="Geneva, Arial, Helvetica, sans-serif">
	  <INPUT TYPE="file" NAME="fotomini1" size="40"></input> 
	  </font>
	</td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif">
		<span class="stile">Foto mini (75/60)</span></font>
	</td>    
  </tr>
  <tr>
	<td width="100%">
	  <font size="2" face="Geneva, Arial, Helvetica, sans-serif">
	  <INPUT TYPE="file" NAME="fotomini2" size="40"></input> 
	  </font>
	</td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif">
		<span class="stile">Foto mini (75/60)</span></font>
	</td>    
  </tr>
  <tr>
	<td width="100%">
	  <font size="2" face="Geneva, Arial, Helvetica, sans-serif">
	  <INPUT TYPE="file" NAME="fotomini3" size="40"></input> 
	  </font>
	</td>
  </tr>   
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif">
		<span class="stile">Foto media (100/75)</span></font>
	</td>    
  </tr>
  <tr>
	<td width="100%">
	  <font size="2" face="Geneva, Arial, Helvetica, sans-serif">
	  <INPUT TYPE="file" NAME="fotomedia" size="40"></input> 
	  </font>
	</td>
  </tr>       
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif">
		<span class="stile">Foto grande (220/165)</span></font>
	</td>    
  </tr>
  <tr>
	<td width="100%">
	  <font size="2" face="Geneva, Arial, Helvetica, sans-serif">
	  <INPUT TYPE="file" NAME="fotogrande1" size="40"></input>
	  </font>
	</td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif">
		<span class="stile">Foto grande (220/165)</span></font>
	</td>    
  </tr>
  <tr>
	<td width="100%">
	  <font size="2" face="Geneva, Arial, Helvetica, sans-serif">
	  <INPUT TYPE="file" NAME="fotogrande2" size="40"></input>
	  </font>
    </td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#690101"><font color="#FFFFFF" size="5" face="Geneva, Arial, Helvetica, sans-serif">
		<span class="stile">Foto grande (220/165)</span></font>
	</td>    
  </tr>
  <tr>
	<td width="100%">
	  <font size="2" face="Geneva, Arial, Helvetica, sans-serif">
	  <INPUT TYPE="file" NAME="fotogrande3" size="40"></input>
	  </font>
	</td>
  </tr>                 
</table>


<table align="center" width="98%" border="0" bgcolor="#690101">
  <tr>
    <td align="center"><input name="submit" type="submit" value="Memorizza" method="POST">	
	</td>
  </tr>
</table>
</form>
<div align="center">
<font color="#FFFFFF"> Torna all'elenco </font>		
</div>
<%
else
	Response.Write("<font color=#FFFFFF> NESSUNA CATEGORIA MEMORIZZATA. IMPOSSIBILE PROSEGUIRE.</font>")
end if
%>
</body>
</html>

**albis** · 21-05-2004, 10:02

Bocio
a mè l'unico errore che si è generato (ho fatto una prova e funziona)
è quando la seconda select non restituisce nessun vaore

però lerrore non è quello che viene dato a tè

**uomoragno2** · 21-05-2004, 10:06

Mi daresti il tuo indirizzo e-mail così ti do il link e vedi anche tu l'errore assurdo che mi da?
Dai resto in attesa... grazie.

**uomoragno2** · 21-05-2004, 10:09

Scusa se lo ripeto: se hai fatto la prova in locale non ha significato perchè anche a me funziona, se l'hai fatta in hosting c'è qualcosa che non va qui da me!!
Aspetto l'indirizzo e-mail.

Discussione: Nuovo problema inatteso (vado fuori di testa)

Strumenti discussione

Ricerca discussione

Visualizza

Nuovo problema inatteso (vado fuori di testa)

Permessi di invio