---
title: "komprimera"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/66114-komprimera"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rodan"
published: "2003-01-25T16:46:12.000Z"
updated: "2003-01-26T17:15:58.000Z"
replies: 7
views: 255
page: 1
pages: 1
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/66114-komprimera"
---

# komprimera

## #1 — Rodan, 2003-01-25T16:46Z

hej där...

nån som kan komprimera den här åt mig ? den är väldigt trög... sen den sista som fixar om man inte har skrivit i vilket län man bor så kommer en ej bild fram men den sista funkar inte :(

Kod:

      \<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath("databasen")&";pwd=losenordet"
Set Recset = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT \* FROM members where id=" &Request.QueryString("checkid")
RecSet.Open Addera, Connect, 3, 3  

if RecSet("lan") = "stockholms" then
Response.Write "\<img src=""lan/stockholms.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "vasternorrlands" then
Response.Write "\<img src=""lan/vasternorrlands.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "vastermanlands" then
Response.Write "\<img src=""lan/vastermanlands.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "vasterbottens" then
Response.Write "\<img src=""lan/vasterbottens.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "varmlands" then
Response.Write "\<img src=""lan/varmlands.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "uppsala" then
Response.Write "\<img src=""lan/uppsala.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "sodermanland" then
Response.Write "\<img src=""lan/sodermanland.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "skane" then
Response.Write "\<img src=""lan/skane.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "osergotland" then
Response.Write "\<img src=""lan/osergotland.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "orebro" then
Response.Write "\<img src=""lan/orebro.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "norrbotten" then
Response.Write "\<img src=""lan/norrbotten.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "kronobergs" then
Response.Write "\<img src=""lan/kronobergs.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "kalmar" then
Response.Write "\<img src=""lan/kalmar.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "jamtlands" then
Response.Write "\<img src=""lan/jamtlands.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "gotland" then
Response.Write "\<img src=""lan/gotland.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "gotalands" then
Response.Write "\<img src=""lan/gotalands.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "dalarna" then
Response.Write "\<img src=""lan/dalarna.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "blekinge" then
Response.Write "\<img src=""lan/blekinge.gif""\>"
end if

%\>
\<%
if RecSet("lan") = "hallands" then
Response.Write "\<img src=""lan/hallands.gif""\>"
end if
%\>
\<%
If RecSet("lan") = "" Then
Response.Write("\<img src=""lan/ej.gif""\>")
End If
%\>

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

## #2 — solbulle, 2003-01-25T16:51Z

```
<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("databasen")&";pwd=losenordet" 
Set Recset = Server.CreateObject("ADODB.Recordset") 
Addera = "SELECT lan FROM members where id=" &Request.QueryString("checkid") 
RecSet.Open Addera, Connect, 3, 3 

lan = RecSet("lan")

'stäng db

If lan = "" Then
	lan = "ej"
End If 

Response.Write("<img src=""lan/" & lan &".gif"">") 
%>
```

Sen ska du väl stänga databasen först iofs.

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

## #3 — Rodan, 2003-01-25T16:59Z

den där funka jätte bra men inte 100%

när någon inte har någon bild alltså noll i värde i databasen så blir adressen till bilden lan/.gif 
men den ska va lan/ej.gif när man inte har valt en bild

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

## #4 — Nickemannen, 2003-01-25T17:03Z

ändra

If lan = "" Then
lan = ej.gif
End If 

Response.Write("\<img src=""lan/" & lan &".gif""\>") 

Till

If Len(lan) = 0 Then
Response.Write("\<img src=""lan/ej.gif""\>") 
Else
Response.Write("\<img src=""lan/" & lan &".gif""\>") 
End If

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

## #5 — Rodan, 2003-01-25T17:05Z

funkar perfekt.... tack !

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

## #6 — solbulle, 2003-01-25T18:17Z

Jaja... :) Orginalinlägg redigerat.

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

## #7 — Rodan, 2003-01-26T14:18Z

\<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath("databasen")&";pwd=losenordet" 
Set Recset = Server.CreateObject("ADODB.Recordset") 
Addera = "SELECT lan FROM members where id=" &Request.QueryString("checkid") 
RecSet.Open Addera, Connect, 3, 3 

If Len(lan) = 0 Then 
Response.Write("\<img src=""lan/ej.gif""\>") 
Else 
Response.Write("\<img src=""lan/" & lan &".gif""\>") 
End If
%\>

den funkar inte jätte bra... den visar bara ej bilden nu.... typ jag har stockholms län, men ej bilden kommer upp...

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

## #8 — solbulle, 2003-01-26T17:15Z

Open your eyes...

```
<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("databasen")&";pwd=losenordet" 
Set Recset = Server.CreateObject("ADODB.Recordset") 
Addera = "SELECT lan FROM members where id=" &Request.QueryString("checkid") 
RecSet.Open Addera, Connect, 3, 3 

If Len(recset(lan)) = 0 Then 
Response.Write("<img src=""lan/ej.gif"">") 
Else 
Response.Write("<img src=""lan/" & recset(lan) &".gif"">") 
End If 
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/66114-komprimera