Notifikationer

Markér alle som læst Log ud

caroc Praktikant

28. juli 2003 - 17:45 Der er 13 kommentarer og
1 løsning

Loop problem

Nogen der kan gennemskue hvorfor følgende kode ikke giver noget resultat. Jeg får ingen fejl der kommer bare ikke noget ved mine recordset..

<%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../database/hbk.mdb")

strSQL = "Select * From Aaben"
rs.Open strSQL,Conn,1,3

<%do while not rs.EOF %>
<td class="tekst" style="border-right: 1px solid #CCCCCC; border-left: 1px solid #434343;" width="73">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Dato")%>
</font></div>
</td>
<td width="10">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000"></font></div>
</td>
<td class="tekst" style="border-right: 1px solid #434343;" width="150">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Navn")%>
</font></div>
</td>
<td class=""tekst"" style="border-right: 1px solid #434343;" width="150">
<div align="right"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Aldersgruppe")%>
</font></div>
</td>
<%
rs.movenext
loop

Conn.Close
Set Conn = Nothing
%>

Synes godt om

eagleeye Praktikant

28. juli 2003 - 17:49 #1

Så er recordsetet nok tomt hvis du ikke får skrevet noget ud.

Er det du har vist hele din kode for der er et <% formeget

Synes godt om

eagleeye Praktikant

28. juli 2003 - 17:50 #2

Det er i denne linje der er et <% formeget:

<%do while not rs.EOF %>

Det skal være, sådan her som din kode er i spørgsmålet.

do while not rs.EOF %>

Synes godt om

caroc Praktikant

28. juli 2003 - 17:53 #3

har lige afprøvet det igen efter ejg fjernede <% - det virker stadig ikke..
Og min database er ik tom..

Synes godt om

drip Nybegynder

28. juli 2003 - 17:54 #4

prøv såden her:
<%
if not rs.eof then
do until rs.eof
%>

<td class="tekst" style="border-right: 1px solid #CCCCCC; border-left: 1px solid #434343;" width="73">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Dato")%>
</font></div>
</td>
<td width="10">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000"></font></div>
</td>
<td class="tekst" style="border-right: 1px solid #434343;" width="150">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Navn")%>
</font></div>
</td>
<td class=""tekst"" style="border-right: 1px solid #434343;" width="150">
<div align="right"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Aldersgruppe")%>
</font></div>
</td>
<%
rs.movenext
loop
else
response.write "databasen er tom!"
end if

Conn.Close
Set Conn = Nothing

%>

Synes godt om

drip Nybegynder

28. juli 2003 - 17:55 #5

det skal sætte ind efter:
strSQL = "Select * From Aaben"
rs.Open strSQL,Conn,1,3

Synes godt om

eagleeye Praktikant

28. juli 2003 - 17:56 #6

Har du husket <table> tags før og efter hvis du bare har <td> kan de enmlig forvinde i browseren prøvat vælge view source i IE og se om HTML koden er der ??

Synes godt om

caroc Praktikant

28. juli 2003 - 17:58 #7

drip --> dit virkede heller ikke..
eagleeye --> jeps har husket mine <table> tags..

prøver lgie at poste resten af koden

<table width="90%" cellpadding="0" cellspacing="0">
<tr>
<td class="menu" bgcolor="#434343">
<div align="center"><b><font color="#FFFFFF">Dato:</font></b></div>
</td>
<td bgcolor="#434343" width="10"> </td>
<td class="menu" width="150" bgcolor="#434343">
<div align="center"><b><font color="#FFFFFF">Stævnenavn:</font></b></div>
</td>
<td class="menu" width="150" bgcolor="#434343">
<div align="right"><b><font color="#FFFFFF">Række:</font></b></div>
</td>
<tr>
<%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../database/hbk.mdb")

strSQL = "Select * From Aaben"
rs.Open strSQL,Conn,1,3

do while not rs.EOF %>
<td class="tekst" style="border-right: 1px solid #CCCCCC; border-left: 1px solid #434343;" width="73">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Dato")%>
</font></div>
</td>
<td width="10">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000"></font></div>
</td>
<td class="tekst" style="border-right: 1px solid #434343;" width="150">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Navn")%>
</font></div>
</td>
<td class=""tekst"" style="border-right: 1px solid #434343;" width="150">
<div align="right"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Aldersgruppe")%>
</font></div>
</td>
<%
rs.movenext
loop

Conn.Close
Set Conn = Nothing
%>
</table>

Synes godt om

squashguy Nybegynder

28. juli 2003 - 17:59 #8

lille bemærkning:

<%response.write rs("Navn")%>

kan skrives på kort form:

<%=rs("Navn")%>

det letter skrivearbejdet

Synes godt om

squashguy Nybegynder

28. juli 2003 - 18:01 #9

har du glemt <tr></tr> ?

Synes godt om

caroc Praktikant

28. juli 2003 - 18:03 #10

hmm tror måske jeg har fundet fejlen.. den ligger ikke i koden, men derimod at koden lægges i en db som derefter hiver den ud vha. asp.. så er asp vel afviklet allerede eller hva?

Synes godt om

caroc Praktikant

28. juli 2003 - 18:13 #11

hmm jeg kan slet ik få det til at virke.. andre gode ideer :)

Synes godt om

drip Nybegynder

28. juli 2003 - 18:18 #12

Prøv at lave den helt fra starten af igen.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../database/hbk.mdb")
Conn.Open DSN

SQL = "Select * from Aaben"
Set rs = conn.execute(SQL)

if not rs.eof then
do until rs.eof
%>
<td class="tekst" style="border-right: 1px solid #CCCCCC; border-left: 1px solid #434343;" width="73">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Dato")%>
</font></div>
</td>
<td width="10">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000"></font></div>
</td>
<td class="tekst" style="border-right: 1px solid #434343;" width="150">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Navn")%>
</font></div>
</td>
<td class=""tekst"" style="border-right: 1px solid #434343;" width="150">
<div align="right"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Aldersgruppe")%>
</font></div>
</td>
<%
rs.movenext
loop
else
response.write "Databasen er tom"
end if
%>

Synes godt om

drip Nybegynder

28. juli 2003 - 18:23 #13

Virker det?

Synes godt om

drip Nybegynder

28. juli 2003 - 18:31 #14

Denne kode bruge klart virke, ellers så smid din database op så kan jeg se om jeg kan finde en fejl ve den! <table><tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../database/hbk.mdb")
Conn.Open DSN

SQL = "Select * from Aaben"
Set rs = conn.execute(SQL)

if not rs.eof then
do until rs.eof
%>
<td class="tekst" style="border-right: 1px solid #CCCCCC; border-left: 1px solid #434343;" width="73">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Dato")%>
</font></div>
</td>
<td width="10">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000"></font></div>
</td>
<td class="tekst" style="border-right: 1px solid #434343;" width="150">
<div align="center"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Navn")%>
</font></div>
</td>
<td class=""tekst"" style="border-right: 1px solid #434343;" width="150">
<div align="right"><font size="2" face="Geneva, Arial, Helvetica, san-serif" color="#000000">
<%response.write rs("Aldersgruppe")%>
</font></div>
</td>
<%
rs.movenext
loop
else
response.write "Databasen er tom"
end if
%>
</tr></table>

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
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

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS