21. august 2002 - 12:19
Der er
13 kommentarer og 1 løsning
vis 10 records pr. side
Hejsa
jeg har en side
www.tis.lir.dk hvor nyhederne der er på forsiden kun ska vise 10 nyheder pr side, jeg har prøvet at sætte et asp script ind i, men det fungere ikke helt... er der en der gidder hjælpe mig med det ?
Mvh Morten
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
21. august 2002 - 12:20
#1
ja måske... post koden...
21. august 2002 - 12:24
#2
21. august 2002 - 12:34
#3
her er hele koden..: <% Response.Buffer = True ' Connection til database Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("nyheder/nyheder.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath ' Her hiver vi indholdet af databasen ud, sorterer dem efter dato Sql = "SELECT * FROM nyheder ORDER BY Dato DESC" Set Record = Con.Execute(Sql) %> <HTML> <HEAD> <TITLE>(inTro) - Forside</TITLE> <META content="(inTro) - CS Clan" name=TITLE> <META content="Dansk Counter-Strike Clan, siden indeholder downloads, nyheder, screenshot's, og meget mere." name=DESCRIPTION> <META content="counter-strike, CS, HL, Half-Life, (inTro), intro, (intro), inTro, online game, online spil, multiplayer game, internet game, ego shooter, counterstrike, counter-strike.net" name=KEYWORDS> <META content=intro@amok.dk name=OWNER> <META http-equiv=CONTENT-LANGUAGE content=English> <META http-equiv="VW96.OBJECT TYPE" content=World> <META content=ALL name=ROBOTS> <META content="1 month" name=REVISIT-AFTER> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <STYLE>BODY { SCROLLBAR-FACE-COLOR: #a6a6a6; FONT-SIZE: 8pt; BACKGROUND: #000000; SCROLLBAR-HIGHLIGHT-COLOR: #cacaca; SCROLLBAR-SHADOW-COLOR: #000000; COLOR: #c0c0c0; SCROLLBAR-3DLIGHT-COLOR: #445555; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #6f6f6f; FONT-FAMILY: verdana; SCROLLBAR-DARKSHADOW-COLOR: #aaaaaa } TD { FONT-SIZE: 8pt; COLOR: #c0c0c0; FONT-FAMILY: verdana } A:link { COLOR: #c0c0c0; TEXT-DECORATION: none } A:visited { COLOR: #c0c0c0; TEXT-DECORATION: none } A:active { COLOR: #c0c0c0; TEXT-DECORATION: none } A:hover { COLOR: #c0c0c0; TEXT-DECORATION: none } INPUT { FONT-SIZE: 8pt; COLOR: rgb(99,99,99); FONT-FAMILY: verdana; BACKGROUND-COLOR: rgb(55,55,55) } TEXTAREA { FONT-SIZE: 8pt; COLOR: rgb(99,99,99); FONT-FAMILY: verdana; BACKGROUND-COLOR: rgb(44,44,44) } </STYLE> <STYLE type=text/css>A { TEXT-DECORATION: none } A:hover { TEXT-DECORATION: underline } </STYLE> </HEAD> <BODY text=#000000 vLink=#000000 aLink=#000000 link=#000000 bgColor=#000000> <DIV align=center> <CENTER> <TABLE borderColor=#c0c0c0 height=515 cellSpacing=1 width=792 bgColor=#393939 border=0> <TBODY> <TR> <TD align=middle width=792 height=512> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width="100%" bgColor=#444444 height=2><IMG src="images/line.gif" border=0 width="1" height="1"><img border="0" src="images/logo2.jpg"></TD></TR> <TR> <TD width="100%" bgColor=#444444 height=2><IMG height=1 src="images/line.gif" width=1 border=0></TD></TR> </CENTER> <TR> <TD width="100%" bgColor=#555555 colSpan=2 height=2 align="right"> <SPAN lang=en-us> <SCRIPT language=javascript> var day = new Object(); var mon = new Object(); date=new Date(); var y2000 = date.getFullYear(); day[0]="Søndag"; day[1]="Mandag"; day[2]="Tirsdag"; day[3]="Onsdag"; day[4]="Torsdag"; day[5]="Fredag"; day[6]="Lørdag"; mon[0]="Jannuar"; mon[1]="Februar"; mon[2]="Marts"; mon[3]="April"; mon[4]="Maj"; mon[5]="Juni"; mon[6]="Juli"; mon[7]="August"; mon[8]="September"; mon[9]="Oktober"; mon[10]="November"; mon[11]="December"; jahr=date.getFullYear(); document.write('<font face=verdana size=1>' +day[date.getDay()]+", "+mon[date.getMonth()]+" "+date.getDate()+", " +jahr + '</font> ');</SCRIPT> </span> </TD></TR> <CENTER> <TR> <TD width="100%" background="images/all_div.gif" bgColor=#111111><IMG height=1 src="images/line.gif" width=1 border=0></TD></TR> <TR> <TD width="100%"><SPAN lang=en-us> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width=792 border=0><TBODY> <TR> <TD vAlign=top width=101 bgColor=#444444><font face="Verdana" color="#808080" size="1"><SPAN style="LETTER-SPACING: 1px"><b>-=[T!S]=-</b><BR><IMG height=2 src="images/all_div.gif" width=100 border=0></SPAN></font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><BR> <IMG src="images/arrow_off.gif" border=0 name=news> <a href="index.asp"> Forside</a><BR><IMG height=2 src="images/all_div.gif" width=100 border=0><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news></FONT><FONT face=Verdana color=#c0c0c0 size=1> <a href="info.asp">Info</a><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT><FONT face=Verdana color=#c0c0c0 size=1><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news></FONT><FONT face=Verdana color=#c0c0c0 size=1> <a href="medlemmer.asp"> Medlemmer</a><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT><FONT face=Verdana color=#c0c0c0 size=1><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> <a href="cw.asp"> ClanWar</a><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT><FONT face=Verdana color=#c0c0c0 size=1><br> </FONT></SPAN><b><font face="Verdana" size="1" color="#808080">-=Service=-<br> </font></b><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> </FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><a href="serverliste.asp">Serverliste</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> </FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><a href="join/join.asp">Join</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> </FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><a href="cw/cw.asp">Udfordre</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><b><font face="Verdana" size="1" color="#808080">-=Statestik=-<br> </font></b><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"> <a href="statestik/medlemmer.asp"> Medlemmer</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> </FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><a href="statestik/server.asp">Server</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0><br> <IMG src="images/arrow_off.gif" border=0 name=news> <a href="statestik/cw.asp"> ClanWar</a><br> <IMG height=2 src="images/all_div.gif" width=100 border=0><br> <br> <br> <br> <br> <br> <br> <br> </FONT></SPAN></TD> <TD vAlign=top width=1 bgColor=#111111><IMG height=1 src="images/dot_clear.gif" width=1 border=0></TD> <TD vAlign=top width=1 bgColor=#555555><IMG height=1 src="images/dot_clear.gif" width=1 border=0></TD> <TD vAlign=top width=511><SPAN lang=en-us> </SPAN> <DIV align=center> <CENTER> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width=444 border=0> <TBODY> <TR> <TD width="100%"> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#808080 cellSpacing=0 cellPadding=0 width="31%" border=1> <TBODY> <TR><SPAN lang=en-us> <TD width="100%" background="images/bg_title.gif" bgColor=#444444><B> </B><SPAN style="LETTER-SPACING: 1px"><FONT face=Verdana><B> </B><font color="#cccccc">[T!S]</font></FONT></SPAN></TD></SPAN></TR></TBODY></TABLE> <SPAN lang=en-us> </SPAN> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <!-- Her nedenunder smider vi saa nyhederne ud i en tabel --> <% Do While Not Record.EOF %> <tr> <td width="25%" bgcolor="#444444"><% Response.Write Record("Dato")%></td> </CENTER></center> <td width="75%" bgcolor="#444444"> <p align="right">Fra: <% Response.Write Record("Forfatter")%></td> </tr> <tr> <td width="100%" colspan="2"><% Response.Write Record("Nyhed") %></td> </tr> <tr> <td width="25%"> </td> <td width="75%"> </td> <% Record.MoveNext Loop %> </tr> </table> </td> </tr> </table> <CENTER> <CENTER> <p> <SPAN lang=en-us> </p> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"> <p align="center"><% intPage = Request("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT Nyhed FROM nyheder" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("nyheder/nyheder.mdb") rs.Open strSQL, strDSN, 1 If Not (rs.BOF Or rs.EOF) Then rs.PageSize = 10 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>" Do While Not rs.EOF And intRecCount > 0 intRecCount = intRecCount - 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing Response.Write "<p>Gå til side " For intNum = 1 To intPageCount Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> " Next Response.Write "<p>" If Clng(intPage) > 1 Then Response.Write "<a href=index.asp?page=" & intPage - 1 & "><<</a>" Else Response.Write "<<" End If Response.Write " " If Clng(intPage) < Clng(intPageCount) Then Response.Write "<a href=index.asp?page=" & intPage + 1 & ">>></a> " Else Response.Write ">>" End If %> </td> </tr> </table> <p><BR></SPAN><BR><BR></p> </center><BR> <p><BR></SPAN><BR><BR></p> </center> </TD></TR></TBODY></TABLE></DIV></TD> <TD vAlign=top width=178> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR><SPAN lang=en-us> <TD vAlign=top width="25%"> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width="100%" bgcolor="#555555" background="images/bg_news.gif"> Upcomming CW</TD></TR></TBODY></TABLE> <SPAN lang=en-us> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width="100%"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <img border="0" src="images/arrow_off.gif"> <!--#include file="upcw.txt"--> </td> </tr> </table> </TD></TR></TBODY></TABLE> </SPAN> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%" background="images/bg_news.gif" bgcolor="#555555"> mIRC</td> </tr> <tr> <td width="100%"> <img border="0" src="images/arrow_off.gif"> #Clan-tis</td> </tr> <tr> <td width="100%"> <img border="0" src="images/arrow_off.gif"> irc.quakenet.org</td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"></td> </tr> </table> </TD></SPAN></TR></TBODY></TABLE></TD></TR> <TR> <TD vAlign=top width=792 bgColor=#333333 colSpan=5> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=28 cellSpacing=0 cellPadding=0 width=791 border=0> <TBODY> <TR> <TD width=101 background="images/bottom.gif" height=28> <P align=right><SPAN style="LETTER-SPACING: 2px"><FONT style="FONT-SIZE: 7pt" face=Verdana>© 2002</FONT></SPAN></P></TD> <TD width=690 height=28><SPAN style="LETTER-SPACING: 2px"><FONT style="FONT-SIZE: 7pt" face=Verdana> by Clan [T!S]. All rights reserved. Ses bedst i 1024 x 768 med IE 5.5 eller nyere.</FONT></SPAN></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV> </BODY></HTML>
21. august 2002 - 14:02
#4
Kommer den med nogen former af fejlmeddelser? //>Rune
21. august 2002 - 14:51
#5
nej, den viser bare alle nyhederne på samme side og laver 2 side med de 2 nyheder, du kan jo selv se
www.tis.lir.dk
21. august 2002 - 18:53
#6
Det er fordi du mixer koden helt vildt... nu skal du se hvad du skal gøre::: --------------------------------------------------------------------------- <html> <body> <% '*** Vi henter variablen Page fra vores QueryString intPage = Request("page") '*** Hvis page ikke er angivet eller ikke er nummerrisk så sætter vi den til 1 If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If '*** Vi sætter RS til at være et reccordset Set rs = Server.CreateObject("ADODB.RecordSet") '***her åbner vi vores Connection til vores database... (Må kun gøres en gang) strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("nyheder/nyheder.mdb") '***Vi definere hvad det er vi vil hente fra databasen strSQL = "SELECT * FROM nyheder ORDER BY Dato DESC" '*** vi åbner for det fra databasen vi er intereseret i skal vises rs.Open strSQL, strDSN, 1 '*** hvis ikke vores recordset (RS) er tom, finder vi antal sider, hvor vi er osv. If Not (rs.BOF Or rs.EOF) Then rs.PageSize = 10 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount '*** Vi udskriver hvilken side vi befinder os på og hvor mange sider der er Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>" '*** dette skal gøres hvis ikke RS er tom eller Page er for stor Do While Not rs.EOF And intRecCount > 0 %> <!-- Her skal du udskrive det du vil have til at reden igennem et loop, det er altså dine nyheder osv der skal udskrives her --> <% '*** vi trækker en fra poster i DB'en intRecCount = intRecCount - 1 '*** Vi flytter til næste post rs.MoveNext '*** vi looper Loop End If '*** vi ryder op efter os ved at lukke RS og sætte det til ingenting... rs.Close Set rs = Nothing Response.Write "<p>Gå til side " For intNum = 1 To intPageCount Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> " Next Response.Write "<p>" If Clng(intPage) > 1 Then Response.Write "<a href=index.asp?page=" & intPage - 1 & "><<</a>" Else Response.Write "<<" End If Response.Write " " If Clng(intPage) < Clng(intPageCount) Then Response.Write "<a href=index.asp?page=" & intPage + 1 & ">>></a> " Else Response.Write ">>" End If %>
21. august 2002 - 18:56
#7
ehm kan du prøve at sætte det sammen med den kode jeg postede her ? da jeg ellers bare laver lort i noget heheh..
22. august 2002 - 09:10
#8
det kan du vel ikke mene... :o( jo jeg skal da gøre mit bedste... poster det senere...
22. august 2002 - 11:41
#9
hehe.... jo det kan jeg sagtens mene... :o) jeg laver bare noget galt.... *gg* Tudsind tak...
22. august 2002 - 13:44
#10
Har du lige ICQ eller Mesenger ??? for det er virkelig en CRAP kode.... prøv lige se om det her virker... --------------------------------------------------------------------------- <% Response.Buffer = True %> <HTML> <HEAD> <TITLE>(inTro) - Forside</TITLE> <META content="(inTro) - CS Clan" name=TITLE> <META content="Dansk Counter-Strike Clan, siden indeholder downloads, nyheder, screenshot's, og meget mere." name=DESCRIPTION> <META content="counter-strike, CS, HL, Half-Life, (inTro), intro, (intro), inTro, online game, online spil, multiplayer game, internet game, ego shooter, counterstrike, counter-strike.net" name=KEYWORDS> <META content=intro@amok.dk name=OWNER> <META http-equiv=CONTENT-LANGUAGE content=English> <META http-equiv="VW96.OBJECT TYPE" content=World> <META content=ALL name=ROBOTS> <META content="1 month" name=REVISIT-AFTER> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <STYLE Type="TEXT/CSS"> BODY { SCROLLBAR-FACE-COLOR: #A6A6A6; SCROLLBAR-HIGHLIGHT-COLOR: #CACACA; SCROLLBAR-SHADOW-COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #445555; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR: #6F6F6F; SCROLLBAR-DARKSHADOW-COLOR: #AAAAAA; FONT-SIZE: 8pt; BACKGROUND: #000000; COLOR: #C0C0C0; FONT-FAMILY: verdana, Tahoma, Arial; } TD { FONT-SIZE: 8pt; COLOR: #C0C0C0; FONT-FAMILY: verdana, Tahoma, Arial; } A:link { COLOR: #C0C0C0; TEXT-DECORATION: none; } A:visited { COLOR: #C0C0C0; TEXT-DECORATION: none; } A:active { COLOR: #C0C0C0; TEXT-DECORATION: none; } A:hover { COLOR: #C0C0C0; TEXT-DECORATION: none; TEXT-DECORATION: underline } INPUT { FONT-SIZE: 8pt; COLOR: #636363; FONT-FAMILY: verdana, Tahoma, Arial; BACKGROUND-COLOR: #373737; } TEXTAREA { FONT-SIZE: 8pt; COLOR: #636363; FONT-FAMILY: verdana, Tahoma, Arial; BACKGROUND-COLOR: #2C2C2C; } </STYLE> </HEAD> <BODY text=#000000 vLink=#000000 aLink=#000000 link=#000000 bgColor=#000000> <DIV align=center> <CENTER> <TABLE borderColor=#c0c0c0 height=515 cellSpacing=1 width=792 bgColor=#393939 border=0> <TBODY> <TR> <TD align=middle width=792 height=512> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width="100%" bgColor=#444444 height=2><IMG src="images/line.gif" border=0 width="1" height="1"><img border="0" src="images/logo2.jpg"></TD></TR> <TR> <TD width="100%" bgColor=#444444 height=2><IMG height=1 src="images/line.gif" width=1 border=0></TD></TR> </CENTER> <TR> <TD width="100%" bgColor=#555555 colSpan=2 height=2 align="right"> <SPAN lang=en-us> <SCRIPT language=javascript> var day = new Object(); var mon = new Object(); date=new Date(); var y2000 = date.getFullYear(); day[0]="Søndag"; day[1]="Mandag"; day[2]="Tirsdag"; day[3]="Onsdag"; day[4]="Torsdag"; day[5]="Fredag"; day[6]="Lørdag"; mon[0]="Jannuar"; mon[1]="Februar"; mon[2]="Marts"; mon[3]="April"; mon[4]="Maj"; mon[5]="Juni"; mon[6]="Juli"; mon[7]="August"; mon[8]="September"; mon[9]="Oktober"; mon[10]="November"; mon[11]="December"; jahr=date.getFullYear(); document.write('<font face=verdana size=1>' +day[date.getDay()]+", "+mon[date.getMonth()]+" "+date.getDate()+", " +jahr + '</font> ');</SCRIPT> </span> </TD></TR> <CENTER> <TR> <TD width="100%" background="images/all_div.gif" bgColor=#111111><IMG height=1 src="images/line.gif" width=1 border=0></TD></TR> <TR> <TD width="100%"><SPAN lang=en-us> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width=792 border=0><TBODY> <TR> <TD vAlign=top width=101 bgColor=#444444><font face="Verdana" color="#808080" size="1"><SPAN style="LETTER-SPACING: 1px"><b>-=[T!S]=-</b><BR><IMG height=2 src="images/all_div.gif" width=100 border=0></SPAN></font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><BR> <IMG src="images/arrow_off.gif" border=0 name=news> <a href="index.asp"> Forside</a><BR><IMG height=2 src="images/all_div.gif" width=100 border=0><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news></FONT><FONT face=Verdana color=#c0c0c0 size=1> <a href="info.asp">Info</a><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT><FONT face=Verdana color=#c0c0c0 size=1><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news></FONT><FONT face=Verdana color=#c0c0c0 size=1> <a href="medlemmer.asp"> Medlemmer</a><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT><FONT face=Verdana color=#c0c0c0 size=1><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> <a href="cw.asp"> ClanWar</a><br> </FONT><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT><FONT face=Verdana color=#c0c0c0 size=1><br> </FONT></SPAN><b><font face="Verdana" size="1" color="#808080">-=Service=-<br> </font></b><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> </FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><a href="serverliste.asp">Serverliste</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> </FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><a href="join/join.asp">Join</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> </FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><a href="cw/cw.asp">Udfordre</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><b><font face="Verdana" size="1" color="#808080">-=Statestik=-<br> </font></b><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"> <a href="statestik/medlemmer.asp"> Medlemmer</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0></FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1> <IMG src="images/arrow_off.gif" border=0 name=news> </FONT></SPAN><font face="Verdana" color="#c0c0c0" size="1"><a href="statestik/server.asp">Server</a><br> </font><SPAN lang=en-us><FONT face=Verdana color=#c0c0c0 size=1><IMG height=2 src="images/all_div.gif" width=100 border=0><br> <IMG src="images/arrow_off.gif" border=0 name=news> <a href="statestik/cw.asp"> ClanWar</a><br> <IMG height=2 src="images/all_div.gif" width=100 border=0><br> <br> <br> <br> <br> <br> <br> <br> </FONT></SPAN></TD> <TD vAlign=top width=1 bgColor=#111111><IMG height=1 src="images/dot_clear.gif" width=1 border=0></TD> <TD vAlign=top width=1 bgColor=#555555><IMG height=1 src="images/dot_clear.gif" width=1 border=0></TD> <TD vAlign=top width=511><SPAN lang=en-us> </SPAN> <DIV align=center> <CENTER> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width=444 border=0> <TBODY> <TR> <TD width="100%"> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#808080 cellSpacing=0 cellPadding=0 width="31%" border=1> <TBODY> <TR><SPAN lang=en-us> <TD width="100%" background="images/bg_title.gif" bgColor=#444444><B> </B><SPAN style="LETTER-SPACING: 1px"><FONT face=Verdana><B> </B><font color="#cccccc">[T!S]</font></FONT></SPAN></TD></SPAN></TR></TBODY></TABLE> <SPAN lang=en-us> </SPAN> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <!-- Her nedenunder smider vi saa nyhederne ud i en tabel --> <% Dim intPage, rs, strDSN, strSQL, intRecCount, intPageCount '*** Vi henter variablen Page fra vores QueryString intPage = Request("page") '*** Hvis page ikke er angivet eller ikke er nummerrisk så sætter vi den til 1 If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If '*** Vi sætter RS til at være et reccordset Set rs = Server.CreateObject("ADODB.RecordSet") '***her åbner vi vores Connection til vores database... (Må kun gøres en gang) strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("nyheder/nyheder.mdb") '***Vi definere hvad det er vi vil hente fra databasen strSQL = "SELECT * FROM nyheder ORDER BY Dato DESC" '*** vi åbner for det fra databasen vi er intereseret i skal vises rs.Open strSQL, strDSN, 1 '*** hvis ikke vores recordset (RS) er tom, finder vi antal sider, hvor vi er osv. If Not (rs.BOF Or rs.EOF) Then rs.PageSize = 10 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount '*** Vi udskriver hvilken side vi befinder os på og hvor mange sider der er Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>" '*** dette skal gøres hvis ikke RS er tom eller Page er for stor Do While Not rs.EOF And intRecCount > 0 %> <tr> <td width="25%" bgcolor="#444444"><% Response.Write rs("Dato")%></td> </CENTER></center> <td width="75%" bgcolor="#444444"> <p align="right">Fra: <% Response.Write rs("Forfatter")%></td> </tr> <tr> <td width="100%" colspan="2"><% Response.Write rs("Nyhed") %></td> </tr> <tr> <td width="25%"> </td> <td width="75%"> </td> <% '*** vi trækker en fra poster i DB'en intRecCount = intRecCount - 1 '*** Vi flytter til næste post rs.MoveNext '*** vi looper Loop End If '*** vi ryder op efter os ved at lukke RS og sætte det til ingenting... rs.Close Set rs = Nothing %> </tr> </table> </td> </tr> </table> <CENTER> <CENTER> <p> <SPAN lang=en-us> </p> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"> <p align="center"> <% Response.Write "<p>Gå til side " For intNum = 1 To intPageCount Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> " Next Response.Write "<p>" If Clng(intPage) > 1 Then Response.Write "<a href=index.asp?page=" & intPage - 1 & "><<</a>" Else Response.Write "<<" End If Response.Write " " If Clng(intPage) < Clng(intPageCount) Then Response.Write "<a href=index.asp?page=" & intPage + 1 & ">>></a> " Else Response.Write ">>" End If %> </td> </tr> </table> <p><BR></SPAN><BR><BR></p> </center><BR> <p><BR></SPAN><BR><BR></p> </center> </TD></TR></TBODY></TABLE></DIV></TD> <TD vAlign=top width=178> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR><SPAN lang=en-us> <TD vAlign=top width="25%"> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width="100%" bgcolor="#555555" background="images/bg_news.gif"> Upcomming CW</TD></TR></TBODY></TABLE> <SPAN lang=en-us> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width="100%"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <img border="0" src="images/arrow_off.gif"> <!--#include file="upcw.txt"--> </td> </tr> </table> </TD></TR></TBODY></TABLE> </SPAN> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%" background="images/bg_news.gif" bgcolor="#555555"> mIRC</td> </tr> <tr> <td width="100%"> <img border="0" src="images/arrow_off.gif"> #Clan-tis</td> </tr> <tr> <td width="100%"> <img border="0" src="images/arrow_off.gif"> irc.quakenet.org</td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"></td> </tr> </table> </TD></SPAN></TR></TBODY></TABLE></TD></TR> <TR> <TD vAlign=top width=792 bgColor=#333333 colSpan=5> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=28 cellSpacing=0 cellPadding=0 width=791 border=0> <TBODY> <TR> <TD width=101 background="images/bottom.gif" height=28> <P align=right><SPAN style="LETTER-SPACING: 2px"><FONT style="FONT-SIZE: 7pt" face=Verdana>© 2002</FONT></SPAN></P></TD> <TD width=690 height=28><SPAN style="LETTER-SPACING: 2px"><FONT style="FONT-SIZE: 7pt" face=Verdana> by Clan [T!S]. All rights reserved. Ses bedst i 1024 x 768 med IE 5.5 eller nyere.</FONT></SPAN></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV> </BODY></HTML> --------------------------------------------------------------------------- dark-angel >>> jeg er desuden ved at gennemse hele din kode og evt bygge lidt struktur ind i den... den er virkelig lortet... slet ikke overskuelig... :o/ til alle i andre... det endelig svar vil selvfølgelig blive posted her...
22. august 2002 - 14:07
#11
hejsa ja jeg er MSN Messenger og ICQ... ICQ #35219746 MSN: dark-angel@12mail.dk hehe... ved godt koden er "lidt" rodet...
22. august 2002 - 14:12
#12
heeey... det virker sq da.... hehe.. tudsind tak for hjælpen.. :o) /Dark Angel
22. august 2002 - 14:31
#13
NP... takker for point...
22. august 2002 - 16:04
#14
NP :o)
Kurser inden for grundlæggende programmering