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
Rispondi quotando
