"Dennis Møller" <djm@dennermanner.dk> skrev i en meddelelse
news:bfn7db$kot$1@sunsite.dk...
> Hej endnu en gang!
> Det er skam med vilje jeg har lavet to tråde - det ene er et råb
> om hjælp til at udbedre en fejl, denne er - også et råb men - om
> et svar på et spørgsmål... :D
>
> Jeg er ved at lave et arrangement-system og vil gerne have at kun
> aktuelle og kommende arrangementer bliver vist, altså noget med:
> Date <= "datoen fra databasen"
> Men jeg kan ikke få det eksempel, jeg har fundet, til at virke -
> selvom begge formater er 14-07-2003 (som i dag):
>
> strSQL = "Select * from arrangementer Where dato <= " & Day(Date)
> & "-" & Month(Date) & "-" & Year(Date)
>
> Det der var fra SQL funktionen, der går ud og læser i databasen.
> Nedenunder kommer selvfølgelig udskrivelser af værdierne.
> Her er siden:
>
> <html>
>
> <head>
> <title>Ingstrup Mølle Fiskepark</title>
> <link rel="Stylesheet" type="text/css" href="./style.css">
> </head>
>
> <body topmargin="0">
> <table border="0" width="590" align="left" cellspacing="0"
> cellpadding="0">
> <tr>
> <td width="100%">
>
> <h1 align="center"><br>
> Arrangementer</h1>
> <table border="0" width="530" cellspacing="3"
> cellpadding="0" align="right">
> <%
> ' Databaseforbindelse - husk at angive sti til din database
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath("./cgi-bin/database.mdb")
> Conn.Open DSN
>
> ' SQL forespørgsel
> strSQL = "Select * from arrangementer Where dato > " & Day(Date)
> & "-" & Month(Date) & "-" & Year(Date)
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set rs = Conn.Execute(strSQL)
>
> If rs.EOF OR rs.BOF Then
> Response.Write "<p>Der er ingen arrangementer i
> øjeblikket!</p>"
>
> else
>
> ' Gennemløb Recordset (rs) med en løkke
> Do
>
> ' Udskriv værdien af kolonnen Fornavn
> Response.Write "<tr><td colspan='2'><h2>" & rs("overskrift") &
> "</td></tr>"
> Response.Write "<tr><td width='175'
> valign='top'><p><b> " & rs("dato") &
> "</b><br> Kl. " & rs("klokken")
>
> & "</p></td>"
> Response.Write "<td width='355' valign='top'><p>" &
> rs("beskrivelse") & "</p></td></tr>"
> Response.Write "<tr><td valign='top'
> colspan='2'><br><br></td></tr>"
>
> ' Gå til næste Record i rs
> rs.MoveNext
>
> ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> Loop While Not rs.EOF
>
> End if
>
> ' Luk databaseforbindelse
> Conn.Close
> Set Conn = Nothing
> %>
> </table>
>
> </td>
> </tr>
> </table>
> </body>
>
> </html>
>
>
> Hvad findes der ellers af metoder?
> På forhånd tak - Dennis.
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials
Hej
Jeg aner ikke om den holder her, men i VB vil SQL'en være noget der ligner:
strSQL = "Select * from arrangementer Where dato <= #" & Day(Date)
& "-" & Month(Date) & "-" & Year(Date) & "#"
hilsen Ivan D-J