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