Problema Annunci Mercatino

[pennabianca24]

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 "<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
%>

Ciao e GRAZIEEEEEEEEEEEEEEEEEEE