inserimento dati in database

[cicalasolista]

Devo inserire dati in un database di access, ma quando vado ad eseguire il file non viene inserito niente nel db.

lo script che fa l'inserimento è questo:

<!--#include file="inc_admin.asp"-->
<%
If Request.Cookies("admin") = "" Then Response.End
Call CnOpen()
Dim invio, messaggio, id
invio = Request.Form("invio")
If invio <> "" Then
Dim nome
nome = Request.Form("nome")
If nome = "" Then
messaggio = "Inserire il nome!"
Else
rs.Open "cat", cn, 3, 3
rs.AddNew
rs("cat_nome") = nome
rs.Update
rs.Close
messaggio = "Inserimento effettuato con successo!"
End If
End If
%>


Il file inc_admin.asp per la connessione al db è il seguente:

Dim cn, rs, conferma, admin_user,admin_pass
admin_user="demo"
admin_pass="demo"

Function CnOpen()
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source =C:\Inetpub\wwwroot\eshop\database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
End Function


Function CnClose()
Set rs = Nothing
cn.Close
Set cn = Nothing
End Function
%>

Qualcuno sa dirmi dov'è l'errore

 

[lukeonweb]

Ricevi uno specifico messaggio di errore? Hai impostato i permessi in scrittura sul database? Hai impostato la visualizzazione dell'errore 500?

 

[cicalasolista]

rw:inserimento dati in database

Non ricevo nuessun messaggio di errore, semplicemente non viene inserito niente. Scusa per l'ignoranza, ma come si impostano i permessi di scrittura sul database?

 

[lukeonweb]

Lo script sembra "mio", è il mio modo di chiamare variabili e funzioni

Ad occhio sembra corretto.

I premessi... che sistema operativo hai?