Salve ragazzi, qualcuno sa dirmi che significa questo errore?
Microsoft VBScript compilation error '800a0400'
Expected statement
/snitzforum/admin_compactdb.asp, line 84
End if
^
Codive:
<%
End If
else
my_conn.close
strTempConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tools/Snitz_compacted.mdb")
if BackupDB(strForumDB) then
set jro = server.createobject("jro.JetEngine")
jro.CompactDatabase strConnString, strTempConnString
if err <> 0 then
bError = True
response.write "Error Compacting:
" & err.description
else
response.write "
<div align=""center"">Compattazzione Database Riuscita!.</div>"
end if
if not bError then
if not RenameFile( strTempFile, strForumDB) then
response.write "Errore Rimpiazzato:
" & err.description
else
response.write "
<div align=""center"">Database Rinominato con successo.</div>
"
end if
end if
else
response.write "
<div align=""center"">Inpossibile tornare al Database</div>
"
end if
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
End If
End if
%>