aRCHIVIAZIONE DATI

[benni]

Salve a tutti!!!!
Ho ripreso il progetto di spostare in un db diverso da quello di partenza delle notizie che contemporaneamente vanno cancellate dal db di base. Ho provato in questo modo:

Ma sembra che ci sia un problema alla prima stringa sql
L'errore a video e' il seguente:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/redazione/nome file.asp, line 19

sono neofita di asp e non ne vengo a capo,
qualcuna so indicarmi dove sbaglio?

Grazie



<%Function cambiaSpeciali(stringa)
Dim newStringa
newStringa = Replace(stringa, "'", "''")
cambiaSpeciali = newStringa
End Function

data=Request.Form("data")
titolo = cambiaSpeciali (Request.Form("titolo"))
testo= cambiaSpeciali(Request.Form("testo"))
sezione=Request.Form("sezione")
foto=Request.Form("foto")
ordine=Request.Form("ordine")
rubrica=Request.Form("rubrica")
redattore= cambiaSpeciali (Request.Form("redattore"))
SQL = "INSERT INTO notizie (" & Request.form("checkbox") & " data, titolo, testo, sezione, rubrica, foto, redattore, ordine) VALUES ('" & Request.form("checkbox") & " ,'"&data&"','"&titolo&"','"&testo&"','"&sezione&"' ,'"&rubrica&"','"&foto&"','"&redattore&"','"&ordin e&"')"


Conn.Execute(SQL)(QUESTA E' LA LINEA 19)
%>

<%
sql="DELETE * FROM notizie WHERE ID in (" & Request.form("checkbox") & ")"
Conn.Execute(SQL)
Response.Redirect "index1.asp"
%>

[santino83]

Conn non è una connessione aperta e istanziata

[benni]

[benni]

Pero' scusami la conn e' aperta dalla pagina connessione.asp che includo con la stringa

il cui codice e': <%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open = ("Provider =percorso.mdb")
%>

[santino83]

in connessione1.asp cambia il nome della connessione perchè è lo stesso che usi in connessione.asp e ti fa casini

e poi CHIUDI le connessioni dopo che le usi (per chiudere: objConn.close: set objConn=nothing)

[benni]

Posso approfittare ancora delle tue conoscenze???

Ho modificato secondo le tue indicazioni il codice ed e' venuto fuiori questo:


<%Function cambiaSpeciali(stringa)
Dim newStringa
newStringa = Replace(stringa, "'", "''")
cambiaSpeciali = newStringa
End Function

data=Request.Form("data")
titolo = cambiaSpeciali (Request.Form("titolo"))
testo= cambiaSpeciali(Request.Form("testo"))
sezione=Request.Form("sezione")
foto=Request.Form("foto")
ordine=Request.Form("ordine")
rubrica=Request.Form("rubrica")
redattore= cambiaSpeciali (Request.Form("redattore"))
SQL = "INSERT INTO notizie WHERE ID in (" & Request.form("checkbox") & ")" " data, titolo, testo, sezione, rubrica, foto, redattore, ordine) VALUES ('"&data&"','"&titolo&"','"&testo&"','"&sezione&"' ,'"&rubrica&"','"&foto&"','"&redattore&"','"&ordin e&"')"


Conn1.Execute(SQL)
objConn1.close: set objConn1=nothing
%>

<%
sql="DELETE * FROM notizie WHERE ID in (" & Request.form("checkbox") & ")"
Conn.Execute(SQL)
Response.Redirect "index1.asp"
%>



ma l'errore adesso e' :
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/redazione/del.asp, line 16

SQL = "INSERT INTO notizie WHERE ID in (" & Request.form("checkbox") & ")" " data, titolo, testo, sezione, rubrica, foto, redattore, ordine) VALUES ('"&data&"','"&titolo&"','"&testo&"','"&sezione&"' ,'"&rubrica&"','"&foto&"','"&redattore&"','"&ordin e&"')"




Se sto approfittando troppo dimmelo ........e grazie

[santino83]

si stai approfittando troppo sono 100 euro, poi per pvt ti mando le coordinate bancarie per il bonifico :maLOL: :maLOL:

SQL = "INSERT INTO notizie (data, titolo, testo, sezione, rubrica, foto, redattore, ordine) VALUES ('"&data&"','"&titolo&"','"&testo&"','"&sezione&"','"&rubrica&"','"&foto&"','"&redattore&"','"&ordine&"')"

e poi io avevo scritto objConn per farti capire che era la "variabile" Conn ad essere chiusa. nel tuo caso Conn1.close: set Conn1=nothing

[benni]

si si ho capito che era la var.

[santino83]

Originariamente inviato da benni
si si ho capito che era la var.

e perchè hai scirtto objConn1? :maLOL: