Thomas Voller wrote in dk.edb.internet.webdesign.serverside.asp:
> Må vi se den side der melder fejl? Jeg kan ikke helt forstå det, jeg har
> mange gange selv brugt den metode jeg forklarede i min først post?
Det må du i hvert fald:
<%
' Hvis brugeren ikke er logget rigtigt på
' sendes han/hun direkte til formularen
If Session("login") <> "JA" Then
Response.Redirect "login.asp"
End If
%>
<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>
Administration</h1>
<p align="center">[<a href="indtast.asp"><font size="2">Indtast et
arrangement</font></a>] - [<%
If (Request.Querystring("sort") = "gammel") Then
Response.Write "<a href='admin.asp'><font size='2'>Se aktuelle
arrangementer</font></a>"
Else
Response.Write "<a href='admin.asp?sort=gammel'><font size='2'>Se gamle
arrangementer</font></a>"
End if
%>] - [<a href="logout.asp"><font size="2">Log
af</font></a>]</font><br><br><br></p>
<table border="0" width="530" cellspacing="3" cellpadding="0"
align="right">
<%
Function DanskDato(dato)
' Array med danske navne på måneder
arrMaaned = ",januar,februar,marts,april,maj,juni,juli,august,"
arrMaaned = arrMaaned & "september,oktober,november,december"
arrMaaned = Split(arrMaaned,",")
' Datoen sammensættes
DanskDato = Day(dato) & ". " & arrMaaned(Month(dato)) & " " & Year(dato)
End Function
' 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
If (Request.Querystring("sort") = "gammel") Then
' SQL forespørgsel
strSQL = "Select * from arrangementer Where dato < #" & Day(Date) & "-" &
Month(Date) & "-" & Year(Date) & "# ORDER BY dato"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
Else
strSQL = "Select * from arrangementer Where dato >= #" & Day(Date) & "-" &
Month(Date) & "-" & Year(Date) & "# ORDER BY dato"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
End If
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> " &
DanskDato(rs("dato")) & "</b><br> Kl. " & rs("klokken") &
"<br><br>[<a href='slet.asp?id=" & rs("id") & "' onclick='return
confirm('Vil du slette denne post?')'><font size='2'>Slet</font></a>] - [<a
href='rediger.asp?id=" & rs("id") & "'><font
size='2'>Rediger</font></a>]</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>
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