Avatar billede dark-angel Nybegynder
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
Avatar billede md_craig Nybegynder
21. august 2002 - 12:20 #1
ja måske... post koden...
Avatar billede n!nja Nybegynder
21. august 2002 - 12:24 #2
Avatar billede dark-angel Nybegynder
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>&nbsp;&nbsp;');</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>&nbsp;<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>&nbsp;<IMG
                  src="images/arrow_off.gif" border=0
                  name=news></FONT><FONT face=Verdana
                  color=#c0c0c0 size=1>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>
                  &nbsp;<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>&nbsp;</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>&nbsp; </B><SPAN
                              style="LETTER-SPACING: 1px"><FONT
                              face=Verdana><B>&nbsp;</B><font color="#cccccc">[T!S]</font></FONT></SPAN></TD></SPAN></TR></TBODY></TABLE>
                        <SPAN lang=en-us>
                        &nbsp;                        </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:&nbsp;<% Response.Write Record("Forfatter")%></td>
                            </tr>

                                <tr>
                                  <td width="100%" colspan="2"><% Response.Write Record("Nyhed") %></td>
                            </tr>

                                <tr>
                                  <td width="25%">&nbsp;</td>
                              <td width="75%">
                                  &nbsp;
                                  </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 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=index.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
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%">&nbsp;
                        <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">&nbsp;
                              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%">&nbsp;<img border="0" src="images/arrow_off.gif">&nbsp;<!--#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%">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="100%" background="images/bg_news.gif" bgcolor="#555555">&nbsp;
                              mIRC</td>
                          </tr>
                          <tr>
                            <td width="100%">&nbsp;<img border="0" src="images/arrow_off.gif">
                              #Clan-tis</td>
                          </tr>
                          <tr>
                            <td width="100%">&nbsp;<img border="0" src="images/arrow_off.gif">
                              irc.quakenet.org</td>
                          </tr>
                          <tr>
                            <td width="100%">&nbsp;</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>&nbsp;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>
Avatar billede medions Nybegynder
21. august 2002 - 14:02 #4
Kommer den med nogen former af fejlmeddelser?

//>Rune
Avatar billede dark-angel Nybegynder
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
Avatar billede md_craig Nybegynder
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 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=index.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>
Avatar billede dark-angel Nybegynder
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..
Avatar billede md_craig Nybegynder
22. august 2002 - 09:10 #8
det kan du vel ikke mene... :o(

jo jeg skal da gøre mit bedste... poster det senere...
Avatar billede dark-angel Nybegynder
22. august 2002 - 11:41 #9
hehe.... jo det kan jeg sagtens mene... :o) jeg laver bare noget galt.... *gg*
Tudsind tak...
Avatar billede md_craig Nybegynder
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>&nbsp;&nbsp;');</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>&nbsp;<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>&nbsp;<IMG
                  src="images/arrow_off.gif" border=0
                  name=news></FONT><FONT face=Verdana
                  color=#c0c0c0 size=1>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>
                  &nbsp;<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>&nbsp;</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>&nbsp; </B><SPAN
                              style="LETTER-SPACING: 1px"><FONT
                              face=Verdana><B>&nbsp;</B><font color="#cccccc">[T!S]</font></FONT></SPAN></TD></SPAN></TR></TBODY></TABLE>
                        <SPAN lang=en-us>
                        &nbsp;                        </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:&nbsp;<% Response.Write rs("Forfatter")%></td>
                            </tr>

                                <tr>
                                  <td width="100%" colspan="2"><% Response.Write rs("Nyhed") %></td>
                            </tr>

                                <tr>
                                  <td width="25%">&nbsp;</td>
                              <td width="75%">
                                  &nbsp;
                                  </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 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=index.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
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%">&nbsp;
                        <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">&nbsp;
                              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%">&nbsp;<img border="0" src="images/arrow_off.gif">&nbsp;<!--#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%">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="100%" background="images/bg_news.gif" bgcolor="#555555">&nbsp;
                              mIRC</td>
                          </tr>
                          <tr>
                            <td width="100%">&nbsp;<img border="0" src="images/arrow_off.gif">
                              #Clan-tis</td>
                          </tr>
                          <tr>
                            <td width="100%">&nbsp;<img border="0" src="images/arrow_off.gif">
                              irc.quakenet.org</td>
                          </tr>
                          <tr>
                            <td width="100%">&nbsp;</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>&nbsp;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...
Avatar billede dark-angel Nybegynder
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...
Avatar billede dark-angel Nybegynder
22. august 2002 - 14:12 #12
heeey... det virker sq da....  hehe..  tudsind tak for hjælpen.. :o)

/Dark Angel
Avatar billede md_craig Nybegynder
22. august 2002 - 14:31 #13
NP... takker for point...
Avatar billede dark-angel Nybegynder
22. august 2002 - 16:04 #14
NP  :o)
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