Microsoft JET Database Engine error

[clara]

sto tentando di installare lo snitz forum.
questi sono gli errori. ho la sensazione che la causa sia sempre la stessa.
premetto che conosco molto poco ASP.

errori:


Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/snitzforum/admin_forums.asp, line 243
Linea 243:
set drs = my_conn.execute(strsql)
------------------------------------
Microsoft JET Database Engine error '80040e37'
The Microsoft Jet database engine cannot find the input table or query 'FORUM_A_TOPICS'. Make sure it exists and that its name is spelled correctly.
/snitzforum/admin_forums.asp, line 366
Linea 366:
set drs = my_conn.execute(strsql)
----------------------------------------------------
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/snitzforum/admin_forums_schedule.asp, line 148
linea148:
set drs = my_conn.execute(strsql)
----------------------------
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/snitzforum/admin_forums.asp, line 149
Linea 149:
set drs = my_conn.execute(strsql)
-----------------------
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
%>

[Roby_72]

Son troppi errori...
Analizzane uno alla volta stampando la query che da errore prima di eseguirla.

Roby

[clara]

perdoma l'ignoranza roby ma quale query? cosa devo fare?
perto dal primo:

Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/snitzforum/admin_forums.asp, line 243

Linea 243:
set drs = my_conn.execute(strsql)

[clara]

Nessuno mi aiuta?

[Roby_72]

response.write(strsql)
response.end
set drs = my_conn.execute(strsql)

Roby

[clara]

Ok Roby ho aggiunto il codice (non so se nella posizione giusta)
questo è il risultato:
Select CAT_ID, FORUM_ID, F_L_ARCHIVE, F_SUBJECT,F_ARCHIVE_SCHED from FORUM_FORUM ORDER BY CAT_ID, F_SUBJECT DESC

forse è meglio se ti scrivo tutto il codice:

<%
strForumIDN = request("id")
If strForumIDN = "" then
strsql = "Select CAT_ID, FORUM_ID, F_L_ARCHIVE, F_SUBJECT,F_ARCHIVE_SCHED from " & strTablePrefix & "FORUM ORDER BY CAT_ID, F_SUBJECT DESC"
response.write(strsql)
response.end
set drs = my_conn.execute(strsql)
thisCat = 0
if drs.eof then
response.write("No Forums Found!")
else
response.write("<tr><td colspan=2><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">[*]Tutti i Forum</font></td></tr>" & vbcrlf)
response.write("<tr><td colspan=2><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">[*]Forum selezionati</td></tr>" & vbcrlf)
response.write("<tr><td colspan=2><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">_</td></tr>" & vbcrlf)
response.write "<form name=""arcTopic"" action=""admin_forums.asp"" enctype=""text/plain"">"
response.write "<input type=""hidden"" value=""archive"" name= ""action"" >"
Do until drs.eof
lastArchived = drs("F_L_ARCHIVE")
schedDays = drs("F_ARCHIVE_SCHED")


if (IsNull(lastArchived)) or (lastArchived = "") then
archive_date = "Not archived"
overdue = 0
else
needArchive = (DateAdd("d",schedDays+7,strToDate(lastArchived)))
if (strForumTimeAdjust > needArchive) and (schedDays > 0) then
overdue = true
archive_date = "<font color=""Red"">Archiviazione eccessiva</font>"
else
overdue = false
archive_date = StrToDate(lastArchived)
end if
end if

if thisCat <> drs("CAT_ID") then response.write "<tr><td></td><td>_</td></tr>"
response.write "<tr><td><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & "><input type=""checkbox"" name=""id"" value=" & drs("FORUM_ID")
if overdue then
response.write " checked "
end if
response.write " >"
response.write("" & drs("F_SUBJECT") & "</font></td><td><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & "> Last archive date: " & archive_date & "</font></td></tr>" & vbcrlf)
thisCat = drs("Cat_ID")
drs.movenext
Loop
response.write "</form>"
End if
set drs = nothing %>


Grazie Anna

[Roby_72]

E' giusto.
Controlla ora se tutti i campi che la query di restituisce a video sono presenti nella tabella FORUM_FORUM

Roby

[clara]

Ne mancano due, basta semplicemente aggiungerli?

[Roby_72]

Si.

[clara]

adesso mi compare questo errore:

Microsoft VBScript runtime error '800a005e'
Invalid use of Null

/snitzforum/admin_forums.asp, line 264

linea:
needArchive = (DateAdd("d",schedDays+7,strToDate(lastArchived)))