Plassering av Move.Next / loop ?
Hei!Jeg har litt problemer med plasseringen av RS Move.Next og Loop delen av koden min. Jeg vil ha en normal tabell med hver record pent plassert under hverandre i tabellen, og ikke oppdelte tabeller, slik det blir med min kode. Kan dere se på koden og websiden, og fortelle meg hva jeg må endre?
Slik blir websiden med min versjon av scriptet:
http://www.delawaremusic.net/webmaster/oldconcerts.asp
Og her er koden i sin helhet:
<html>
<head>
<title>Archived Concerts by Delaware</title></head>
<body bgcolor=\"#FFFFFF\" link=\"#999999\" vlink=\"#CCCC99\" alink=\"#006699\">
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-1\" color=\"#999999\">
<a href=\"oldconcerts.asp\">concertarchive</a> | <a href=\"review.asp\">review a
concert</a> | <a href=\"contact.htm\">booking-address</a></font></p>
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b><font color=\"#CC9966\" size=\"5\">archived</font><font color=\"#666666\"><br>
<font size=\"5\">CONCERTS <font color=\"#999999\">by</font> DELAWARE:</font></font></b></font>
<br>
<br>
<%
dddDate=date()
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"allconcerts.mdb\")
\'Hent nye konserter
set rs = conn.execute(\"Select * from concerts where concertdate< #\" & dddDate & \"# order by concertdate DESC\")
Do while Not RS.EOF
%>
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-1\"> </font></p>
<table width=\"94%\" border=\"0\" cellspacing=\"1\" cellpadding=\"5\" align=\"center\" bgcolor=\"#990000\" height=\"53\">
<tr bgcolor=\"#DFC599\" align=\"left\" valign=\"top\">
<td width=\"9%\" height=\"36\">
<div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-1\">
<% Response.Write RS(\"concertdate\")%>
</font></div>
</td>
<td width=\"9%\" height=\"36\">
<div align=\"left\">
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-1\"><b>
<% Response.Write RS(\"location\")%>
, -
<% Response.Write RS(\"city\")%>
</b></font></p>
<p> </p>
</div>
</td>
<td width=\"22%\" height=\"36\">
<div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-1\">
<% Response.Write RS(\"info\")%>
</font></div>
</td>
<td width=\"19%\" height=\"36\">
<div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-1\">
<% Response.Write \"<a href=\'\" & RS(\"weblink\") & \"\'>\" & RS(\"weblink\") & \"</a>\"%>
</font></div>
</td>
<td width=\"25%\" height=\"36\">
<div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"-1\">
<% Response.Write RS(\"playlist\")%>
</font></div>
</td>
</tr>
<% RS.MoveNext%>
</table>
<% Loop
RS.Close
Set RS= Nothing
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
