Avatar billede webbygger Nybegynder
01. januar 2005 - 22:31 Der er 5 kommentarer og
1 løsning

Hvordan indsætter med billede i en case sætning ?

Jeg skal hente data fra en database. Der i blandet en bedømmelse brugere har indtastede et tal fra 1-5.

Når jeg henter bedømmelse ind bruger jeg dette her :

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From tabelnavn Where kategori = 'støvler'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)


Select Case rs("karakter")

Case 1
  Response.Write "1 *"


Case 2
  Response.Write "2 *"
 

Case 3
  Response.Write "3 *"
 
 
Case 4
  Response.Write "4 *"
 
 
Case 5
  Response.Write "5 *"



End Select

Conn.Close
Set Conn = Nothing
%>


Nu kunne jeg godt tænke mig, at udskifte de forskellig værdier med  stjerne (image) eks.

case 1 = 1 stjerne

case 2 = 2 stjerne
o.s.v
Avatar billede webbygger Nybegynder
01. januar 2005 - 22:33 #1
Avatar billede ellebaek Nybegynder
01. januar 2005 - 22:36 #2
hmm...

casen er vidst lige meget..

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From tabelnavn Where kategori = 'støvler'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)


for i = 1 to CInt(rs("karakter"))
response.write "<img src=""images/orange.gif"">"
next

Conn.Close
Set Conn = Nothing
%>

sådan her vil jeg mene du blot kan gøre det... så slipper du også for den med case...
Avatar billede softspot Forsker
01. januar 2005 - 22:37 #3
I stedet for din select case kunne du lave en løkke der danner det antal stjerner karakteren berettiger til. F.eks. således:

If IsNumeric(rs("karakter")) Then
  For idx = 1 To rs("karakter")
    Resonse.Write("<img src=""stjerne.gif"" />")
  Next
End If

...for nu at gøre eksemplet helt simpelt (du skal nok have lidt flere parametre på dit image-tag).
Avatar billede softspot Forsker
01. januar 2005 - 22:38 #4
Ellebæk... You beat me to it ;-)
Avatar billede ellebaek Nybegynder
01. januar 2005 - 22:43 #5
hehe ;-)

Virkede det som det skulle?
Avatar billede webbygger Nybegynder
01. januar 2005 - 22:44 #6
Det må man lade jer.......det kan I s..

Hvis det skal gå rigtig til og det skal det jo - må ellebaek heller få points

Svare du ellebaek ?

Tak for den hurtige respons
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester