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.
du laver enten 10 eller 100 giffer på 1px (eller 0,5px) og så læser du en værdi ind for den enkelte post (vi siger 100 giffer her i eksemplet), er værdien 53 så laver du følgende regnestykke:
(Stemmer/Total antal stemmer)*100 så ved du hvor mange procent. er totalt antal stemmer = 89 får får du følgende:
(53/89)*100 = 59%
Så siger du antal giffer lig 59 hvis du har 100 giffer 1 gif for hver procent.
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("info.mdb") Sql = "SELECT count(*) as varFull_count FROM tblInfo" Set hent0 = conn.execute(sql) Sql = "SELECT count(*) as varMegetGodt FROM tblInfo WHERE dbSvar = 'Meget Godt'" Set hent1 = conn.execute(sql) Sql = "SELECT count(*) as varGodt FROM tblInfo WHERE dbSvar = 'Godt'" Set hent2 = conn.execute(sql) Sql = "SELECT count(*) as varLidtGodt FROM tblInfo WHERE dbSvar = 'Lidt Godt'" Set hent3 = conn.execute(sql) Sql = "SELECT count(*) as varOK FROM tblInfo WHERE dbSvar = 'OK'" Set hent4 = conn.execute(sql) Sql = "SELECT count(*) as varLidtDaarligt FROM tblInfo WHERE dbSvar = 'Lidt Dårligt'" Set hent5 = conn.execute(sql) Sql = "SELECT count(*) as varDaarligt FROM tblInfo WHERE dbSvar = 'Dårligt'" Set hent6 = conn.execute(sql) Sql = "SELECT count(*) as varMegetDaarligt FROM tblInfo WHERE dbSvar = 'Meget Dårligt'" Set hent7 = conn.execute(sql) Sql = "SELECT count(*) as varVedIkke FROM tblInfo WHERE dbSvar = 'Ved Ikke'" Set hent8 = conn.execute(sql)
<TABLE> <TR> <TD ALIGN=RIGHT> <B>Antal Meninger:</B><BR> <HR> Meget Godt:<BR> Godt:<BR> Lidt Godt:<BR> OK:<BR> Lidt Dårligt:<BR> Dårligt:<BR> Meget Dårligt:<BR> Ved Ikke: </TD> <TD ALIGN=LEFT> <B><%= hent0("varFull_count")%></B><BR> <HR> <% 'Første er med 1px som bruges igen og igen if Round(ialt1,2) < 5 Then  %>%<BR> if Round(ialt1,2) > 5 AND Round(ialt1,2) < 15 Then <IMG SRC="1px.gif"> elseif Round(ialt1,2) > 15 AND Round(ialt1,2) < 25 Then <IMG SRC="1px.gif"><IMG SRC="1px.gif"> elseif Round(ialt1,2) > 25 AND Round(ialt1,2) < 35 Then <IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"> 'osv elseif Round(ialt1,2) > 95 Then <IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"><IMG SRC="1px.gif"> end if 'her med 10 billeder if Round(ialt2,2) < 5 Then  %>%<BR> if Round(ialt1,2) > 5 AND Round(ialt1,2) < 15 Then <IMG SRC="1px.gif"> elseif Round(ialt1,2) > 15 AND Round(ialt1,2) < 25 Then <IMG SRC="2px.gif"> elseif Round(ialt1,2) > 25 AND Round(ialt1,2) < 35 Then <IMG SRC="3px.gif"> 'osv elseif Round(ialt1,2) > 95 Then <IMG SRC="10px.gif"> end if </TD> </TR> </TABLE>
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.