hämta bild med Response.Write

Skriv ut SQL-satsen. Alltså Response.Write SQL. Kommentera bort Execute()-raden med ett '.

Då står det
Körningsfel i Microsoft VBScript fel '800a000d'
Inkompatibla typer: 'SQL'

lägg in on error resume next högst upp på sidan!

Hur ser koden ut nu då?

Jag tycker inte att du ska köra med On Error Resume Next, det är bättre att man lär sig skriva korrekt kod så man får allt att fungera felmeddelandefritt ändå.

Då for jag inte någon felmeddelande men ingenting lagras i databasen?

Det är inte meningen heller. Jag vill bara veta vad det står på sidan när du skriver ut SQL-satsen med Response.Write SQL

Då får jag samma fel som tidigare?
Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: ''
Kod:
<!--#include file="upload.asp"-->
<%

'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")
item = UploadRequest.Item("item").Item("Value")

category = UploadRequest.Item("category").Item("Value")

price = UploadRequest.Item("price").Item("Value")
phone = UploadRequest.Item("phone").Item("Value")
email = UploadRequest.Item("email").Item("Value")

password = UploadRequest.Item("password").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component

If byteCount<=250000 THEN

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

response.write "<b>Filens sökväg:</b> " & Server.mappath( filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""" & filename & """>"

response.write "<font face=Verdana size=1>Din fil är upladdad utan problem!<br><br></font>"
response.write "<font face=Verdana size=1><a href=java script:window.close()>Stäng</a></font>"

SQL= "INSERT INTO items (item, email, category, password, filename) VALUES('" & item & "','"& email &"','" & category &"', '"& password & "','" & filename & "')"

Databas.Execute(SQL)
Response.Write ="SQL"

else

response.write "Du har antingen en fil som inte har filändelse .jpg eller så är den större än 250 kb."
end if

%>

Byt ut

Databas.Execute(SQL) 
Response.Write ="SQL"

mot

'Databas.Execute(SQL) 
Response.Write SQL

Har du förresten nåt objekt som heter Databas? Ser ut som om det är ett sådant felmeddelande. (Har inte läst det noga förr :/ )

Menar du så :
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set RecSet= Server.CreateObject("ADODB.Recordset")
SQL= "INSERT INTO items (item, email, category, password, filename) VALUES('" & item & "','"& email &"','" & category &"', '"& password & "','" & filename & "')"

Databas.Execute(SQL)

Tack Ekström men jag ger mig, få hitta på något annat sett att ordna det.

Byt Databas.Execute (SQL) mot connect.Execute(SQL).
Det är ju connect du kallat ditt connectionobjekt, inte Databas.

Tack @nders nu funkar som det ska.