16 messaggi dal 23 giugno 2004
Buongiorno a tutti... sono ancora alle prese con questo benedetto upload...


Microsoft VBScript compilation error '800a0400'

Expected statement

/block_admin/block_event_gestione.asp, line 66

case A
^





Select case Operazione

case "X"
'Eliminazione
'------------
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/triacca_db.mdb")
SQL = "SELECT * FROM News WHERE News.idNews = " & IdN
set Rx = Server.CreateObject("ADODB.Recordset")
rx.Open sql, conn, 3, 3

if Rx("immagine") <> "none" then
'Procedura che elimina fisicamente il file sul server
' ----------------------------------------------------
MiaDir = server.MapPath("/mdb-database/triacca_db.mdb")& "\public\block_offerte\"
MioFiles = MiaDir & Rx("immagine")
Set objFso = server.createobject("Scripting.FileSystemObject")
objFso.DeleteFile(MioFiles)
Set objFso = nothing


'end if

Rx.Delete
Rx.Close
set Rx = nothing
Response.redirect "../Admin_event.asp?Message=7"
Response.End


case "A" *******linea 66********
'Aggiunta
'---------

'Prelevo i valori dalla form.
'---------------------------
'Controllo il contenuto del Titolo
if request.form("Titolo") = "" then
Cod = "E1"
err = err + 1
else
Titolo = request.form("Titolo")
end if




Potete aiutarmi? grazie
11.886 messaggi dal 09 febbraio 2002
Contributi
ciao,
devi togliere il commento a quell' end if, altrimenti l'if non si chiude.

Set objFso = server.createobject("Scripting.FileSystemObject")
objFso.DeleteFile(MioFiles)
Set objFso = nothing


'end if

Rx.Delete
Rx.Close
set Rx = nothing
Response.redirect

Enjoy learning and just keep making
16 messaggi dal 23 giugno 2004
Grazie mille... sei un grande!!

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.