Mystisk fel... — webForum

ampyMedlem sedan feb. 20011 498 inlägg

Frågan16 jan. 2002 16:10#1

Jag har kollat igenom denna kod ganska länge nu efter fel, felet är att bara två av 4 banners skrivs ut i topplistan.
Här kommer koden:

<%

		Set Connect = Server.CreateObject("ADODB.Connection") 
		Set RecSet = server.createobject("ADODB.Recordset")
		Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/topplista.mdb")

SQL = "SELECT * From users Order By [in] DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

i = 0
do until i = 20
i = i +1			

Dim om, Banner
If NOT RecSet.EOF Then
om = RecSet("om")
Banner = "<a href='topplista.asp?vad=ut&id="&RecSet("ID")&"' target='_blank'><img src='"&RecSet("banner")&"' border=0 width=460 height=68></a>"
in_ = recset("in")
ut_ = recset("ut")
recset.movenext	

Else
om = ""
banner = "<a href=""registrera.asp""><img src=""joina.gif"" border=""0"" width=460 height=68></a>"
in_ = "&nbsp"
ut_ = "&nbsp"

End If	
%>

<table width="640">

<tr width="640">

<td width="30" style="BORDER-RIGHT: #999999 1px dotted">
<font face="Verdana" size="2">
<b>&nbsp;<%=i%></b>
</td>

<td width="10">

</td>

<td width="480">

<%=Banner%><br>
<font face="Verdana" size="1">

</td>

<td width="50" style="BORDER-LEFT: #999999 1px dotted">
<font face="Verdana" size="1"><center>

<%=in_%>

</td>

<td width="50">
<font face="Verdana" size="1"><center>
<%=ut_%>
</td>
</tr>

<tr width="640">

<td width="30" style="BORDER-RIGHT: #999999 1px dotted">
<font face="Verdana" size="2">
<b>&nbsp;</b>
</td>

<td width="10">

</td>

<td width="480"><font face="Verdana" size="1">
<i><%=om%><i><br><br><br>

</td>

<td width="50" style="BORDER-LEFT: #999999 1px dotted">
<font face="Verdana" size="1"><center>
&nbsp;
</td>

<td width="50">
<font face="Verdana" size="1"><center>
&nbsp;
</td>
</tr>
</table>

<%
if NOT recset.eof then
RecSet.MoveNext
end if

loop

	Connect.Close
	
	Set Connect = Nothing
	Set RecSet = Nothing

%>

Hoppas någon hittar något fel.

------------------
Ampy.cjb.net

LarsGMedlem sedan dec. 200012 464 inlägg

16 jan. 2002 16:17#2

Du har två recset.movenext i din loop så du visar bara varannan banner.

if NOT recset.eof then
RecSet.MoveNext
end if

Du kan ta bort den koden.

------------------
essentitia preter non sans multiplicandum

ampyMedlem sedan feb. 20011 498 inlägg

16 jan. 2002 16:29#3

Det funkar utmärkt nu, tack så mycket LarsG.
Sen undrar jag en sak om webforum, kanske inte rätt kod men skriver den här iaf. Jag tog underrättad via ICQ men jag får inget meddelande, har varit så kanske i en vecka nu, är det någon som vet varför det inte funkar, via e-mail funkar men inte ICQ alltså, jag har rätt ICQ-nummer.

------------------
Ampy.cjb.net

icaaqMedlem sedan okt. 20005 273 inlägg

16 jan. 2002 17:11#4

Det är likadant för mig...

------------------
-::|ic@@q|::-