---
title: "hämta bild med Response.Write"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51799-hämta-bild-med-response-write/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2002-08-31T10:25:11.000Z"
updated: "2002-09-07T12:03:00.000Z"
replies: 32
views: 758
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/51799-hämta-bild-med-response-write"
---

# hämta bild med Response.Write

_Sida 2 av 2._

## #21 — Ekström, 2002-09-07T10:29Z

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

Permalänk: https://www.webforum.nu/p/777234

## #22 — Ivar, 2002-09-07T10:34Z

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

Permalänk: https://www.webforum.nu/p/777238

## #23 — jboy_87, 2002-09-07T10:38Z

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

Permalänk: https://www.webforum.nu/p/777242

## #24 — Ekström, 2002-09-07T10:39Z

Hur ser koden ut nu då?

Permalänk: https://www.webforum.nu/p/777243

## #25 — Ekström, 2002-09-07T10:41Z

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å.

Permalänk: https://www.webforum.nu/p/777245

## #26 — Ivar, 2002-09-07T10:44Z

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

Permalänk: https://www.webforum.nu/p/777247

## #27 — Ekström, 2002-09-07T10:53Z

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

Permalänk: https://www.webforum.nu/p/777254

## #28 — Ivar, 2002-09-07T11:03Z

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

%\>

Permalänk: https://www.webforum.nu/p/777271

## #29 — Ekström, 2002-09-07T11:07Z

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 :/ )

Permalänk: https://www.webforum.nu/p/777275

## #30 — Ivar, 2002-09-07T11:31Z

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)

Permalänk: https://www.webforum.nu/p/777306

## #31 — Ivar, 2002-09-07T11:38Z

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

Permalänk: https://www.webforum.nu/p/777313

## #32 — @nders, 2002-09-07T11:40Z

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

Permalänk: https://www.webforum.nu/p/777318

## #33 — Ivar, 2002-09-07T12:03Z

Tack @nders nu funkar som det ska.

Permalänk: https://www.webforum.nu/p/777342

---

Tråden på webben: https://www.webforum.nu/amne/asp/51799-hämta-bild-med-response-write/page2  
Föregående sida: https://www.webforum.nu/amne/asp/51799-hämta-bild-med-response-write.md