Problema nuovo recordset

[Shea]

Ciao a tutti è un pò che combatto con l'inserimento di recordset in un db, l'errore che ricevo è:

Errore di compilazione di Microsoft VBScript (0x800A03F2)
Previsto identificatore
/krisite/krisite/photoupload.asp, line 39, column 3
rs.("FotoTipo") = FotoTipo
--^

non riesco a capire che cosa ho sbagliato, posto il codice e metto in evidenza la riga incriminata

%@LANGUAGE="VBSCRIPT"%> 

<% 

'Dichiaro le variabili
Dim FotoTipo, TipoFoto, Localita, Thumbnail, Nome

'Connetto al DB
Set conn= Server.CreateObject("ADODB.Connection") 
sConnString = "Provider = Microsoft.Jet.Oledb.4.0; Data Source ="& Server.MapPath("mdb-database\gallery.mdb") 
conn.Open(sConnString)

inserisci = "SELECT * FROM FOTOGRAFIE"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open inserisci.Source, Conn, 3, 3


'Raccolgo i dati dalla form
FotoTipo = Request.form("FotoTipo")
TipoFoto = Request.form("TipoFoto")
Localita = Request.form("Localita")
Thumbnail = Fototipo
Nome = Request.form("Nome")

'metto le url a FotoTipo e a Thumbnail
FotoTipo = ("images/photo/land/" & TipoFoto & FotoTipo)
Thumbnail = ("images/photo/pic/" & TipoFoto & Thumbnail)


response.write(FotoTipo & "
")
response.write(TipoFoto & "
")
response.write(Localita & "
")
response.write(Thumbnail & "
")
response.write(Nome & "
")

'Inserisco i dati nel DB
rs.AddNew
rs.("FotoTipo") = FotoTipo 
rs.("TipoFoto") = TipoFoto
rs.("Localita") = Localita
rs.("Thumbnail") = Thumbnail
rs.("Nome") = Nome
rs.Update
rs.Close


%>

non so più che pesci pigliare.

[supergeniux]

Prova a cambiare questo:

'Inserisco i dati nel DB
rs.AddNew
rs.("FotoTipo") = FotoTipo 
rs.("TipoFoto") = TipoFoto
rs.("Localita") = Localita
rs.("Thumbnail") = Thumbnail
rs.("Nome") = Nome
rs.Update
rs.Close

con questo:

'Inserisco i dati nel DB
rs.AddNew
rs("FotoTipo") = FotoTipo 
rs("TipoFoto") = TipoFoto
rs("Localita") = Localita
rs("Thumbnail") = Thumbnail
rs("Nome") = Nome
rs.Update
rs.Close

[Shea]

Grazie Supergeniux, ho fatto una cretinata

Il problema ora è questo:

ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
/krisite/krisite/photoupload.asp, line 40

Riposto parte del codice che ho modificato e evidenzio la riga incriminata.

Set inserisci = Server.CreateObject("ADODB.Recordset")
inserisci.ActiveConnection = "Provider = Microsoft.Jet.Oledb.4.0; Data Source ="& Server.MapPath("mdb-database\gallery.mdb")
inserisci.Source = "SELECT *  FROM Fotografie"

'Raccolgo i dati dalla form
FotoTipo = Request.form("FotoTipo")
TipoFoto = Request.form("TipoFoto")
Localita = Request.form("Localita")
Thumbnail = Fototipo
Nome = Request.form("Nome")

'metto le url a FotoTipo e a Thumbnail
FotoTipo = ("images/photo/land/" & TipoFoto & FotoTipo)
Thumbnail = ("images/photo/pic/" & TipoFoto & Thumbnail)

'Apro la connessione per l'inserimento dati
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = "Provider = Microsoft.Jet.Oledb.4.0; Data Source ="& Server.MapPath("mdb-database\gallery.mdb")
rs.Open inserisci.Source, Conn, 3, 3


'Inserisco i dati nel DB
rs.AddNew 
rs("FotoTipo") = FotoTipo
rs("TipoFoto") = TipoFoto
rs("Localita") = Localita
rs("Thumbnail") = Thumbnail
rs("Nome") = Nome
rs.Update
rs.Close

Set inserisci = nothing

[Shea]

Dimenticavo di dire che il file ha i permessi di scrittura. :master: