Arrangere efter dato

.....ingen.....?

<snip>ændre rækkefølgen efter datoen</snip> <- hvad mener du med det ?

Skal den tage events før d.d., skal den bare ændre sorteringen eller ?

Du kunne eks. lave et link på siden:

<A HREF=""default.asp?mode=old">Vis tidligere events</A>

Så laver du dette check på Request.QueryString("Mode")

If LCase(Request.QueryString("Mode")) = old Then
SQL = "SELECT * FROM Events WHERE Dato < Date()"
Else
SQL = "SELECT * FROM Events WHERE Dato >= Date()"
End If

o.s.v.

kan du komme på icq så kan vi poste bagefter ?

se : http://www.fredericia-bynight.dk/events/default.asp

Ved klik på linket skulle den 07 være øverst..

if Request.QueryString("Mode") = "old" then
SQL = "SELECT * FROM Events ORDER BY Dato DESC"
end if

ændre ikke noget... en der vil se scriptet ?

Her er det hele :

<!--#include virtual ="/include/UserTime.asp"-->
<html>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Events.mdb")

Set objRs = objConn.Execute("SELECT * FROM events")
%>

<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 bgcolor="#3288A4">
<%

strDag = Day(Date())
strMdr = Month(Date())
strAar = Year(Date())

If Len(strDag) = 1 Then
    strDag = 0 & strDag
End If
If Len(strMdr) = 1 Then
    strMdr = 0 & strMdr
End If
strDato = strDag & "-" & strMdr & "-" & strAar
%>
<div align="center"><%
        objConn.Execute("DELETE FROM events WHERE dato < date()")
    'Response.Write("De skulle nu være slettet, hvis det altså virker!")
%>
<div align="center"><%
if Request.QueryString("Mode") = "old" then
objconn.execute("SELECT * FROM events ORDER by Dato DESC")
end if
%>
<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"><!--#include Virtual="/include/menu.asp" --> </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"><p align="left"><font face="Arial"><b><br>
                Events<br>
                <font size="2">Listet er KUN kommende Events</font></b></font></p>
                <p align="left"><a HREF="default.asp?mode=old" default.asp?mode="old&quot;"><font
                color="#000000" face="Arial"><small>Arrangere Events efter dato</small></font></a></p>
                <blockquote>
                  <font size="2"><%
While Not objRs.EOF
response.write "<font face='Arial, Helvetica, sans-serif' color='#000000' size='2px'>"
Response.Write "<li>" & objRs("dato") & " - " & objRs("emne") & " - " & objRs("tekst") & "</font>"
objRs.MoveNext()
Wend
%>
</font>
                </blockquote>
                <p align="center"><a href="http://www.zequenze.dk"><img border="0" src="../zequenze.gif"
                width="468" height="60"> </a></p>
                <p align="center">&nbsp; </td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>
    </div></td>
  </tr>
  <tr>
    <td height="4"></td>
  </tr>
  <tr>
    <td><img border="0" src="../bund.gif" width="675" height="16"> </td>
  </tr>
</table>
</center></div></div></div>
</body>
</html>

Tilføj "ORDER BY Dato" hvis du vil have den mindste dato øverst. Det er ikk nødvendigt at tilføje ASC, da dette er default men der sker ikke noget ved at gøre det.

Det ændrede heller ikke noget.

Hvis du ændrer:

objconn.execute("SELECT * FROM events ORDER by Dato DESC")

til:

objconn.execute("SELECT * FROM events ORDER by Dato ASC")

skal det bare virke.

Nope..  Link til databasen jeg bruger hvis det var noget :

http://www.fredericia-bynight.dk/events/events.mdb

ingen nye

nu er den... 15

Og nu 49...

Lukker... intet virkede..

<!--#include virtual ="/include/UserTime.asp"-->
<html>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Events.mdb")

Set objRs = objConn.Execute("SELECT * FROM events ORDER by Dato DESC")
%>

<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 bgcolor="#3288A4">
<%

strDag = Day(Date())
strMdr = Month(Date())
strAar = Year(Date())

If Len(strDag) = 1 Then
    strDag = 0 & strDag
End If
If Len(strMdr) = 1 Then
    strMdr = 0 & strMdr
End If
strDato = strDag & "-" & strMdr & "-" & strAar
%>
<div align="center"><%
        objConn.Execute("DELETE FROM events WHERE dato < date()")
    'Response.Write("De skulle nu være slettet, hvis det altså virker!")
%>
<div align="center"><%
if Request.QueryString("Mode") = "old" then
objconn.execute("SELECT * FROM events ORDER by Dato DESC")
end if
%>
<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"><!--#include Virtual="/include/menu.asp" --> </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"><p align="left"><font face="Arial"><b><br>
                Events<br>
                <font size="2">Listet er KUN kommende Events</font></b></font></p>
                <p align="left"><a HREF="default.asp?mode=old" default.asp?mode="old&quot;"><font
                color="#000000" face="Arial"><small>Arrangere Events efter dato</small></font></a></p>
                <blockquote>
                  <font size="2"><%
While Not objRs.EOF
response.write "<font face='Arial, Helvetica, sans-serif' color='#000000' size='2px'>"
Response.Write "<li>" & objRs("dato") & " - " & objRs("emne") & " - " & objRs("tekst") & "</font>"
objRs.MoveNext()
Wend
%>
</font>
                </blockquote>
                <p align="center"><a href="http://www.zequenze.dk"><img border="0" src="../zequenze.gif"
                width="468" height="60"> </a></p>
                <p align="center">&nbsp; </td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>
    </div></td>
  </tr>
  <tr>
    <td height="4"></td>
  </tr>
  <tr>
    <td><img border="0" src="../bund.gif" width="675" height="16"> </td>
  </tr>
</table>
</center></div></div></div>
</body>
</html>

//>Rune