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
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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