komprimera

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
%>

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

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

ä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

funkar perfekt.... tack !

Jaja... :) Orginalinlägg redigerat.

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

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 
%>