Newsgroup: it.comp.www.asp
Titolo: DNS-LESS

Saluti a tutti
Datemi un aiuto per favore.
Non riesco a scrivere nel database, con DNS-LESS
vi posto pari pari come l'ho scritto.
<HTML>
<BODY>
<%Dim rs
'creo l'oggetto Connection
Set rs = Server.CreateObject("ADODB.Connection")
'apro la connessione con la fonte di dati
rs.Open "driver={Microsoft Access Driver
(*.mdb)};dbq="&Server.MapPath("Database/RubricaTel.mdb")
SQLQuery = ("Select * From Rub")
Set conn=rs.Execute(SQLQuery)%>
<%rs.Open ("Select * From Rub")
rs.AddNew
If Request.Form("Grado") <> "" Then
 rs.Fields("Grado")=Request.Form("Grado")
End If
If Request.Form("Cognome") <> "" Then
 rs.Fields("Cognome")=Request.Form("Cognome")
End If
If Request.Form("Nome") <> "" Then
 rs.Fields("Nome")=Request.Form("Nome")
End If
If Request.Form("Reparto") <> "" Then
 rs.Fields("Reparto")=Request.Form("Reparto")
End If
If Request.Form("Incarico") <> "" Then
 rs.Fields("Incarico")=Request.Form("Incarico")
End If
If Request.Form("Telinterno") <> "" Then
 rs.Fields("Telinterno")=Request.Form("Telinterno")
End If
If Request.Form ("Visto") = "ON" then
 rs.Update %>
<BR><BR><BR><BR><BR><BR><BR>
<CENTER><TABLE><TR><TD><FONT SIZE="+3" FACE="Times New Roman"
COLOR="Blue">Il nominativo inserito è stato
registrato</TD></TR></TABLE></FONT></CENTER>
<%Else%>
<%End If%>
</BODY>
</HTML>
questo è quello che mi restituisce il Browser da Nt Server.
ADODB.Connection error '800a0e79'
Invalid operation on opened object.
/in progress/elencotelefono/aggiungi.asp, line 10
e questo da win'98
Errore di run-time di Microsoft VBScript errore "800a01ad"
Il componente ActiveX non può creare l'oggetto
/mio web/In Progress/elencotelefono/aggiungi.asp, riga 5
Dove sbaglio? mi sta facendo impazzire.
Grazie per l'attenzione
--
Demiurgoprimo
bkf...@tin.it
http://www.demiurgo.3000.it/
 
http://vai.li/demiurgo
----------------------------------------------------------------------------
Il modo migliore di perdere una cattiva abitudine
e' di sostituirla con una peggiore.
----------------------------------------------------------------------------

  rs.Update %>
addNew...update, bravo, questa dovrebbe funzionare. L'alternativa, per fare
tutto con rs.execute era:
SQLQuery = "INSERT INTO
miatabella(Grado,Cognome,Nome,Reparto,Incarico,Telinterno,Visto)
VALUES('[valore di grado]','[valore di Cognome]','[valore di Nome]','[valore
di Reparto]','[valore di Incarico]','[valore di Telinterno]','[valore di
Visto]')"
e poi rs.execute(SQLQuery)
per scrivere [valore di Grado] devi mettere "&request.form(Grado)&" al posto
di [] e cio' che c'e' dentro.
Assicurati pero' che nessun altro possa accedere al file DB.
'guri.
Nettuno

Innanzitutto grazie sei grande! devo comprare dei libri ma ci vuole sempre
qualcuno che ti aiuta, altrimenti...
Ma mi da ancora problemi, e precisamente questo
----------
<HTML>
<BODY>
<%
'creo l'oggetto Connection
Set rs = Server.CreateObject("ADODB.Recordset")
'apro la connessione con la fonte di dati,che diventa una stringa
Dim strConn
strConn = "driver={Microsoft Access
Driver(*.mdb)};dbq="&Server.MapPath("Database/RubricaTel.mdb")
 DIM SQLQuery = ("Select * From Rub")       (riga 10)
'E a questo punto apri il recordset
rs.Open SQLQuery,strConn,3,3
Errore di compilazione di Microsoft VBScript errore "800a0401"
Prevista fine istruzione
/mio web/In Progress/elencotelefono/aggiungi.asp, riga 10
DIM SQLQuery = ("Select * From Rub")
Ciao
Demiurgoprimo


Saluti
Renato