Søg
Avatar billede JenZen Novice
19. september 2006 - 22:03 Der er 5 kommentarer og
1 løsning

loop i udtræk fra db

Jeg skal bruge flg. i et loop:
    <tr>
        <td width="60"><font face="Verdana" size="1"><% Response.Write rs("Butik") %></font></td>
        <td width="80"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Fra") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Til") %></font></td>
        <td width="40"><font face="Verdana" size="1">
        <input type="text" name="Total" size="8" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF" value="<% Response.Write rs("Total") %>"></font></td>
        <td><font face="Verdana" size="1"><% Response.Write rs("Bemærkning") %></font></td>
    </tr>
    <tr>
        <td colspan="6" bgcolor="#000000" height="1"></td>
    </tr>

Her er hele koden:
<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/Medarbejder.mdb") %>
<% strSQL = "Select * From " & Request.querystring("Tabel") &" Where Medarbejder='" & Request("Medarbejder") &"'"
Set rs = Conn.Execute(strSQL)%>

<html>

<head>
<title>Arbejdstimer</title>
</head>

<body>

<table border="0">
    <tr>
        <td width="360" colspan="4"><b>
        <font color="#99ccff" face="Trebuchet MS" size="2">&#9642; </font>
        <font face="Verdana" size="2">Total Oversigt</font></b></td>
    </tr>
    <tr>
        <td width="110" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Total Antal Timer:</font></b></td>
        <td width="110" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">For Medarbejder:</font></b></td>
        <td width="70" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Fra D.:</font></b></td>
        <td width="70" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Til D.:</font></b></td>
    </tr>
    <tr>
        <td width="110">
        <input type="text" name="TotalTimer" size="15" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF"></td>
        <td width="110"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="70">
        <input type="text" name="FraD" size="10" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; "></td>
        <td width="70">
        <input type="text" name="TilD" size="10" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; "></td>
    </tr>
    <tr>
        <td width="360" colspan="4" bgcolor="#000000" height="1"></td>
    </tr>
</table>
<br>
<table border="0" width="100%">
    <tr>
        <td colspan="6"><b><font color="#99ccff" face="Trebuchet MS" size="2">&#9642;
        </font><font face="Verdana" size="2">Oversigt</font></b></td>
    </tr>
    <tr>
        <td width="60" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Butik</font></b></td>
        <td width="80" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Medarbejder</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Fra</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Til</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Total</font></b></td>
        <td bgcolor="#000000"><b><font face="Verdana" size="1" color="#FFFFFF">Bemærkning</font></b></td>
    </tr>
    <tr>
        <td width="60"><font face="Verdana" size="1"><% Response.Write rs("Butik") %></font></td>
        <td width="80"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Fra") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Til") %></font></td>
        <td width="40"><font face="Verdana" size="1">
        <input type="text" name="Total" size="8" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF" value="<% Response.Write rs("Total") %>"></font></td>
        <td><font face="Verdana" size="1"><% Response.Write rs("Bemærkning") %></font></td>
    </tr>
    <tr>
        <td colspan="6" bgcolor="#000000" height="1"></td>
    </tr>
</table>

<p>
        </p>

</body>

</html>
Avatar billede JenZen Novice
19. september 2006 - 22:03 #1
Tror egentlig det hedder movenext ?
Avatar billede madeindk Nybegynder
19. september 2006 - 22:35 #2
<html>

<head>
<title>Arbejdstimer</title>
</head>

<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/Medarbejder.mdb")
strSQL = "Select * From " & Request.querystring("Tabel") &" Where Medarbejder='" & Request("Medarbejder") &"'"
Set rs = Conn.Execute(strSQL)

If rs.eof then
Response.Write("Ingen poster fundet")
Else
Do Until RS.eof
%>

<table border="0">
    <tr>
        <td width="360" colspan="4"><b>
        <font color="#99ccff" face="Trebuchet MS" size="2">&#9642; </font>
        <font face="Verdana" size="2">Total Oversigt</font></b></td>
    </tr>
    <tr>
        <td width="110" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Total Antal Timer:</font></b></td>
        <td width="110" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">For Medarbejder:</font></b></td>
        <td width="70" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Fra D.:</font></b></td>
        <td width="70" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Til D.:</font></b></td>
    </tr>
    <tr>
        <td width="110">
        <input type="text" name="TotalTimer" size="15" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF"></td>
        <td width="110"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="70">
        <input type="text" name="FraD" size="10" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; "></td>
        <td width="70">
        <input type="text" name="TilD" size="10" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; "></td>
    </tr>
    <tr>
        <td width="360" colspan="4" bgcolor="#000000" height="1"></td>
    </tr>
</table>
<br>
<table border="0" width="100%">
    <tr>
        <td colspan="6"><b><font color="#99ccff" face="Trebuchet MS" size="2">&#9642;
        </font><font face="Verdana" size="2">Oversigt</font></b></td>
    </tr>
    <tr>
        <td width="60" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Butik</font></b></td>
        <td width="80" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Medarbejder</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Fra</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Til</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Total</font></b></td>
        <td bgcolor="#000000"><b><font face="Verdana" size="1" color="#FFFFFF">Bemærkning</font></b></td>
    </tr>
    <tr>
        <td width="60"><font face="Verdana" size="1"><% Response.Write rs("Butik") %></font></td>
        <td width="80"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Fra") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Til") %></font></td>
        <td width="40"><font face="Verdana" size="1">
        <input type="text" name="Total" size="8" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF" value="<% Response.Write rs("Total") %>"></font></td>
        <td><font face="Verdana" size="1"><% Response.Write rs("Bemærkning") %></font></td>
    </tr>
    <tr>
        <td colspan="6" bgcolor="#000000" height="1"></td>
    </tr>
</table>

<%
rs.movenext
loop
end if
%>

</body>

</html>
Avatar billede JenZen Novice
19. september 2006 - 22:41 #3
Hej MadeInDk, den er delvis rigtig bortset fra at den "looper" det hele, kan man ikke få den til kun at "loope":

    <tr>
        <td width="60"><font face="Verdana" size="1"><% Response.Write rs("Butik") %></font></td>
        <td width="80"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Fra") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Til") %></font></td>
        <td width="40"><font face="Verdana" size="1">
        <input type="text" name="Total" size="8" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF" value="<% Response.Write rs("Total") %>"></font></td>
        <td><font face="Verdana" size="1"><% Response.Write rs("Bemærkning") %></font></td>
    </tr>
    <tr>
        <td colspan="6" bgcolor="#000000" height="1"></td>
    </tr>
Avatar billede madeindk Nybegynder
19. september 2006 - 22:49 #4
Jo, her :-)

<html>

<head>
<title>Arbejdstimer</title>
</head>

<body>

<table border="0">
    <tr>
        <td width="360" colspan="4"><b>
        <font color="#99ccff" face="Trebuchet MS" size="2">&#9642; </font>
        <font face="Verdana" size="2">Total Oversigt</font></b></td>
    </tr>
    <tr>
        <td width="110" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Total Antal Timer:</font></b></td>
        <td width="110" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">For Medarbejder:</font></b></td>
        <td width="70" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Fra D.:</font></b></td>
        <td width="70" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Til D.:</font></b></td>
    </tr>
    <tr>
        <td width="110">
        <input type="text" name="TotalTimer" size="15" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF"></td>
        <td width="110"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="70">
        <input type="text" name="FraD" size="10" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; "></td>
        <td width="70">
        <input type="text" name="TilD" size="10" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; "></td>
    </tr>
    <tr>
        <td width="360" colspan="4" bgcolor="#000000" height="1"></td>
    </tr>
</table>
<br>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/Medarbejder.mdb")
strSQL = "Select * From " & Request.querystring("Tabel") &" Where Medarbejder='" & Request("Medarbejder") &"'"
Set rs = Conn.Execute(strSQL)

If rs.eof then
Response.Write("Ingen poster fundet")
Else
Do Until RS.eof
%>

<table border="0" width="100%">
    <tr>
        <td colspan="6"><b><font color="#99ccff" face="Trebuchet MS" size="2">&#9642;
        </font><font face="Verdana" size="2">Oversigt</font></b></td>
    </tr>
    <tr>
        <td width="60" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Butik</font></b></td>
        <td width="80" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Medarbejder</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Fra</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Til</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Total</font></b></td>
        <td bgcolor="#000000"><b><font face="Verdana" size="1" color="#FFFFFF">Bemærkning</font></b></td>
    </tr>
    <tr>
        <td width="60"><font face="Verdana" size="1"><% Response.Write rs("Butik") %></font></td>
        <td width="80"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Fra") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Til") %></font></td>
        <td width="40"><font face="Verdana" size="1">
        <input type="text" name="Total" size="8" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF" value="<% Response.Write rs("Total") %>"></font></td>
        <td><font face="Verdana" size="1"><% Response.Write rs("Bemærkning") %></font></td>
    </tr>
    <tr>
        <td colspan="6" bgcolor="#000000" height="1"></td>
    </tr>
</table>

<%
rs.movenext
loop
end if
%>

</body>

</html>
Avatar billede madeindk Nybegynder
19. september 2006 - 22:50 #5
Hov nej. Det er mig, der er ved at være lidt træt tror jeg ;-)

<html>

<head>
<title>Arbejdstimer</title>
</head>

<body>

<table border="0">
    <tr>
        <td width="360" colspan="4"><b>
        <font color="#99ccff" face="Trebuchet MS" size="2">&#9642; </font>
        <font face="Verdana" size="2">Total Oversigt</font></b></td>
    </tr>
    <tr>
        <td width="110" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Total Antal Timer:</font></b></td>
        <td width="110" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">For Medarbejder:</font></b></td>
        <td width="70" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Fra D.:</font></b></td>
        <td width="70" bgcolor="#000000"><b>
        <font size="1" face="Verdana" color="#FFFFFF">Til D.:</font></b></td>
    </tr>
    <tr>
        <td width="110">
        <input type="text" name="TotalTimer" size="15" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF"></td>
        <td width="110"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="70">
        <input type="text" name="FraD" size="10" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; "></td>
        <td width="70">
        <input type="text" name="TilD" size="10" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; "></td>
    </tr>
    <tr>
        <td width="360" colspan="4" bgcolor="#000000" height="1"></td>
    </tr>
</table>
<br>

<table border="0" width="100%">
    <tr>
        <td colspan="6"><b><font color="#99ccff" face="Trebuchet MS" size="2">&#9642;
        </font><font face="Verdana" size="2">Oversigt</font></b></td>
    </tr>
    <tr>
        <td width="60" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Butik</font></b></td>
        <td width="80" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Medarbejder</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Fra</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Til</font></b></td>
        <td width="40" bgcolor="#000000"><b>
        <font face="Verdana" size="1" color="#FFFFFF">Total</font></b></td>
        <td bgcolor="#000000"><b><font face="Verdana" size="1" color="#FFFFFF">Bemærkning</font></b></td>
    </tr>
   
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/Medarbejder.mdb")
strSQL = "Select * From " & Request.querystring("Tabel") &" Where Medarbejder='" & Request("Medarbejder") &"'"
Set rs = Conn.Execute(strSQL)

If rs.eof then
Response.Write("Ingen poster fundet")
Else
Do Until RS.eof
%>   

    <tr>
        <td width="60"><font face="Verdana" size="1"><% Response.Write rs("Butik") %></font></td>
        <td width="80"><font face="Verdana" size="1"><% Response.Write rs("Medarbejder") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Fra") %></font></td>
        <td width="40"><font face="Verdana" size="1"><% Response.Write rs("Til") %></font></td>
        <td width="40"><font face="Verdana" size="1">
        <input type="text" name="Total" size="8" style="font-family: Verdana; font-size: 10px; color: #000000; border-style: solid; border-width: 0px; background-color: #FFFFFF" value="<% Response.Write rs("Total") %>"></font></td>
        <td><font face="Verdana" size="1"><% Response.Write rs("Bemærkning") %></font></td>
    </tr>
    <tr>
        <td colspan="6" bgcolor="#000000" height="1"></td>
    </tr>

<%
rs.movenext
loop
end if
%>

</table>

</body></html>
Avatar billede JenZen Novice
19. september 2006 - 22:54 #6
Perfekt og tak for det, gider du tage et kig på mit andet spørgsmål om beregninger i en form.
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB
Seneste spørgsmål Seneste aktivitet
29/0113:08 Bruge PHP til at hente hjemmeside med fsockopen Af Strawberry i PHP
28/0113:36 godt råd søges Alternativ styresystem på Mac pc Af luffe1955 i Andre styresystemer
28/0111:32 Hjælp til kontrol af sygefravær Af Maja i Excel
27/0113:59 2 skærme til en stationær computer Af BIRGER i Skærme
26/0119:26 Opstart af ny computer Af Bent i Windows
White papers
Flere white papers »