---
title: "hämta bild med Response.Write"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51799-hämta-bild-med-response-write"
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: 1
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 1 av 2._

## #1 — Ivar, 2002-08-31T10:25Z

Hej!
Jag behöver lite hjälp med bild hämtning från databas med Response.Write  
Bilder lagras i katalog bilder och  bildnamnet i databas  frågan är hur hämtar jag bilden?
Nuvarande kod:

\<% 
Dim connect, query, senaste, test, fileName

'## -- hur många inlägg ska visas per sida --
intPageSize = 5

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")

'## -- om ingen querystring med sidvärde hittas, visa då första sidan --
If intPage = "" Then intPage = 1

set connect = server.createobject("ADODB.connection") 
Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" 
Set senaste = Server.CreateObject("ADODB.Recordset") 
query = "SELECT \* FROM items Where test='Y' ORDER BY dateCreated DESC" 
query = "SELECT \* FROM items Where filename ORDER BY dateCreated DESC" 
'senaste.Open query, Connect

Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "DELETE FROM items WHERE dateCreated \< #" & dateAdd("d",-30,Date) & "#" 
RecSet.Open SQL, Connect,1,2
	
	Set RecSet= Nothing

		'## -- hur många poster ska visas per sida --
		senaste.PageSize = intPageSize
		
		'## -- öppna och hämta alla records --
		senaste.Open query, Connect, 3, 1	'Osäker på: , 3, 1 
		
		'## -- vilken sida i recordset uppdelningen ska visas --
		senaste.AbsolutePage = intPage
		
		'## -- hur många sidor finns i recordset uppdelningen --
		intTotalPages = senaste.PageCount
	
		If senaste.EOF Then
			Response.Write "Det finns inga inlägg."
		Else
			'## -- lista alla inlägg som finns i db --
			Do Until senaste.EOF or intRecordCount \>= intPageSize
			
				intRecordCount = intRecordCount + 1

response.write "\<tr\>\<td\>\<img src=""get7.asp?fileName=" & Request.QueryString("id")& Request.QueryString ("filename")& "\>"""
response.write "\<td\>\<a href=""detail.asp?item=" & senaste("id") & """\>" & senaste("item") & "\</a\>"
response.write "\<td\> Categori:"
Response.write eval(senaste("category"))
response.write "\<td\>"
response.write "\<td\>Stad:" & senaste("stad") & ""
response.write "\<td\>Pris:" & senaste("price") & " Kr \</td\>\</tr\> "
senaste.MoveNext 
Loop 
End If

	'## -- clean up --
	senaste.Close
	Set senaste= Nothing
	
	Connect.Close
	Set Connect= Nothing

'## -- visa sidnavigeringen --
'## -- intPage = vilken sida som ska visas --
'## -- intTotalPages = hur många sidor som recordsetet är uppdelat i --
Call PageNavigation(intPage, intTotalPages)

'## -- skapa sid-navigering --
Sub PageNavigation(ByVal WichPage, ByVal HowManyPages)
	Dim strScriptName
	
	'## -- vilken sida ska navigeringen länka till --
	strScriptName = Request.ServerVariables("SCRIPT_NAME")
	
	'## -- visa föregående, länkat eller olänkat beroende på vilken sida som visas --
	If CInt(WichPage) \> 1 Then
		Response.Write "\<A href='" & strScriptName & "?" & \_
					"page=" & WichPage - 1 & "'\>\<\< Föregående\</A\> "
	Else
		Response.Write "\<\< Föregående "
	End If
	
	'## -- lista ut alla sidnummer --
	For I = 1 To HowManyPages
		If CInt(WichPage) \<\> I Then
			Response.Write "\<A href='" & strScriptName & "?" & \_
						"page=" & I & "'\>" & I & "\</A\> "
		Else
			Response.Write "\[ \<B\>" & I & "\</B\> \]"
		End If
	Next
	
	'## -- visa Nästa, länkad eller olänkad beroende på vilken sida som visas --
	If CInt(WichPage) \< CInt(HowManyPages) Then
		Response.Write "\<A href='" & strScriptName & "?" & \_
					"page=" & WichPage + 1 & "'\>Nästa \>\>"
	Else
		Response.Write "Nästa \>\>"
	End If
	
End Sub
%\>
      \</h3\>
\</table\>
\</body\>
\</html\>
\<%
Recordset1.Close()
%\>

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

## #2 — solbulle, 2002-08-31T10:56Z

Vet inte riktigt, men är det så här du menar: (?)

response.write "\<img src=""bilder/" & senaste("bild") &  """\>"

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

## #3 — Ivar, 2002-08-31T12:14Z

Tack Solbulle 
Den här koden funkar  men hur  kan jag bestämma storlek på bilden? 

\<img src=""bilder/" & senaste("filename")& """\>"
width="25" height="16"

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

## #4 — Ekström, 2002-08-31T12:33Z

Som du skulle göra i HTML :)

Response.Write "\<img src=""bilder/" & senaste("bild") &" height=10 width=10""\>"

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

## #5 — Ivar, 2002-09-01T10:44Z

Hej!
Använder jag denna kod då bilderna vissas inte men tar jag bort height=10 width=10
Då får jag fram bilderna igen men storleken på bilderna är olika. 
Har du någon annan förslag?  

Response.Write "\<tr\>\<td\>\<img src=""bilder/" & senaste("fileName") &" height=10 width=10""\>"

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

## #6 — CatZ, 2002-09-01T10:49Z

```
Response.Write "<tr><td><img src=""bilder/" & senaste("fileName") & """ & " height=10 width=10>"
```

Försök med den istället :P Du hade glömt att avsluta länken till bilden, så då borde bilderna inte visas eftersom sidan tror att height och width tillhör länken till bilden.

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

## #7 — CatZ, 2002-09-01T12:06Z

Eller ;) 

```
Response.Write "<tr><td><img src=""bilder/" & senaste("fileName") & "" height=""10"" width=""10"">"
```

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

## #8 — solbulle, 2002-09-01T12:20Z

Eller: 

```
Response.Write "<tr><td><img src=""bilder/" & senaste("fileName") & """ height=10 width=10>"
```

Eller:

```
Response.Write "<tr><td><img src=""bilder/" & senaste("fileName") & """ height='10' width='10'>"
```

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

## #9 — CatZ, 2002-09-01T12:22Z

ja visst finns det fantastiskt många möjligheter ;) Huvudsaken är bara att han avslutar själva länken ;)

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

## #10 — Ivar, 2002-09-01T12:29Z

Tack till är alla nu funkar.
Kod.
Response.Write "\<tr\>\<td\>\<img src=""bilder/" & senaste("fileName") & """ height='10' width='10'\>"

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

## #11 — Ivar, 2002-09-01T17:37Z

Rename

Hej !
Jag har en till fråga åt är angående Rename av fil (bildnamn) kan någon ge mig exempel på det. Jag  sparar bilderna i katalog men det blir problem om bilden(filen) har samma namn då skrivs den  över.

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

## #12 — Jesper T, 2002-09-02T21:30Z

1\. kolla om filnamnet finns
2\. om den finns ge den ett tillägg

snyggbild.gif = snyggbild_1.gif
Gör detta med fso

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

## #13 — Ivar, 2002-09-04T10:38Z

Hej! Jesper T
Har du lust att vissa lite kod :

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

## #14 — Jesper T, 2002-09-04T14:51Z

Ungefär så här:

```
 
<%
Newname = date()
Fil = request("fil")

extension = right(Fil,4)

filename = Right("00000" & trim(Newname), 5)

New = filename & extension

UPLOAD_PATH = Server.MapPath("bilder")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.getFolder(UPLOAD_PATH)

If Fso.FileExists(UPLOAD_PATH & "\" & Fil) Then
Fso.DeleteFile(UPLOAD_PATH & "\" & Fil)
Fso.MoveFile UPLOAD_PATH & "\" & Fil , UPLOAD_PATH & "\" & New
Else
Response.Redirect "upload.asp"
End If %>
```

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

## #15 — Ivar, 2002-09-07T10:01Z

Hej! 
Jag får detta felmeddelande vad gör jag för fel? 
Körningsfel i Microsoft VBScript fel '800a01a8' 
Objekt krävs.: '' 
/ivica1/outputfile.asp, rad 63 
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\], , \[description\], \[categoty\], \[password\]), \[filename\]) VALUES('" & item & "','"& email &"','" & category &"', '"& password & "','" & filename & "')"
Databas.Execute(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/777193

## #16 — jboy_87, 2002-09-07T10:03Z

hur ser rad 63 ut?

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

## #17 — Ivar, 2002-09-07T10:07Z

Rad 63: Databas.Execute(SQL)

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

## #18 — Ekström, 2002-09-07T10:15Z

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

Prova den SQL-satsen. Du behöver endast använda hakparenteser då namnet är ett nyckelord som t.ex. text. Sen är jag lite osäker på om det finns några nyckelord bland dina fältnamn.

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

## #19 — Ekström, 2002-09-07T10:15Z

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

Prova den SQL-satsen. Du behöver endast använda hakparenteser då namnet är ett nyckelord som t.ex. text. Sen är jag lite osäker på om det finns några nyckelord bland dina fältnamn.

Ändrade stavningen på category

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

## #20 — Ivar, 2002-09-07T10:19Z

Hej! 
Samma fel?  

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '' 

/ivica1/outputfile.asp, rad 63

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

---

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