Salve il codice qui sotto mi da un errore ma non riesco a trovare l'errore mi aiutate per favore?






<% If Request.Querystring("ItemID") = "" Then %>

<%
dim objRec, Conn, imageFileName
NewsPos = request.querystring("or")



Set Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject ("ADODB.Recordset")
Conn.open GetConnectionString()

SQL = "SELECT * FROM immagine ORDER BY ItemID DESC"
objRec.Open SQL, Conn
' Move the cursor on the last displayed record
objRec.Move NewsPos




%>
<h1 align="center">Delete Images From the Database</h1>
<% Do While DisplayNum < objRec.PageSize AND NOT objRec.EOF %>
<blockquote>


">Delete
<font size=2>[img]../../../../../public/images/<% = ObjRec([/img]">

<% = ObjRec("imageFileName")%>

<hr size=3>
</blockquote>
<% DisplayNum = DisplayNum + 1
objRec.MoveNext
Loop %>
<% if Not objRec.EOF Then %>


<a href = "elimina.asp?or=<%= DisplayNum + NewsPos %>">more pictures</a>
<% End if
If ObjRec.EOF = True Then
Response.Write "<a href=javascript:history.back(1)>Back</A> "

end if %>
<% Else %>

<%


response.write 3
response.write ObjRec("imageFileName")

set fso=Server.CreateObject("Scripting.FileSystemObjec t")
fso.DeleteFile(server.MapPath("/public/images/" & imageFileName))
response.write 2

f=server.MapPath("/public/images/" & imageFileName)
if fso.fileExists(f) then
fso.deleteFile(f)
response.write("cancellato")


Set Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject ("ADODB.Recordset")
Conn.open GetConnectionString()
Conn.Execute ("DELETE FROM immagine WHERE immagine.ItemID= " & Request.Querystring("ItemID") & ";")
Conn.Close
Response.Write ("Your record has been deleted from the database.
<a href=javascript:historyback(1)>Back</A> ")
end if

End If %>

l'errore che mi restituisce è questo:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/database/apstore/web/admin/products/elimina.asp, line 54

la riga 54 è questa:
response.write ObjRec("imageFileName")


grazie per l'aiuto