13. april 2003 - 20:05
Der er
13 kommentarer og 2 løsninger
loop virker ikke
Hejsa NG. Når jeg kører koden virker loop ikke, men det står blot som tekst i browseren: placering = placering + 1 rs.MoveNext loop %> Hvad er der galt? Her er koden: <% strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/data.mdb") Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open strConnect strSQL = "SELECT TOP 6 * FROM arkiv ORDER BY id DESC" Set rs = objConn.Execute(strSQL) 'Udskriv top 6 placering = 1 If Not rs.EOF Then overskrift = rs("overskrift") tekst = rs("tekst") navn = rs("navn") kilde = rs("kilde") link = rs("link") pic = rs("pic") Else Response.Write "<b>Der er noget galt med id'et</b><br><br>" End If %> <div id="boxnews"> <table border="0" width="435" cellspacing="0" cellpadding="0"> <tr> <td width="398" colspan="2" class="headline"><font color="#FF9C00">»</font><%=overskrift%></td> </tr> <tr> <td width="337" class="text"> <table width="100%" height="100%" cellpadding="2"> <tr> <td class="font"><%=tekst%></td> </tr> </table> </td> <td width="100" valign="top" class="tom"> <table border="0" width="100%" cellspacing="0" cellpadding="2"> <tr> <td width="100" height="100" class="pic" align="center" valign="bottom"><img border="0" src="pics/<%=pic%>" width="65" height="80"><br><img src="gfx/nyhedbar.gif"></td> </tr> <tr> <td width="100%" class="info" valign="middle"> <font color="#FF9C00">»</font> <a href="newscom.asp?id="<%=link%>">Diskuter</a><br> <font color="#FF9C00">»</font> <a href="<%=kilde%>">Kilde</a><br> <font color="#FF9C00">»</font> <a href="<%=link%>">Læs mere</a><br> <font color="#FF9C00">Af:</font> <%=navn%> </td> </tr> </table><br> </td> </tr> </table> </div> <br> placering = placering + 1 rs.MoveNext loop %>
Annonceindlæg fra Admin By Request
13. april 2003 - 20:07
#1
Jeg kan godt få det til at virke hvis det hele sættes i Response.Write og hvis jeg fjerner: If Not rs.EOF Then overskrift = rs("overskrift") tekst = rs("tekst") navn = rs("navn") kilde = rs("kilde") link = rs("link") pic = rs("pic") Else Response.Write "<b>Der er noget galt med id'et</b><br><br>" End If Men så kan jeg ikke få den til at hente Id. ved at bruge Response.Write rs("Id")
13. april 2003 - 20:26
#2
Du mangler så vidt jeg kan se et Do til dit Loop.
13. april 2003 - 20:28
#3
Ja, Do While not rs.eof og husk %> Inden du kommer med din Table.
13. april 2003 - 21:17
#4
Den kommer med fejl: Microsoft VBScript compilation error '800a03fb' Expected 'Loop' /filmnet/default.asp, line 95
13. april 2003 - 21:36
#5
når du efter at have skrevet html koder begynder at skrive asp kode igen, så skal du starte din asp igen.. <% ... </div> <br> placering = placering + 1 rs.MoveNext loop %> Håber at du selv kan se det... :) Thomas
13. april 2003 - 22:04
#6
Arrrk for pokker da i hunden...Dasker mig selv.. Thomas du havde self. ret ;-)
13. april 2003 - 22:07
#7
Do manglede og der kom knico først. <% manglede og der kom thb.. Eller skal de deles mellem jer alle 3?
13. april 2003 - 22:09
#8
Men du mangler selfølgelig også do for at dit loop kan virke.. :) Thomas
13. april 2003 - 22:10
#9
Jeg behøver ikke nogle point. Thomas
13. april 2003 - 22:13
#10
Kan I hjælpe med et spm mere, eller skal jeg oprette et nyt spm? Hvorfor vil den ikke hente Id med <%=Id%> ? Jeg ved den er case sensitive, men det skulle være ok.
13. april 2003 - 22:14
#11
Jeg har skrevet: Id = rs("Id") længere oppe i koden
13. april 2003 - 22:26
#12
Vil den godt hente de andre rs variabler.. ?? Thomas
13. april 2003 - 22:29
#13
Ja..Det vil den godt.
13. april 2003 - 22:29
#14
Her kommer lige hele den nye kode: <% strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/data.mdb") Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open strConnect strSQL = "SELECT TOP 6 * FROM arkiv ORDER BY id DESC" Set rs = objConn.Execute(strSQL) 'Udskriv top 6 placering = 1 Do While not rs.eof Id = rs("Id") overskrift = rs("overskrift") tekst = rs("tekst") navn = rs("navn") kilde = rs("kilde") link = rs("link") pic = rs("pic") %> <div id="boxnews"> <table border="0" width="435" cellspacing="0" cellpadding="0"> <tr> <td width="398" colspan="2" class="headline"><font color="#FF9C00">»</font><%=overskrift%></td> </tr> <tr> <td width="337" class="text"> <table width="100%" height="100%" cellpadding="2"> <tr> <td class="font"><%=tekst%></td> </tr> </table> </td> <td width="100" valign="top" class="tom"> <table border="0" width="100%" cellspacing="0" cellpadding="2"> <tr> <td width="100" height="100" class="pic" align="center" valign="bottom"><img border="0" src="../pics/<%=pic%>" width="65" height="80"><br><img src="gfx/nyhedbar.gif"></td> </tr> <tr> <td width="100%" class="info" valign="middle"> <font color="#FF9C00">»</font> <a href="newscom.asp?id="<%=Id%>">Diskuter</a><br> <font color="#FF9C00">»</font> <a href="<%=kilde%>">Kilde</a><br> <font color="#FF9C00">»</font> <a href="<%=link%>">Læs mere</a><br> <font color="#FF9C00">Af:</font> <%=navn%> </td> </tr> </table><br> </td> </tr> </table> </div> <br> <% placering = placering + 1 rs.MoveNext loop %>
13. april 2003 - 22:37
#15
Det ved jeg faktisk ikke.. :( Men det kan være at det er pga. den der TOP 6 kode... Prøv en gang bare at skriv * og så se om den vil tage id med.. hvis den vil, så er det der fejlen er, og så må du finde en anden metode.. :) Thomas
Kurser inden for grundlæggende programmering