29. april 2006 - 21:30Der er
3 kommentarer og 1 løsning
hjælp med loop.. og access..
mit problem er at jeg skal ha en tæller som tæller de folk, der kommer, det virker også godt nok.. men efter jeg lavede den.. ville den ikke længere vise navne på de folk som kommer. lidt hjælp..
<html> <head> <title>Fest</title>
</head>
<body> <%
Set MyDataConn = Server.CreateObject("ADODB.Connection") DBSti = "DBQ=" & Server.Mappath("fest.mdb") MyDataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti SQL = "Select * from fest" Set rs = MyDataConn.Execute(SQL) nummer = 0 do while not rs.EOF if rs("tilstand") = "1" then nummer = nummer + 1 end if rs.movenext loop rs1.close %> Folk der kommer <%=nummer%> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <% do while rs.eof %> <tr> <td><% if rs("tilstand") = "1" then%><font color="#00FF00"><%=rs("navn")%></font><%else%><font color="#FF0000"><%=rs("navn")%></font><%end if%></td> </tr> <% rs.movenext loop rs.Close %> </table>
Danmark vil mindske afhængigheden af globale techgiganter, men det kræver mere end politiske formuleringer og strategier, understreger PROSA’s formand Niels Bertelsen.
Set MyDataConn = Server.CreateObject("ADODB.Connection") DBSti = "DBQ=" & Server.Mappath("fest.mdb") MyDataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti SQL = "Select * from fest" Set rs = MyDataConn.Execute(SQL) nummer = 0 do while not rs.eof if rs("tilstand") = "1" then nummer = nummer + 1 end if rs.movenext loop %> Folk der kommer er grønne :D <%=nummer%> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <% do while not rs.eof %> <tr> <td><% if rs("tilstand") = "1" then%><font color="#00FF00"><%=rs("navn")%></font><%else%><font color="#FF0000"><%=rs("navn")%></font><%end if%></td> </tr> <% rs.movenext loop rs.Close %> </table>
</body> </html> ups en gamel kopi af koden.. her er den som jeg skriver om..
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.