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
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
01. januar 2005 - 22:33
#1
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...
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).
01. januar 2005 - 22:38
#4
Ellebæk... You beat me to it ;-)
01. januar 2005 - 22:43
#5
hehe ;-) Virkede det som det skulle?
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
Kurser inden for grundlæggende programmering