Problema Annunci Mercatino

**pennabianca24** · 19-11-2011, 08:48

Buon giorno mi chiamo Andrea Lolli,ho un sito in ASP di annunci gratuiti Mercatinoplus.
Un utente mi ha fatto notare un problema cioè :
a inserimento effettuato di un annuncio e andato a buon fine,
volendo modificarlo e a conferma della modifica effettuata da questa scritta :

Microsoft VBScript runtime error '800a01a8'
Object required: 'Item(...)'
/uploaddatiMod.asp, line 207

Controllando il codice e non essendo un programmatore a prima vista mi sembra tutto OK , a meno che questo problema esista da sempre……….

Devo dire però che ho fatto fare una modifica circa un anno fà ad amici del web(gratis)e cioè ho fatto aggiungere all ‘ annuncio indicazione della - Regione –Provincia –Comune.

Ti allego la parte del codice in questione, perchè compresso non c'è l'invio
<%

':::::::::::::::::::::::::::::::::::::::::::::: Modifica dati

Set RS = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT nome, Username, File1, File2, File3, File4, show, email, SotCategoriatxt, IDsottocat, descrizione, DataPost, categoriatxt, cognome, titolo, home, prezzo, telefono, citta, cap, via, Provincia, IDcategoria, DataDeletePost FROM annunci WHERE ID = " & ID
RS.Open SQL,conn,2,3

RS("SotCategoriatxt") = UploadRequest.Item("catname").Item("Value")
RS("categoriatxt") = UploadRequest.Item("categoria").Item("Value")
RS("home") = UploadRequest.Item("home").Item("Value")
RS("nome") = UploadRequest.Item("nome").Item("Value")
RS("cognome") = UploadRequest.Item("cognome").Item("Value")
RS("titolo") = UploadRequest.Item("titolo").Item("Value")
RS("prezzo") = UploadRequest.Item("prezzo").Item("Value")
RS("telefono") = UploadRequest.Item("telefono").Item("Value")
RS("citta") = UploadRequest.Item("citta").Item("Value")
RS("via") = UploadRequest.Item("via").Item("Value")
RS("cap") = UploadRequest.Item("cap").Item("Value")
RS("provincia") = UploadRequest.Item("provincia").Item("Value")
RS("EMAIL") = UploadRequest.Item("email").Item("Value")
RS("descrizione") = strMessage
RS("IDcategoria") = UploadRequest.Item("CatID").Item("Value")
RS("Username") = UploadRequest.Item("Username").Item("Value")
RS("IDsottocat") = UploadRequest.Item("subcat").Item("Value")

IF ScadenzaAnnuncio = True then
RS("DataDeletePost") = DateAdd("d", ValiditaAnnuncio, TodayDate)
End IF

IF ApprovaAnnunci_Modificati = True then
RS("show") = False
End IF

IF UploadRequest.Item("file1").Item("Value") <> "" then
RS("File1") = session("fil")
END IF
IF UploadRequest.Item("file2").Item("Value") <> "" then
RS("File2") = session("fil2")
END IF
IF UploadRequest.Item("file3").Item("Value") <> "" then
RS("File3") = session("fil3")
END IF
IF UploadRequest.Item("file4").Item("Value") <> "" then
RS("File4") = session("fil4")
END IF

RS.Update
RS.Close

Response.write " Tra alcuni secondi verrai rimandato alla pagina di conferma

"
Response.Write "Nome : " & UploadRequest.Item("nome").Item("Value") & "
"
Response.Write "Cognome : " & UploadRequest.Item("cognome").Item("Value") & "
"
Response.Write "Email : " & UploadRequest.Item("email").Item("Value") & "
"
Response.Write "Home : " & UploadRequest.Item("home").Item("Value") & "
"
Response.Write "Oggetto : " & UploadRequest.Item("titolo").Item("Value") & "
"
Response.Write "Categoria : " & UploadRequest.Item("categoria").Item("Value") & " / " & UploadRequest.Item("catname").Item("Value") & "
"
Response.Write "Prezzo : " & UploadRequest.Item("prezzo").Item("Value") & "
"
Response.Write "Tel.. : " & UploadRequest.Item("telefono").Item("Value") & "
"
Response.Write "Città : " & UploadRequest.Item("citta").Item("Value") & "
"
Response.Write "Via : " & UploadRequest.Item("via").Item("Value") & "
"
Response.Write "Provincia : " & UploadRequest.Item("provincia").Item("Value") & "
"
Response.Write "Descrizione :
" & strMessage & "
"

IF ApprovaAnnunci_Modificati = False then
Response.Write "<meta http-equiv='Refresh' content='4; URL=UploadAnnuncioModOK.asp'>"
Else
Response.Write "<meta http-equiv='Refresh' content='4; URL=UploadAnnuncio_OK.asp'>"
End IF

':::::::::::::::::::::::::::::::: Chiudo la connessione e distruggo gli oggetti

SET RS = nothing
Conn.Close
SET Conn = nothing
%>

Ciao e GRAZIEEEEEEEEEEEEEEEEEEE

**michele.santoro** · 19-11-2011, 11:23

Il codice mettilo tra i tag CODE.
Qual è la riga 207?

**pennabianca24** · 19-11-2011, 11:25

Scusami mi sono dimenticato di segnalarti la riga
è questa :

RS("cap") = UploadRequest.Item("cap").Item("Value")

Grazie

**michele.santoro** · 19-11-2011, 11:56

Originariamente inviato da pennabianca24
Scusami mi sono dimenticato di segnalarti la riga
è questa :

RS("cap") = UploadRequest.Item("cap").Item("Value")

Grazie

Sei sicuro che la variabile Rs("cap") contenga un valore e che non sia vuota?

**pennabianca24** · 19-11-2011, 11:59

Veramente non capisco niente di Asp
posso solo apportare delle modifiche se mi vengono dette ti posso allegare
tutto quel codice

:::::::::::::::::::::::::::::::::::::::::::::: Modifica dati

Set RS = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT nome, Username, File1, File2, File3, File4, show, email, SotCategoriatxt, IDsottocat, descrizione, DataPost, categoriatxt, cognome, titolo, home, prezzo, telefono, citta, cap, via, Provincia, IDcategoria, DataDeletePost FROM annunci WHERE ID = " & ID
RS.Open SQL,conn,2,3

RS("SotCategoriatxt") = UploadRequest.Item("catname").Item("Value")
RS("categoriatxt") = UploadRequest.Item("categoria").Item("Value")
RS("home") = UploadRequest.Item("home").Item("Value")
RS("nome") = UploadRequest.Item("nome").Item("Value")
RS("cognome") = UploadRequest.Item("cognome").Item("Value")
RS("titolo") = UploadRequest.Item("titolo").Item("Value")
RS("prezzo") = UploadRequest.Item("prezzo").Item("Value")
RS("telefono") = UploadRequest.Item("telefono").Item("Value")
RS("citta") = UploadRequest.Item("citta").Item("Value")
RS("via") = UploadRequest.Item("via").Item("Value")
RS("cap") = UploadRequest.Item("cap").Item("Value")
RS("provincia") = UploadRequest.Item("provincia").Item("Value")
RS("EMAIL") = UploadRequest.Item("email").Item("Value")
RS("descrizione") = strMessage
RS("IDcategoria") = UploadRequest.Item("CatID").Item("Value")
RS("Username") = UploadRequest.Item("Username").Item("Value")
RS("IDsottocat") = UploadRequest.Item("subcat").Item("Value")

IF ScadenzaAnnuncio = True then
RS("DataDeletePost") = DateAdd("d", ValiditaAnnuncio, TodayDate)
End IF

IF ApprovaAnnunci_Modificati = True then
RS("show") = False
End IF

IF UploadRequest.Item("file1").Item("Value") <> "" then
RS("File1") = session("fil")
END IF
IF UploadRequest.Item("file2").Item("Value") <> "" then
RS("File2") = session("fil2")
END IF
IF UploadRequest.Item("file3").Item("Value") <> "" then
RS("File3") = session("fil3")
END IF
IF UploadRequest.Item("file4").Item("Value") <> "" then
RS("File4") = session("fil4")
END IF

RS.Update
RS.Close

Response.write " Tra alcuni secondi verrai rimandato alla pagina di conferma

"
Response.Write "Nome : " & UploadRequest.Item("nome").Item("Value") & "
"
Response.Write "Cognome : " & UploadRequest.Item("cognome").Item("Value") & "
"
Response.Write "Email : " & UploadRequest.Item("email").Item("Value") & "
"
Response.Write "Home : " & UploadRequest.Item("home").Item("Value") & "
"
Response.Write "Oggetto : " & UploadRequest.Item("titolo").Item("Value") & "
"
Response.Write "Categoria : " & UploadRequest.Item("categoria").Item("Value") & " / " & UploadRequest.Item("catname").Item("Value") & "
"
Response.Write "Prezzo : " & UploadRequest.Item("prezzo").Item("Value") & "
"
Response.Write "Tel.. : " & UploadRequest.Item("telefono").Item("Value") & "
"
Response.Write "Città : " & UploadRequest.Item("citta").Item("Value") & "
"
Response.Write "Via : " & UploadRequest.Item("via").Item("Value") & "
"
Response.Write "Provincia : " & UploadRequest.Item("provincia").Item("Value") & "
"
Response.Write "Descrizione :
" & strMessage & "
"

IF ApprovaAnnunci_Modificati = False then
Response.Write "<meta http-equiv='Refresh' content='4; URL=UploadAnnuncioModOK.asp'>"
Else
Response.Write "<meta http-equiv='Refresh' content='4; URL=UploadAnnuncio_OK.asp'>"
End IF

':::::::::::::::::::::::::::::::: Chiudo la connessione e distruggo gli oggetti

SET RS = nothing
Conn.Close
SET Conn = nothing
%>

**michele.santoro** · 19-11-2011, 12:12

Originariamente inviato da pennabianca24
Veramente non capisco niente di Asp
posso solo apportare delle modifiche se mi vengono dette ti posso allegare
tutto quel codice

:::::::::::::::::::::::::::::::::::::::::::::: Modifica dati

codice:

		Set RS = Server.CreateObject("ADODB.Recordset")
		SQL= "SELECT nome, Username, File1, File2, File3, File4, show, email, SotCategoriatxt, IDsottocat, descrizione, DataPost, categoriatxt, cognome, titolo, home, prezzo, telefono, citta, cap, via, Provincia, IDcategoria, DataDeletePost FROM annunci WHERE ID = " & ID
		RS.Open SQL,conn,2,3
			
			RS("SotCategoriatxt") = UploadRequest.Item("catname").Item("Value")
			RS("categoriatxt") = UploadRequest.Item("categoria").Item("Value")
			RS("home") = UploadRequest.Item("home").Item("Value")
			RS("nome") = UploadRequest.Item("nome").Item("Value")
			RS("cognome") = UploadRequest.Item("cognome").Item("Value")
			RS("titolo") = UploadRequest.Item("titolo").Item("Value")
			RS("prezzo") = UploadRequest.Item("prezzo").Item("Value")
			RS("telefono") = UploadRequest.Item("telefono").Item("Value")
          RS("citta") = UploadRequest.Item("citta").Item("Value")
			RS("via") = UploadRequest.Item("via").Item("Value")
			RS("cap") = UploadRequest.Item("cap").Item("Value")
			RS("provincia") = UploadRequest.Item("provincia").Item("Value")		
		   	RS("EMAIL") = UploadRequest.Item("email").Item("Value")
			RS("descrizione") = strMessage 
			RS("IDcategoria") = UploadRequest.Item("CatID").Item("Value")
			RS("Username") = UploadRequest.Item("Username").Item("Value")
			RS("IDsottocat") = UploadRequest.Item("subcat").Item("Value")
			
			IF ScadenzaAnnuncio = True then
             RS("DataDeletePost") = DateAdd("d", ValiditaAnnuncio, TodayDate)
          End IF
          
			IF ApprovaAnnunci_Modificati = True then
             RS("show") = False 
          End IF

	    	IF UploadRequest.Item("file1").Item("Value") <> "" then
	    	   RS("File1") = session("fil")			
	    	END IF
	    	IF UploadRequest.Item("file2").Item("Value") <> "" then
	    	   RS("File2") = session("fil2")			
	    	END IF
	    	IF UploadRequest.Item("file3").Item("Value") <> "" then
		      RS("File3") = session("fil3")			
		   END IF
	    	IF UploadRequest.Item("file4").Item("Value") <> "" then
		      RS("File4") = session("fil4")			
	    	END IF

			RS.Update
			RS.Close
 
           Response.write "<font face='Arial' color='#4B96D3' size='3'> Tra alcuni secondi verrai rimandato alla pagina di conferma</font>

"
           Response.Write "<p align='left'><font face='Arial' color='#4B96D3' size='2'>Nome : </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("nome").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Cognome :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("cognome").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Email :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("email").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Home :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("home").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Oggetto :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("titolo").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Categoria :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("categoria").Item("Value") & " / " & UploadRequest.Item("catname").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Prezzo :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("prezzo").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Tel.. :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("telefono").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Città :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("citta").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Via :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("via").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Provincia :  </font><font face='Arial' color='#000000' size='2'>" & UploadRequest.Item("provincia").Item("Value") & "
</font>"
           Response.Write "<font face='Arial' color='#4B96D3' size='2'>Descrizione : 
</font><font face='Arial' color='#000000' size='2'>" & strMessage & "</font></font>
</p>"

           IF ApprovaAnnunci_Modificati = False then
              Response.Write "<meta http-equiv='Refresh' content='4; URL=UploadAnnuncioModOK.asp'>"
           Else
              Response.Write "<meta http-equiv='Refresh' content='4; URL=UploadAnnuncio_OK.asp'>"
           End IF
          
':::::::::::::::::::::::::::::::: Chiudo la connessione e distruggo gli oggetti

SET RS = nothing
Conn.Close
SET Conn = nothing         
%>

prova a modificare la riga così:

codice:

If RS("cap") <>"" then
   RS("cap") = UploadRequest.Item("cap").Item("Value")
End if

e dimmi che succede

**pennabianca24** · 19-11-2011, 12:19

iL problema è andato sulla riga successiva e cioè questa

RS("provincia") = UploadRequest.Item("provincia").Item("Value")

**michele.santoro** · 19-11-2011, 12:35

Originariamente inviato da pennabianca24
iL problema è andato sulla riga successiva e cioè questa

RS("provincia") = UploadRequest.Item("provincia").Item("Value")

Prova a fare la stessa cosa:
If RS("provincia") <>"" then
RS("provincia") = UploadRequest.Item("provincia").Item("Value")
End if
poi fai sapere

**pennabianca24** · 19-11-2011, 12:39

è passato a questo errore

Response.Write "Provincia : " & UploadRequest.Item("provincia").Item("Value") & "
"

**Vincent.Zeno** · 19-11-2011, 12:40

non sarebbe il caso di controllare che il form di modifica contenga i campi correttamente nominati?

Discussione: Problema Annunci Mercatino

Strumenti discussione

Ricerca discussione

Visualizza

Problema Annunci Mercatino

Permessi di invio