Avatar billede plato Juniormester
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">
            &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="newscom.asp?id="<%=link%>">Diskuter</a><br>
        &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="<%=kilde%>">Kilde</a><br>
            &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="<%=link%>">Læs mere</a><br>
            &nbsp;&nbsp;<font color="#FF9C00">Af:</font> <%=navn%>       
          </td>
        </tr>
      </table><br>
    </td>
  </tr>
</table>
</div>
<br>



  placering = placering + 1
  rs.MoveNext
loop

%>
Avatar billede plato Juniormester
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")
Avatar billede knico Nybegynder
13. april 2003 - 20:26 #2
Du mangler så vidt jeg kan se et Do til dit Loop.
Avatar billede icedox Nybegynder
13. april 2003 - 20:28 #3
Ja, Do While not rs.eof

og husk %> Inden du kommer med din Table.
Avatar billede plato Juniormester
13. april 2003 - 21:17 #4
Den kommer med fejl:
Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/filmnet/default.asp, line 95
Avatar billede thb Nybegynder
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
Avatar billede plato Juniormester
13. april 2003 - 22:04 #6
Arrrk for pokker da i hunden...Dasker mig selv..

Thomas du havde self. ret ;-)
Avatar billede plato Juniormester
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?
Avatar billede thb Nybegynder
13. april 2003 - 22:09 #8
Men du mangler selfølgelig også do for at dit loop kan virke.. :)

Thomas
Avatar billede thb Nybegynder
13. april 2003 - 22:10 #9
Jeg behøver ikke nogle point.

Thomas
Avatar billede plato Juniormester
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.
Avatar billede plato Juniormester
13. april 2003 - 22:14 #11
Jeg har skrevet:
Id = rs("Id") længere oppe i koden
Avatar billede thb Nybegynder
13. april 2003 - 22:26 #12
Vil den godt hente de andre rs variabler.. ??

Thomas
Avatar billede plato Juniormester
13. april 2003 - 22:29 #13
Ja..Det vil den godt.
Avatar billede plato Juniormester
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">
            &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="newscom.asp?id="<%=Id%>">Diskuter</a><br>
        &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="<%=kilde%>">Kilde</a><br>
            &nbsp;&nbsp;<font color="#FF9C00">»</font> <a href="<%=link%>">Læs mere</a><br>
            &nbsp;&nbsp;<font color="#FF9C00">Af:</font> <%=navn%>       
          </td>
        </tr>
      </table><br>
    </td>
  </tr>
</table>
</div>
<br>

<%

  placering = placering + 1
  rs.MoveNext
loop

%>
Avatar billede thb Nybegynder
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
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
Kurser inden for grundlæggende programmering

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