che errore è?

**Mas245** · 13-06-2004, 13:03

vorrei crearmi da solo un script di news per il mio sito sto creando la pagina per l'inserimento delle news, sono un neo con asp questo è l'errore

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/news/inserisci.asp, line 12

Invalid ProgID.

questo è il codice

codice:

<% option explicit %>

<%
dim objconn, concorso, descrizione, link, objrs
concorso = Request.Form("concorso")
descrizione = Request.Form("descrizione")
link = Request.Form("link")

Set objconn = server.CreateObject("ADODB.Connection")
objconn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.mappath("../../db/news.mdb") 
objconn.open
Set objrs = Server.CreateObject("ADOBD.Recordset")
objrs.open "news" , objconn, ,adLockOptimistic, adCmdTable
objrs("concorso") = request.Form("concorso")
objrs("descrizione") = request.Form("descrizione")
objrs("link") = request.Form("link")
objrs.Update
objrs.Close
set objrs = nothing
objconn.Close
Set objconn = nothing

%>

**weppos** · 13-06-2004, 13:05

Qual'è la riga dell'errore?

**Mas245** · 13-06-2004, 13:09

codice:

Set objrs = Server.CreateObject("ADOBD.Recordset")

grazie

**weppos** · 13-06-2004, 13:10

codice:

Set objrs = Server.CreateObject("ADODB.Recordset")

**Mas245** · 13-06-2004, 13:15

grazie weppos altro errore

codice:

ADODB.Recordset error '800a0cb3' 

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype. 

/news/inserisci.asp, line 12

la linea incriminata

codice:

objrs("concorso") = request.Form("concorso")

**teorema55** · 13-06-2004, 13:30

Mi risulta un po' difficile credere che l'errore sia relativo a quella riga di codice, comunque il messaggio è autoesplicativo: controlla i permessi di scrittura sul database e il tipo di cursore (costanti di libreria) che stai adoperando.

**weppos** · 13-06-2004, 13:53

Da

codice:

objrs.open "news" , objconn, ,adLockOptimistic, adCmdTable

a

codice:

strSQL = "SELECT * FROM news"
objrs.open strSQL, objconn, 3, 3

**Mas245** · 13-06-2004, 13:55

ho modificato lo script guardando qualche tutorial non mi da nessun errore ma andando a guardare nel database non scrive niente

codice:

<% option explicit %>

<%
dim objconn, concorso, descrizione, link, objrs, SQL
concorso = request.Form("concorso")
descrizione = request.Form("descrizione")
link = request.Form("link")

Set objconn = server.CreateObject("ADODB.Connection")
objconn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.mappath("../../db/news.mdb") 
objconn.open
Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.open "news" , objconn
SQL = "INSERT INTO news (concorso, descrizione, link) "
SQL = SQL & "VALUES ('" & concorso & "','" & descrizione & "','" & link & "')"
objrs.Close
set objrs = nothing
objconn.Close
Set objconn = nothing

%>
<html><body>inserimento riuscito
<%
Response.Write("Torna alla pagina precedente")
%>

</body></html>

**Mas245** · 13-06-2004, 13:57

domanda per inserire da form a database la stringa sql è insert?

**weppos** · 13-06-2004, 13:57

codice:

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.open "news" , objconn
SQL = "INSERT INTO news (concorso, descrizione, link) "
SQL = SQL & "VALUES ('" & concorso & "','" & descrizione & "','" & link & "')"
objrs.Close
set objrs = nothing
objconn.Close
Set objconn = nothing

in

codice:

SQL = "INSERT INTO news (concorso, descrizione, link) "
SQL = SQL & "VALUES ('" & concorso & "','" & descrizione & "','" & link & "')"
objConn.Execute(SQL)

objconn.Close
Set objconn = nothing

Discussione: che errore è?

Strumenti discussione

Ricerca discussione

Visualizza

che errore è?

Permessi di invio