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