11 svar · 234 visningar · startad av ReloadMaster
Tjena!
Jag skulle behöva hjälp med min topplista.
Det är så att det ska vara en topp15
och jag vill att den ska skriva ut
alla konton som finns och har högre incount än > 0
Men om det inte finns några konton på högre incount än >0
Så ska den skriva:
"Din sida här"
Eller om det finns typ 14 sidor så ska den skriva ut alla sidor där och på resten ska det stå:
"Din sida här"
Hoppas du förstod...
------------------
Das Dunkhopf...
set connect = server.createobject("ADODB.Connection")
connect.open "dsn"
sql = "select top 15 konto from konton where incount > 0 order by incount desc"
set rs = connect.execute(sql)
for i = 1 to 15
if rs.eof then
response.write "Din sida här <br>"
else
response.write rs("konto") & " <br>"
rs.movenext
end if
next
rs.close
connect.close
------------------
essentitia preter non sans multiplicandum
Tack LarsG,
Men vad jag försökte mena var att om det fanns ett konto så skulle det skriva ut det och sedan skriva ut
"Din sida här"
på resten av dom 14...
------------------
Das Dunkhopf...
Ja, nu förstår jag inte riktigt.
Mitt skript skriver alltid ut 15 rader, oavsett hur många poster det finns i recordsetet.
------------------
essentitia preter non sans multiplicandum
Jag menar att finns det en post i datbasen så skriver den ut den och fyller upp resten med
"Din sida här"
------------------
Das Dunkhopf...
Okej, det är så mitt skript är tänkt att fungera.
Om det bara finns en post i tabellen som uppfyller villkoret så blir eof sant efter första iterationen i for-loopeb och sedan så skriver man ut din sida här tills dess att man har skrivit 15 rader.
------------------
essentitia preter non sans multiplicandum
Men den skriver bara ut 15st
"Din sida här"
trots 11poster i datbsen...
Här är min ändrade kod:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("toppdb.mdb")
SQL = "SELECT top 15 * FROM topplista WHERE inkom > 0 ORDER BY inkom DESC"
Set RecSet = Connect.Execute(SQL)
for i = 1 to 15
if RecSet.eof then
response.write "Din sida här <br>"
else
response.write recsset("snamn") & " <br>"
RecSet.movenext
end if
next
Recset.close
connect.close
%>
------------------
Das Dunkhopf...
Förlåt, men jag verkar ju va lite dum i huvudet idag...
Det funkade utmärkt...
------------------
Das Dunkhopf...
Jag måste vara knäpp idag men jag hittar inte felet:
SQL = "Insert Into topplista"
SQL = SQL & "(anvandarnamn,losenord,snman,sadress,badress,besk,email)"
SQL = SQL & "VALUES ('"& spaAn &"', '"& spaLo &"', '"& spaBa &"', '"& spaSu &"', '"& spaSn &"', '"& spaSn &"', '"& spaBesk &"', '"& spaEM &"')"
Connect.Execute(SQL)
------------------
Das Dunkhopf...
Kolla så du kallat ditt connectionobjekt samma som när du skapade det.
Mvh,
------------------
målar-anders, det är jag.
