Hej!

Jag vill få en bild att visas genom en asp-sida så jag fick ett ips här i forumet men det funkar inte =(

detta är hela min kod:
<code>
<%
Response.ContentType = "image/JPEG"
Response.ContentType = "image/GIF"
Const adTypeBinary = 1

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("ads.mdb")

Set RS1 = Connect.Execute("Select * From ads Where ID = " & Request.Querystring("id"))
Connect.execute("Update ads Set Visat = " & RS1("Visat") + 1 & ", u_visningar = '" & RS1("u_visningar") + 1 & "' Where ID= " & RS1("ID"))
RS1.Close
Set RS1 = Nothing

Set RS2 = Connect.Execute("Select * From admin Where ID = 1")
Dim strFilePath
If Request.Querystring("banner") = "88" then
strFilePath = RS2("88")
Else
strFilePath = RS2("468")
End if
RS2.Close
Set RS2 = Nothing

Connect.Close
Set Connect = Nothing

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing
%>
</code>

nån sm kan se vad felet är? den visar inte bilden helt enkelt...

För det första ser det ju skumt ut överst att du både skickar image/jpeg och image/gif. Nöj dig med det format det är på bilden.

Sen förstår jag inte vad ADODB.Stream är till för när bilden verkar ligga på hårddisken?

vad ska det vara istället för Server.CreateObject("ADODB.Stream")?
jag har som sagt inte gjort denna kod utan fått den genom detta forum

Men det är väl du som har gjort databasraderna? Dvs, SELECT * FROM admin WHERE id = 1 och de med RS1 och RS2? Annars är det ju det som är felet. (Och skulle det vara det som är felet behöver du bara sätta strFilePath till filnamnet för bilden du vill ha.)

jo et är jag som fixat databasraderna.. kan man inte hämta info från en databas i detta script? eller är jag så borta att jag gjort helt fel i koden?

ska testa att skriva sökvägen direkt istället!

Jag bara reagerade på att det lät konstigt eftersom man brukar använda ADO till databaser och inte till filsystemet. Jag vet tyvärr inte hur man öppnar filer med asp.

okej.. inte jag heller ;) (vet hur man öppnar filer alltså)

det funkade inte även fast jag tog bort databasen ur koden och satte sökvägen direkt =(

men jag måste nästan ha databasen där för jag måste räckna hur många gånger bilden har visats..

Ligger förresten det här skriptet ute på internet? I så fall kanske det är enklast om du ger mig adressen, så kan jag kolla vad det är som händer.

det finns i detta forum: http://www.pellesoft.nu/development/forum/view.asp?msgid=5756&forumid=1

Jag menade ditt skript. Om jag får adressen kan jag ju kolla vad som händer, nu när det inte funkar menar jag.

jaså, det finns på: http://www.webtipsen.net/ads/banner.asp?id=34

men det ska ju infogas på en annan sida med <img src="http://www.webtipsen.net/ads/banner.asp?id=34">

kan det ha någon betydelse att man använder querystrings?

kan du inte gå ut på icq istället så kan vi snacka där kanske? lite enklare lixom... (jag har addat dig)

Vad är det för filnamn du försöker öppna? Låter ju som att han inte hittar filen:

ADODB.Stream error '800a0bba'

File could not be opened.

/ads/banner.asp, line 31

det är: http://www.webtipsen.net/wtbanner.gif
den finns och funkar på servern

I så fall måste du köra Server.MapPath(strFilePath)

Det funkar perfekt nu!!

Tack så jätte mycket för hjälpen!!!