Err: Necessario oggetto

[yoyo87]

<%
if request("id")=1 then
on error resume next

SQL="INSERT INTO eventi (DataEvento,Ora,Luogo,Titolo,Descrizione)" 
SQL=SQL&" VALUES('"&DataEvento&"','"&Ora&"','"&Luogo&"','"&Titolo&"','"&Descrizione&"')"
Conn.Execute(SQL)

DataEvento = Request.Form("Dataevento")
DataEvento = replace(DataEvento, "'", "''")

Ora = Request.Form("Ora")
Ora = replace(Ora, "'", "''")

Luogo = Request.Form("Luogo")
Luogo = replace(Luogo, "'", "''")

Titolo = Request.Form("Titolo")
Titolo = replace(Titolo, "'", "''")

Descrizione = Request.Form("Descrizione")
Descrizione = replace(Descrizione, "'", "''")

if err.number<>0 then
response.write ""&err.number&"
"&err.description&""
else
response.write "inserimento avvenuto con successo"
end if

response.end
end if
%>

Errore:
424
Necessario oggetto

Perchè?? Il problema è anche che non mi dice la riga dell'errore...

[Roby_72]

La pagina non è completa quindi non è possibile aiutarti per bene...

Roby

[yoyo87]

è vero...ecco il form:

<form name="AddEvents" method="post" action="addevento.asp?id=1"><table width="631" border="0" cellpadding="1" cellspacing="2">
  <tr>
    <th width="271" height="22" align="left" scope="col">Data:</th>
    <td width="360" scope="col">
 <INPUT name="DataEvento" onblur="javaScript:toDate(this.form)" value="gg/mm/aa" size="12" maxlength="8"> 
 <INPUT name="dateText" size="25" onfocus="javaScript:this.form.ora.focus()"></td>
  </tr>
  <tr>
    <th align="left" scope="row">Orario:</th>
    <td><input type="text" name="ora" onfocus="this.select();" value="hh:mm"></td>
  </tr>
  <tr>
    <th align="left" scope="row">Si tiene a: </th>
    <td><input type="text" name="luogo"></td>
  </tr>
  <tr>
    <th align="left" scope="row">Titolo:</th>
    <td><input type="text" name="titolo"></td>
  </tr>
  <tr>
    <th align="left" scope="row">Descrizione:</th>
    <td><textarea name="descrizione" cols="43" rows="6"></textarea></td>
  </tr>
  <tr>
    <th align="left" scope="row"></th>
    <td><input type="submit" name="Submit" value="Invia" onclick="javascript:formSubmit();"></td>
  </tr>
</table>
</form>

[cavicchiandrea]

Originariamente inviato da yoyo87

<%
if request("id")=1 then
on error resume next

SQL="INSERT INTO eventi (DataEvento,Ora,Luogo,Titolo,Descrizione)" 
SQL=SQL&" VALUES('"&DataEvento&"','"&Ora&"','"&Luogo&"','"&Titolo&"','"&Descrizione&"')"
Conn.Execute(SQL)

DataEvento = Request.Form("Dataevento")
DataEvento = replace(DataEvento, "'", "''")

Ora = Request.Form("Ora")
Ora = replace(Ora, "'", "''")

Luogo = Request.Form("Luogo")
Luogo = replace(Luogo, "'", "''")

Titolo = Request.Form("Titolo")
Titolo = replace(Titolo, "'", "''")

Descrizione = Request.Form("Descrizione")
Descrizione = replace(Descrizione, "'", "''")

if err.number<>0 then
response.write ""&err.number&"
"&err.description&""
else
response.write "inserimento avvenuto con successo"
end if

response.end
end if
%>

Errore:
424
Necessario oggetto

Perchè?? Il problema è anche che non mi dice la riga dell'errore...

per farti restituire la riga che genera l'errore commenta
'on error resume next

[yoyo87]

...ehm...devo commentare?!? ... Cioè??

[Roby_72]

Mettere l'apice davanti a quella riga, te l'ha scritto...

Roby

[yoyo87]

..in pratica mettere quella linea come se fosse un commento...appunto commenta ... sono proprio cegato e stupid ...
Cmq ora che ho corretto l'altro errome mi dice che la query non è aggiornabile, ma io ho dato i permessi di scrittura alla cartella del DB. La linea è quella in rosso:

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/calendario.mdb")

if request("id")=1 then
'on error resume next

SQL="INSERT INTO eventi (DataEvento,Ora,Luogo,Titolo,Descrizione)" 
SQL=SQL&" VALUES('"&DataEvento&"','"&Ora&"','"&Luogo&"','"&Titolo&"','"&Descrizione&"')"
Conn.Execute(SQL) 

DataEvento = Request.Form("Dataevento")
DataEvento = replace(DataEvento, "'", "''")

Ora = Request.Form("Ora")
Ora = replace(Ora, "'", "''")

Luogo = Request.Form("Luogo")
Luogo = replace(Luogo, "'", "''")

Titolo = Request.Form("Titolo")
Titolo = replace(Titolo, "'", "''")

Descrizione = Request.Form("Descrizione")
Descrizione = replace(Descrizione, "'", "''")

if err.number<>0 then
response.write ""&err.number&"
"&err.description&""
else
response.write "inserimento avvenuto con successo"
end if

response.end
end if
%>

Cmq l'errore di prima non lo ben capito perchè ho semplicemente cambiato "" con lo script all'interno...

[yoyo87]

Ho corretto anche quell'errore...però ora ho notato che il codice funziona bene, ma nel DB la riga dove dovrebbero esserci tutti i dati inviati è VUOTA...solo il campo ID ha il suo numerino tutti gli altri vuoti...

[cavicchiandrea]

Originariamente inviato da yoyo87
Ho corretto anche quell'errore...però ora ho notato che il codice funziona bene, ma nel DB la riga dove dovrebbero esserci tutti i dati inviati è VUOTA...solo il campo ID ha il suo numerino tutti gli altri vuoti...

Prova così:

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/calendario.mdb")

if request("id")=1 then
'on error resume next

DataEvento = Request.Form("Dataevento")
DataEvento = replace(DataEvento, "'", "''")

Ora = Request.Form("Ora")
Ora = replace(Ora, "'", "''")

Luogo = Request.Form("Luogo")
Luogo = replace(Luogo, "'", "''")

Titolo = Request.Form("Titolo")
Titolo = replace(Titolo, "'", "''")

Descrizione = Request.Form("Descrizione")
Descrizione = replace(Descrizione, "'", "''")
SQL="INSERT INTO eventi  (DataEvento,Ora,Luogo,Titolo,Descrizione)" 
SQL=SQL&"VALUES('"&DataEvento&"','"&Ora&"','"&Luogo&"','"&Titolo&"','"&Descrizione&"')"
Conn.Execute(SQL)
if err.number<>0 then
response.write ""&err.number&"
"&err.description&""
else
response.write "inserimento avvenuto con successo"
end if

response.end
end if
%>

[yoyo87]

Grazie mille!