Paging

Prøv med dette:
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
order = request.querystring("sort")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/nyheder/db.mdb")


if order = "" then
strSQL = "select top 5 * from nyheder order by id desc"
elseif order = "all" then
strSQL = "select * from nyheder"

else
strSQL = "select top 5 * from nyheder order by id "& order &""
end if


set RS = conn.execute( strSQL )
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 3
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
  Do While Not rs.EOF And intRecCount > 0
  intRecCount = intRecCount - 0
Response.Write "&nbsp;&nbsp;&nbsp; <A HREF=""../nyheder/nyhed.asp?id="& rs("id") & """><font face="" "&fontface&" "" font size="" "&fontsize&" "" color=""#000000"">"& left(rs("nyheden"), 18) & "<br></A>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
If Clng(intPage) > 1 Then
    Response.Write "<FONT SIZE=1><a href=index.asp?page=" & intPage - 1 & ">&lt;&lt;</a></FONT>"
Else
    Response.Write ""
End If
If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<FONT SIZE=1><a href=index.asp?page=" & intPage + 1 & ">&gt;&gt;</a></FONT>"
Else
    Response.Write ""
End If

if Request.Querystring("do") = "random" then

    Set count = Conn.Execute("SELECT COUNT(*) AS ANTAL from nyheder")
    Randomize
    int_go = int(rnd * int(count("antal")))
   
    Set rs = Conn.Execute("SELECT * FROM nyheder")
    for i = 1 to int_go
        rs.movenext
    next
    nyheden = rs("nyheden")
                datoen = rs("dato")
    Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & rs("id"))
end if

if request.querystring("id") <> "" then
strSQL = "Select * from nyheder where (id = "& request.querystring("id") &")"
set user = conn.execute(strSQL)
nul = "[Ingen Data]"
tmp = user("nyheden")
if tmp = "" then
nyheden = nul
else
nyheden = tmp
datoen = user("dato")
end if
Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & user("id"))
end if

conn.close
set conn = nothing

det virkede ikke som du kan se : http://www.fredericia-bynight.dk/

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

order = request.querystring("sort")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/nyheder/db.mdb")


if order = "" then
strSQL = "select * from nyheder order by id desc"
elseif order = "all" then
strSQL = "select * from nyheder"

else
strSQL = "select top 5 * from nyheder order by id "& order &""
end if

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
       
        Response.Write "&nbsp;&nbsp;&nbsp; <A HREF=""../nyheder/nyhed.asp?id="& rs("id") & """><font face="" "&fontface&" "" font size="" "&fontsize&" "" color=""#000000"">"& left(rs("nyheden"), 18) & "<br></A>"
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

if Request.Querystring("do") = "random" then

    Set count = Conn.Execute("SELECT COUNT(*) AS ANTAL from nyheder")
    Randomize
    int_go = int(rnd * int(count("antal")))
   
    Set rs = Conn.Execute("SELECT * FROM nyheder")
    for i = 1 to int_go
        rs.movenext
    next
    nyheden = rs("nyheden")
                datoen = rs("dato")
    Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & rs("id"))
end if

if request.querystring("id") <> "" then
strSQL = "Select * from nyheder where (id = "& request.querystring("id") &")"
set user = conn.execute(strSQL)
nul = "[Ingen Data]"
tmp = user("nyheden")
if tmp = "" then
nyheden = nul
else
nyheden = tmp
datoen = user("dato")
end if
Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & user("id"))
end if

conn.close
set conn = nothing

//>Rune

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

order = request.querystring("sort")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/nyheder/db.mdb")


if order = "" then
strSQL = "select * from nyheder order by id desc"
elseif order = "all" then
strSQL = "select * from nyheder"

else
strSQL = "select top 5 * from nyheder order by id "& order &""
end if

rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    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
       
        Response.Write "&nbsp;&nbsp;&nbsp; <A HREF=""../nyheder/nyhed.asp?id="& rs("id") & """><font face="" "&fontface&" "" font size="" "&fontsize&" "" color=""#000000"">"& left(rs("nyheden"), 18) & "<br></A>"
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

if Request.Querystring("do") = "random" then

    Set count = Conn.Execute("SELECT COUNT(*) AS ANTAL from nyheder")
    Randomize
    int_go = int(rnd * int(count("antal")))
   
    Set rs = Conn.Execute("SELECT * FROM nyheder")
    for i = 1 to int_go
        rs.movenext
    next
    nyheden = rs("nyheden")
                datoen = rs("dato")
    Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & rs("id"))
end if

if request.querystring("id") <> "" then
strSQL = "Select * from nyheder where (id = "& request.querystring("id") &")"
set user = conn.execute(strSQL)
nul = "[Ingen Data]"
tmp = user("nyheden")
if tmp = "" then
nyheden = nul
else
nyheden = tmp
datoen = user("dato")
end if
Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & user("id"))
end if

conn.close
set conn = nothing

Nu her der sat en limit på 5 poster pr. side
//>Rune

<%@ language="VBScript" LCID=1030 %>
<!--#include virtual ="/include/UserTime.asp"-->
<!--#include Virtual="/style.asp" -->
<% Response.buffer = true %>
<%
Cookie = Request.Cookies("voted")
If Cookie = "" Then
%>
<script LANGUAGE="javascript">
  window.open('afstemning.asp','Afstemning', config='height=250,width=550')
  </script>
<%
End if
%>

<html>

<head>
<link rel="stylesheet" type="text/css" href="../styles.css">
<title>w w w . F r e d e r i c i a - B y N i g h t . dk</title>
</head>

<body>
<div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="675">
  <tr>
    <td><img border="0" src="../top.gif" width="675" height="70"></td>
  </tr>
  <tr>
    <td height="4"></td>
  </tr>
  <tr>
    <td><div align="left"><table border="1" cellpadding="0" cellspacing="0" width="100%"
    bordercolor="#000000">
      <tr>
        <td><div align="left"><table border="0" cellpadding="0" cellspacing="5" width="671"
        bgcolor="#6C8892">
          <tr>
            <td width="154" valign="top" align="center"><table border="1" cellpadding="0"
            cellspacing="4" width="100%" bordercolor="#000000" height="196">
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../default.asp">Startside</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../events/default.asp">Events</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../flop/default.asp">Weekend-Flop</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../drinks/default.asp">Drinks</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../top/default.asp">Top 10</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" " height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../arkiv/default.asp">Galleri</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../ask/default.asp">Ask Away</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="24" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a
                href="java script:WebCam('webcam.asp')">Admin Cam</a> <script language="JavaScript">
                                function WebCam (minpopup) {
                                NY=window.open(minpopup,'NY','width=320,height=240,toolbar=no,scrollbars=no')
                                }
                                </script>
                </b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><script LANGUAGE="JavaScript">
function NewWin (minpopup) {
NY=window.open(minpopup,'NY','width=550,height=250,toolbar=no,scrollbars=no')
}
</script><a
                href="java script:NewWin('Statistik.asp')">Statistik</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="23" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6">Nyheder<br>
                </b><%intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

order = request.querystring("sort")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/nyheder/db.mdb")


if order = "" then
strSQL = "select * from nyheder order by id desc"
elseif order = "all" then
strSQL = "select * from nyheder"

else
strSQL = "select * from nyheder"
end if

rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
       
        Response.Write "&nbsp;&nbsp;&nbsp; <A HREF=""../nyheder/nyhed.asp?id="& rs("id") & """><font face="" "&fontface&" "" font size="" "&fontsize&" "" color=""#000000"">"& left(rs("nyheden"), 18) & "<br></A>"
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If

if Request.Querystring("do") = "random" then

    Set count = Conn.Execute("SELECT COUNT(*) AS ANTAL from nyheder")
    Randomize
    int_go = int(rnd * int(count("antal")))
   
    Set rs = Conn.Execute("SELECT * FROM nyheder")
    for i = 1 to int_go
        rs.movenext
    next
    nyheden = rs("nyheden")
                datoen = rs("dato")
    Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & rs("id"))
end if

if request.querystring("id") <> "" then
strSQL = "Select * from nyheder where (id = "& request.querystring("id") &")"
set user = conn.execute(strSQL)
nul = "[Ingen Data]"
tmp = user("nyheden")
if tmp = "" then
nyheden = nul
else
nyheden = tmp
datoen = user("dato")
end if
Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & user("id"))
end if
%> </font></td>
              </tr>
            </table>
            </td>
            <td width="495" background="../mainbg.gif" height="0"
            style="background-repeat: repeat-y; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"
            bordercolor="#000000" valign="top"><div align="center"><center><table border="0"
            cellpadding="0" cellspacing="0" width="97%">
              <tr>
                <td valign="top"><font face="Arial"><b><br>
                Velkommen til Fredericia-ByNight.dk<br>
                </b><font size="2"><%

If Request.Cookies("fredericia_navn")("navn") = "" Then

    Response.Write "<form name='FormName' action='indskriv.asp' method='post'>"
    Response.Write "<font face='Arial'>Dit navn:"
    Response.Write "<input type='text' name='navn' size='10'>&nbsp;"
    Response.Write "<input type='submit' value='send' name='submitButtonName'>&nbsp;Efter indtastning ville dette forsvinde."
    Response.Write "</form>"

end if

%></font></font><br>
                <font face="Arial" size="2">På denne side vil du i menuen til venstre kunne klikke dig
                ind på diverse ting, som sker på festsiden, i byen - Fredericia.<br>
                <br>
                Klik dig ind og se, Events, Weekend Flops, Drinks, Top 10 (musik), Galleriet, og har du
                nogen spørgsmål kan du skrive til mig i &quot;Ask Away&quot; afdelingen.<br>
                <br>
                Held og lykke</font> <blockquote>
                  <p><font face="Arial" size="2">- Mvh. - Webmaster - Mark Mikkelsen</font></p>
                </blockquote>
                <p><font face="Arial" size="2">Støt <a href="www.Fredericia-ByNight.dk</a></font></p>" target="_blank">http://www.Fredericia-ByNight.dk">www.Fredericia-ByNight.dk</a></font></p>
                <p align="center"><a href="http://tracker.tradedoubler.com/tracker.asp?code=263898"
                target="_blank"><img border="0" src="../trade.gif"></a></p>
                <p align="left"><font face="Arial" size="2">Besøg også : <a href="http://www.nellys.dk"
                target="_blank">www.nellys.dk</a></font></td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>
    </div></td>
  </tr>
  <tr align="center">
    <td height="4"></td>
  </tr>
  <tr align="center">
    <td><img border="0" src="../bund.gif" width="675" height="16"> </td>
  </tr>
</table>
</center></div>
</body>
</html>
<%
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("events\events.mdb")
        If IsEmpty(Session("ID")) Then
            strSQL = "SELECT * FROM events"
        Else
            strSQL = "SELECT * FROM events WHERE ID =" & Session("ID")
        End If
        Set objRs = objConn.Execute(strSQL)

    While Not objRs.EOF
   
        If DateDiff("d", objRs("dato"), Date()) = 0 Then
            Session("ID") = objRs("ID")
%>
<script language="JavaScript">
            <% If Session("ID") <> "" Then %>
alert('<%= objRs("dato") %>\n<%= objRs("emne") %>\n<%= Left(objRs("tekst"), 30)%>');
            <% End If %>
        </script>
<%
        End If
    objRs.MoveNext()
    Wend
%>

//>Rune

<%@ language="VBScript" LCID=1030 %>
<!--#include virtual ="/include/UserTime.asp"-->
<!--#include Virtual="/style.asp" -->
<% Response.buffer = true %>
<%
Cookie = Request.Cookies("voted")
If Cookie = "" Then
%>
<script LANGUAGE="javascript">
  window.open('afstemning.asp','Afstemning', config='height=250,width=550')
  </script>
<%
End if
%>

<html>

<head>
<link rel="stylesheet" type="text/css" href="../styles.css">
<title>w w w . F r e d e r i c i a - B y N i g h t . dk</title>
</head>

<body>
<div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="675">
  <tr>
    <td><img border="0" src="../top.gif" width="675" height="70"></td>
  </tr>
  <tr>
    <td height="4"></td>
  </tr>
  <tr>
    <td><div align="left"><table border="1" cellpadding="0" cellspacing="0" width="100%"
    bordercolor="#000000">
      <tr>
        <td><div align="left"><table border="0" cellpadding="0" cellspacing="5" width="671"
        bgcolor="#6C8892">
          <tr>
            <td width="154" valign="top" align="center"><table border="1" cellpadding="0"
            cellspacing="4" width="100%" bordercolor="#000000" height="196">
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../default.asp">Startside</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../events/default.asp">Events</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../flop/default.asp">Weekend-Flop</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../drinks/default.asp">Drinks</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../top/default.asp">Top 10</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" " height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../arkiv/default.asp">Galleri</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../ask/default.asp">Ask Away</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="24" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a
                href="java script:WebCam('webcam.asp')">Admin Cam</a> <script language="JavaScript">
                                function WebCam (minpopup) {
                                NY=window.open(minpopup,'NY','width=320,height=240,toolbar=no,scrollbars=no')
                                }
                                </script>
                </b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><script LANGUAGE="JavaScript">
function NewWin (minpopup) {
NY=window.open(minpopup,'NY','width=550,height=250,toolbar=no,scrollbars=no')
}
</script><a
                href="java script:NewWin('Statistik.asp')">Statistik</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="23" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6">Nyheder<br>
                </b><%intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

order = request.querystring("sort")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/nyheder/db.mdb")


if order = "" then
strSQL = "select * from nyheder order by id desc"
elseif order = "all" then
strSQL = "select * from nyheder"

else
strSQL = "select * from nyheder"
end if

rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
       
        Response.Write "&nbsp;&nbsp;&nbsp; <A HREF=""../nyheder/nyhed.asp?id="& rs("id") & """><font face="" "&fontface&" "" font size="" "&fontsize&" "" color=""#000000"">"& left(rs("nyheden"), 18) & "<br></A>"
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If

Response.Write("<center>")
If Clng(intPage) > 1 Then
    Response.Write "<a href=default.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=default.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
Response.Write("</center>")

if Request.Querystring("do") = "random" then

    Set count = Conn.Execute("SELECT COUNT(*) AS ANTAL from nyheder")
    Randomize
    int_go = int(rnd * int(count("antal")))
   
    Set rs = Conn.Execute("SELECT * FROM nyheder")
    for i = 1 to int_go
        rs.movenext
    next
    nyheden = rs("nyheden")
                datoen = rs("dato")
    Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & rs("id"))
end if

if request.querystring("id") <> "" then
strSQL = "Select * from nyheder where (id = "& request.querystring("id") &")"
set user = conn.execute(strSQL)
nul = "[Ingen Data]"
tmp = user("nyheden")
if tmp = "" then
nyheden = nul
else
nyheden = tmp
datoen = user("dato")
end if
Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & user("id"))
end if
%> </font></td>
              </tr>
            </table>
            </td>
            <td width="495" background="../mainbg.gif" height="0"
            style="background-repeat: repeat-y; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"
            bordercolor="#000000" valign="top"><div align="center"><center><table border="0"
            cellpadding="0" cellspacing="0" width="97%">
              <tr>
                <td valign="top"><font face="Arial"><b><br>
                Velkommen til Fredericia-ByNight.dk<br>
                </b><font size="2"><%

If Request.Cookies("fredericia_navn")("navn") = "" Then

    Response.Write "<form name='FormName' action='indskriv.asp' method='post'>"
    Response.Write "<font face='Arial'>Dit navn:"
    Response.Write "<input type='text' name='navn' size='10'>&nbsp;"
    Response.Write "<input type='submit' value='send' name='submitButtonName'>&nbsp;Efter indtastning ville dette forsvinde."
    Response.Write "</form>"

end if

%></font></font><br>
                <font face="Arial" size="2">På denne side vil du i menuen til venstre kunne klikke dig
                ind på diverse ting, som sker på festsiden, i byen - Fredericia.<br>
                <br>
                Klik dig ind og se, Events, Weekend Flops, Drinks, Top 10 (musik), Galleriet, og har du
                nogen spørgsmål kan du skrive til mig i &quot;Ask Away&quot; afdelingen.<br>
                <br>
                Held og lykke</font> <blockquote>
                  <p><font face="Arial" size="2">- Mvh. - Webmaster - Mark Mikkelsen</font></p>
                </blockquote>
                <p><font face="Arial" size="2">Støt <a href="www.Fredericia-ByNight.dk</a></font></p>" target="_blank">http://www.Fredericia-ByNight.dk">www.Fredericia-ByNight.dk</a></font></p>
                <p align="center"><a href="http://tracker.tradedoubler.com/tracker.asp?code=263898"
                target="_blank"><img border="0" src="../trade.gif"></a></p>
                <p align="left"><font face="Arial" size="2">Besøg også : <a href="http://www.nellys.dk"
                target="_blank">www.nellys.dk</a></font></td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>
    </div></td>
  </tr>
  <tr align="center">
    <td height="4"></td>
  </tr>
  <tr align="center">
    <td><img border="0" src="../bund.gif" width="675" height="16"> </td>
  </tr>
</table>
</center></div>
</body>
</html>
<%
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("events\events.mdb")
        If IsEmpty(Session("ID")) Then
            strSQL = "SELECT * FROM events"
        Else
            strSQL = "SELECT * FROM events WHERE ID =" & Session("ID")
        End If
        Set objRs = objConn.Execute(strSQL)

    While Not objRs.EOF
   
        If DateDiff("d", objRs("dato"), Date()) = 0 Then
            Session("ID") = objRs("ID")
%>
<script language="JavaScript">
            <% If Session("ID") <> "" Then %>
alert('<%= objRs("dato") %>\n<%= objRs("emne") %>\n<%= Left(objRs("tekst"), 30)%>');
            <% End If %>
        </script>
<%
        End If
    objRs.MoveNext()
    Wend
%>

//>Rune

<%@ language="VBScript" LCID=1030 %>
<!--#include virtual ="/include/UserTime.asp"-->
<!--#include Virtual="/style.asp" -->
<% Response.buffer = true %>
<%
Cookie = Request.Cookies("voted")
If Cookie = "" Then
%>
<script LANGUAGE="javascript">
  window.open('afstemning.asp','Afstemning', config='height=250,width=550')
  </script>
<%
End if
%>

<html>

<head>
<link rel="stylesheet" type="text/css" href="../styles.css">
<title>w w w . F r e d e r i c i a - B y N i g h t . dk</title>
</head>

<body>
<div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="675">
  <tr>
    <td><img border="0" src="../top.gif" width="675" height="70"></td>
  </tr>
  <tr>
    <td height="4"></td>
  </tr>
  <tr>
    <td><div align="left"><table border="1" cellpadding="0" cellspacing="0" width="100%"
    bordercolor="#000000">
      <tr>
        <td><div align="left"><table border="0" cellpadding="0" cellspacing="5" width="671"
        bgcolor="#6C8892">
          <tr>
            <td width="154" valign="top" align="center"><table border="1" cellpadding="0"
            cellspacing="4" width="100%" bordercolor="#000000" height="196">
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../default.asp">Startside</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../events/default.asp">Events</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../flop/default.asp">Weekend-Flop</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../drinks/default.asp">Drinks</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../top/default.asp">Top 10</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" " height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../arkiv/default.asp">Galleri</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a href="../ask/default.asp">Ask Away</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="24" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><a
                href="java script:WebCam('webcam.asp')">Admin Cam</a> <script language="JavaScript">
                                function WebCam (minpopup) {
                                NY=window.open(minpopup,'NY','width=320,height=240,toolbar=no,scrollbars=no')
                                }
                                </script>
                </b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="25" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6"><script LANGUAGE="JavaScript">
function NewWin (minpopup) {
NY=window.open(minpopup,'NY','width=550,height=250,toolbar=no,scrollbars=no')
}
</script><a
                href="java script:NewWin('Statistik.asp')">Statistik</a></b></font></td>
              </tr>
              <tr>
                <td background="../menubg.gif" height="23" valign="middle"><font face="Arial" size="2"><b><img
                border="0" src="../blank.gif" width="12" height="6">Nyheder<br>
                </b><%intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

order = request.querystring("sort")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/nyheder/db.mdb")


if order = "" then
strSQL = "select * from nyheder order by id desc"
elseif order = "all" then
strSQL = "select * from nyheder"

else
strSQL = "select * from nyheder"
end if

rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
       
        Response.Write "&nbsp;&nbsp;&nbsp; <A HREF=""../nyheder/nyhed.asp?id="& rs("id") & """><font face="" "&fontface&" "" font size="" "&fontsize&" "" color=""#000000"">"& left(rs("nyheden"), 18) & "<br></A>"
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If

Response.Write("<center>")
If Clng(intPage) > 1 Then
    Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?id=" & Request.QueryString("id") & "&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=" & Request.ServerVariables("SCRIPT_NAME") & "?id=" & Request.QueryString("id") & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
Response.Write("</center>")

if Request.Querystring("do") = "random" then

    Set count = Conn.Execute("SELECT COUNT(*) AS ANTAL from nyheder")
    Randomize
    int_go = int(rnd * int(count("antal")))
   
    Set rs = Conn.Execute("SELECT * FROM nyheder")
    for i = 1 to int_go
        rs.movenext
    next
    nyheden = rs("nyheden")
                datoen = rs("dato")
    Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & rs("id"))
end if

if request.querystring("id") <> "" then
strSQL = "Select * from nyheder where (id = "& request.querystring("id") &")"
set user = conn.execute(strSQL)
nul = "[Ingen Data]"
tmp = user("nyheden")
if tmp = "" then
nyheden = nul
else
nyheden = tmp
datoen = user("dato")
end if
Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & user("id"))
end if
%> </font></td>
              </tr>
            </table>
            </td>
            <td width="495" background="../mainbg.gif" height="0"
            style="background-repeat: repeat-y; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"
            bordercolor="#000000" valign="top"><div align="center"><center><table border="0"
            cellpadding="0" cellspacing="0" width="97%">
              <tr>
                <td valign="top"><font face="Arial"><b><br>
                Velkommen til Fredericia-ByNight.dk<br>
                </b><font size="2"><%

If Request.Cookies("fredericia_navn")("navn") = "" Then

    Response.Write "<form name='FormName' action='indskriv.asp' method='post'>"
    Response.Write "<font face='Arial'>Dit navn:"
    Response.Write "<input type='text' name='navn' size='10'>&nbsp;"
    Response.Write "<input type='submit' value='send' name='submitButtonName'>&nbsp;Efter indtastning ville dette forsvinde."
    Response.Write "</form>"

end if

%></font></font><br>
                <font face="Arial" size="2">På denne side vil du i menuen til venstre kunne klikke dig
                ind på diverse ting, som sker på festsiden, i byen - Fredericia.<br>
                <br>
                Klik dig ind og se, Events, Weekend Flops, Drinks, Top 10 (musik), Galleriet, og har du
                nogen spørgsmål kan du skrive til mig i &quot;Ask Away&quot; afdelingen.<br>
                <br>
                Held og lykke</font> <blockquote>
                  <p><font face="Arial" size="2">- Mvh. - Webmaster - Mark Mikkelsen</font></p>
                </blockquote>
                <p><font face="Arial" size="2">Støt <a href="www.Fredericia-ByNight.dk</a></font></p>" target="_blank">http://www.Fredericia-ByNight.dk">www.Fredericia-ByNight.dk</a></font></p>
                <p align="center"><a href="http://tracker.tradedoubler.com/tracker.asp?code=263898"
                target="_blank"><img border="0" src="../trade.gif"></a></p>
                <p align="left"><font face="Arial" size="2">Besøg også : <a href="http://www.nellys.dk"
                target="_blank">www.nellys.dk</a></font></td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>
    </div></td>
  </tr>
  <tr align="center">
    <td height="4"></td>
  </tr>
  <tr align="center">
    <td><img border="0" src="../bund.gif" width="675" height="16"> </td>
  </tr>
</table>
</center></div>
</body>
</html>
<%
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("events\events.mdb")
        If IsEmpty(Session("ID")) Then
            strSQL = "SELECT * FROM events"
        Else
            strSQL = "SELECT * FROM events WHERE ID =" & Session("ID")
        End If
        Set objRs = objConn.Execute(strSQL)

    While Not objRs.EOF
   
        If DateDiff("d", objRs("dato"), Date()) = 0 Then
            Session("ID") = objRs("ID")
%>
<script language="JavaScript">
            <% If Session("ID") <> "" Then %>
alert('<%= objRs("dato") %>\n<%= objRs("emne") %>\n<%= Left(objRs("tekst"), 30)%>');
            <% End If %>
        </script>
<%
        End If
    objRs.MoveNext()
    Wend
%>

Nu virker det helt...
//>Rune

Thx 4 Poinz
//>Rune