Hvordan laver jeg så den kun viser 10 poster
<% Response.Buffer = True %><!--#include file="smileys.asp"-->
<html>
<head>
<title>Nyheder</title>
</head>
<style>
body {
background : 000000;
background-color: #FFFFFF;
FONT-FAMILY: Tahoma, Arial, Verdana, Helvetica, sans-serif;
FONT-SIZE: 8pt
color: white;
color: #000000;
font-size: 10px;
font-family: Tahoma;
scrollbar-face-color: "#FFFFFF";
scrollbar-shadow-color: "#FFFFFF";
scrollbar-highlight-color: "#000000";
scrollbar-3dlight-color: "#000000";
scrollbar-darkshadow-color: "#000000";
scrollbar-track-color: "#FFFFFF";
scrollbar-arrow-color: "#000000";
}
input,textarea,select,option {
font-family: verdana;
font-size: 10px;
background: #FFFFFF;
border:1px solid #111111;
color: #000000;
}
TD
{
COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt
}
SMALL
{
FONT-SIZE: 8pt
}
A:link
{
COLOR: #000033; TEXT-DECORATION: none
}
A:visited
{
COLOR: #003333; TEXT-DECORATION: none
}
A:hover
{
COLOR: #BFBFBF; TEXT-DECORATION: none
}
</style>
<body>
<% mode=request("mode")
'--- Kommentarer ---
if mode="kommentarer" then %>
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud
sql = "SELECT * From nyheder Where ID = " & Request.Querystring("ID")
Set rs = Con.Execute(Sql)
%>
<table align="center" width="510" cellspacing="0" cellpadding="0" class="ContentStyle">
<tr>
<td width="510" valign="top">
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC"><%=(smileys(rs("smiley")))%></td>
<td bgcolor="#6699CC" width="100%"><table border="0" cellspacing="0" cellpadding="0" class="ContentStyle" width="100%">
<tr><td><%=rs("title")%></td><td align="right"><%= FormatDateTime(rs("dato"),1)%> - <%= FormatDateTime(rs("dato"),3)%></td></td></table></td>
</tr>
<tr>
<td bgcolor="#6699CC" colspan="2"><%=rs("nyhed")%><br><br>Postet af <em><%=rs("forfatter")%></em></td>
</tr>
</table>
<tr>
</tr>
</table>
<br>
<center>
<font size="2"><strong>- Kommentarer -</strong></font>
<br>
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud
sql = "SELECT * From kommentarer Where nyhedsid = " & Request.Querystring("id")
Set rs = Con.Execute(Sql)
%>
<br>
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC" align="center" colspan="2">
<hr width="480" color="#000000" size="1">
<% Do While Not rs.EOF %>
<table width="480" border="0" cellspacing="0" cellpadding="0" class="ContentStyle">
<tr>
<td align="left" valign="top" width="150"><strong>Dato</strong></td><td align="left" valign="top" width="380"><%= FormatDateTime(rs("Dato"),1)%> - <%= FormatDateTime(rs("Dato"),3)%></td>
</tr>
<tr>
<td align="left" valign="top" width="150"><strong>Navn</strong></td><td align="left" valign="top" width="380">
<%
' Hvis brugeren ikke har skrevet nogle email skriver den email'en uden det bliver til et link
If rs("email") = "" Then
Response.Write rs("navn")
Else
Response.Write "<a href="& "mailto:" & rs("email") &">"& rs("navn") &"</a>"
End If
%>
</td>
</tr>
<tr>
<td align="left" valign="top" width="150"><strong>ICQ</strong></td><td align="left" valign="top" width="380">
<%
' Hvis brugeren ikke har skrevet noget icq nummer skriver den Ingen ICQ
If rs("icq") = "" Then
Response.Write "Ingen ICQ"
Else
Response.Write "<a href="& "http://msg.mirabilis.com/scripts/contact.dll?msgto="& rs("icq") &">"& rs("icq") &"</a>"
End If
%>
</td>
</tr>
<tr>
<td align="left" valign="top" width="150"><strong>Hjemmeside</strong></td><td align="left" valign="top" width="380">
<%
' Hvis brugeren ikke har skrevet nogle adresse skriver den Ingen Hjemmeside
If rs("url") = "http://" Then
Response.Write "Ingen Hjemmeside"
Else
Response.Write "<a href="& rs("url") &" target=""_blank"">"& rs("url") &"</a>"
End If
%>
</td>
</tr>
<tr>
<td align="left" valign="top" colspan="2" width="480">
<br><%=(smileys(rs("kommentar")))%>
<hr width="480" color="#000000" size="1"></td>
</tr>
</table>
<%
rs.MoveNext
Loop
%>
</td>
</tr>
</table>
<br>
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC" width="100%" align="center"><strong>Skriv en Kommentar</strong></td>
</tr>
<td bgcolor="#6699CC" colspan="2">
<form action="nyheder.asp?mode=kommentarer&id=<%=Request.Querystring("id")%>" method="post">
<table width="90%" align="center" border="0" cellspacing="10" cellpadding="0" class="ContentStyle">
<tr>
<td align="left" valign="top">
<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld
if (Request.Form("navn") <> "" AND Request.Form("kommentar") <> "") then
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from kommentarer"
rs.Open strsql, conn, 1, 3
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("nyhedsid") = Server.HTMLEncode(Request("nyhedsid"))
rs("navn") = Server.HTMLEncode(Request("navn"))
rs("email") = Server.HTMLEncode(Request("email"))
rs("icq") = Server.HTMLEncode(Request("icq"))
rs("url") = Server.HTMLEncode(Request("url"))
rs("kommentar") = Server.HTMLEncode(Request("kommentar"))
rs("dato") = Now()
rs.update
Response.Redirect("nyheder.asp?mode=kommentarer&id="& Request.Querystring("id") &"")
rs.Close
set rs = nothing
else
Response.Write("<strong><font color='red'>Du mangler at udfylde felter !</font></strong>")
end if
end if
%>
</td>
</tr>
<tr>
<input type="hidden" name="nyhedsid" value="<%=Request.Querystring("id")%>">
<td align="left" valign="top"><b>Dit Navn <font color="#336699">*</font></b></td><td align="right"><input name="navn" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Din E-mail</b></td><td align="right"><input name="mail" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Dit ICQ Nummer</b></td><td align="right"><input name="icq" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Din Hjemmeside</b></td><td align="right"><input name="url" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td align="left" valign="top"><strong>Kommentar <font color="#336699">*</font></strong></td><td align="right"><textarea cols="39" rows="10" name="kommentar"></textarea></td>
</tr>
<tr>
<td align="left" valign="top"><input name="submit" type="submit" class="Button" value="Tilføj Kommentaren"></td><td align="right"><input name="reset" type="reset" class="Button" value="Slet og Start Forfra"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<a href="nyheder.asp"><strong>Tilbage</strong></a>
<% '--- Forsiden ---
else %>
<%
' Connection til database
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db.mdb")
Conn.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 rs = Conn.Execute(Sql)
%>
<table align="center" bgcolor="#000000" width=""510" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="6699CC" width="510"><center><strong>Nyheder</strong></center></td>
</tr>
</table>
<br>
<% Do While Not rs.EOF
SQL2 = "select count(*) as antal from kommentarer WHERE nyhedsId = " & rs("id")
Set TheCount = Conn.Execute(Sql2)
antal = TheCount("antal")
%>
<table align="center" width="510" cellspacing="0" cellpadding="0" class="ContentStyle">
<tr>
<td width="510" valign="top">
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC"><%=(smileys(rs("smiley")))%></td>
<td bgcolor="#6699CC" width="100%"><table border="0" cellspacing="0" cellpadding="0" class="ContentStyle" width="100%">
<tr><td><%=rs("title")%> - (<a href="nyheder.asp?mode=kommentarer&id=<%=rs("id")%>"><%=antal%></a>)</td><td align="right"><%= FormatDateTime(rs("dato"),1)%> - <%= FormatDateTime(rs("dato"),3)%></td></td></table></td>
</tr>
<tr>
<td bgcolor="#6699CC" colspan="2"><%=rs("nyhed")%><br><br>Postet af <em><%=rs("forfatter")%></em></td>
</tr>
</table>
<tr>
</tr>
</table>
<br>
<%
rs.MoveNext
Loop
%>
<center>
<a href="login.asp"><strong>Admin Systemmet</strong></a>
</center>
<% End if %>
</body>
</html>
Hvordan gør jeg så den kun viser 10 Poster af Gangen ???
Og hvordan gør jeg så vis der er 0 Kommentare står der Ingen Kommentare
<% Response.Buffer = True %>
<%
'Her bliver der undersøgt om session("Adgang") er sat til Godkendt, er den ikke det bliver man sendt tilbage til adgangskontrol.asp med en fejlmeddelelse
If Not Session("Adgang") = "Godkendt" Then
Response.Redirect("login.asp?mode=forbudt")
End If
%>
<!--#include file="smileys.asp"-->
<html>
<head>
<title>Nyheder - admin</title>
</head>
<style>
body {
background : 000000;
background-color: #FFFFFF;
FONT-FAMILY: Tahoma, Arial, Verdana, Helvetica, sans-serif;
FONT-SIZE: 8pt
color: white;
color: #000000;
font-size: 10px;
font-family: Tahoma;
scrollbar-face-color: "#FFFFFF";
scrollbar-shadow-color: "#FFFFFF";
scrollbar-highlight-color: "#000000";
scrollbar-3dlight-color: "#000000";
scrollbar-darkshadow-color: "#000000";
scrollbar-track-color: "#FFFFFF";
scrollbar-arrow-color: "#000000";
}
input,textarea,select,option {
font-family: verdana;
font-size: 10px;
background: #FFFFFF;
border:1px solid #111111;
color: #000000;
}
TD
{
COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt
}
SMALL
{
FONT-SIZE: 8pt
}
A:link
{
COLOR: #000033; TEXT-DECORATION: none
}
A:visited
{
COLOR: #003333; TEXT-DECORATION: none
}
A:hover
{
COLOR: #BFBFBF; TEXT-DECORATION: none
}
</style>
<body>
<% mode=request("mode")
'--- Nyheder Opret ---
if mode="opret" then %>
<center>
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC" width="100%" align="center"><strong>Skriv en Nyhed</strong></b></td>
</tr>
<td bgcolor="#6699CC" colspan="2">
<center>
<strong>Her kan du se hvordan smiley hovederne du kan vælge ser ud</strong><br><br>
<img src="billeder/stort_smil.gif" width="15" height="15" border="0" alt=""> Stort Smil |
<img src="billeder/smil.gif" width="15" height="15" border="0" alt=""> Smil |
<img src="billeder/sej.gif" width="15" height="15" border="0" alt=""> Sej |
<img src="billeder/godkender.gif" width="15" height="15" border="0" alt=""> Godkender |
<img src="billeder/afviser.gif" width="15" height="15" border="0" alt=""> Afviser |
<img src="billeder/ked.gif" width="15" height="15" border="0" alt=""> Ked<br><br>
<img src="billeder/shokeret.gif" width="15" height="15" border="0" alt=""> Shokeret |
<img src="billeder/skummelt.gif" width="15" height="15" border="0" alt=""> Skummelt |
<img src="billeder/vred.gif" width="15" height="15" border="0" alt=""> Vred |
<img src="billeder/spørgsmål.gif" width="15" height="15" border="0" alt=""> Spørgsmål
</center>
</td>
</tr>
<td bgcolor="#6699CC" width="100%" align="center"><strong>Formen</strong></td>
</tr>
<td bgcolor="#6699CC" colspan="2">
<form action="admin.asp?mode=opret" method="post">
<table width="90%" align="center" border="0" cellspacing="10" cellpadding="0" class="ContentStyle">
<tr>
<td align="left" valign="top">
<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld
if (Request.Form("title") <> "" AND Request.Form("nyhed") <> "" AND Request.Form("smiley") <> "" AND Request.Form("forfatter") <> "") then
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from nyheder"
rs.Open strsql, conn, 1, 3
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("title") = Server.HTMLEncode(Request("title"))
rs("nyhed") = (Request("nyhed"))
rs("smiley") = Server.HTMLEncode(Request("smiley"))
rs("forfatter") = Server.HTMLEncode(Request("forfatter"))
rs("dato") = Now()
rs.update
Response.Write("<strong><font color='red'>Du har sendt formen!</font></strong>")
rs.Close
set rs = nothing
else
Response.Write("<strong><font color='red'>Du mangler at udfylde felter!</font></strong>")
end if
end if
%>
</td>
</tr>
<tr>
<td align="left" valign="top"><b>Title <font color="#336699">*</font></b></td><td align="right"><input name="title" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Nyhed <font color="#336699">*</font></b></td><td align="right"><textarea cols="39" rows="13" name="nyhed"></textarea></td>
</tr>
<tr>
<td align="left" valign="top"><strong>Smiley <font color="#336699">*</font></strong></td><td align="right">
<select name="smiley" class="InputTable">
<option value="[:=)]">Stort Smil</option>
<option value="[=)]">Smil</option>
<option value="[;-)]">Sej</option>
<option value="[:)]">Godkender</option>
<option value="[:(]">Afviser</option>
<option value="[;(]">Ked</option>
<option value="[:o]">Shokeret</option>
<option value="[:D:]">Skummelt</option>
<option value="[v:]">Vred</option>
<option value="[?]">Spørgsmål</option>
</select>
</tr>
<tr>
<td align="left" valign="top"><b>Forfatter <font color="#336699">*</font></b></td><td align="right"><input name="forfatter" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td align="left" valign="top">
</td>
</tr>
<tr>
<td align="left" valign="top"><input name="submit" type="submit" class="Button" value="Opret Nyheden"></td><td align="right"><input name="reset" type="reset" class="Button" value="Slet og Start Forfra"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<a href="admin.asp"><strong>Tilbage</strong></a>
</center>
<% '--- Nyheder Vis ---
Elseif mode="vis" then %>
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud
sql = "SELECT * From nyheder Where Id = " & Request.Querystring("id")
Set rs = Con.Execute(Sql)
%>
<table align="center" width="510" cellspacing="0" cellpadding="0" class="ContentStyle">
<tr>
<td width="510" valign="top">
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC"><%=(smileys(rs("smiley")))%></td>
<td bgcolor="#6699CC" width="100%"><table border="0" cellspacing="0" cellpadding="0" class="ContentStyle" width="100%">
<tr><td><%=rs("title")%></td><td align="right"><%= FormatDateTime(rs("dato"),1)%> - <%= FormatDateTime(rs("dato"),3)%></td></td></table></td>
</tr>
<tr>
<td bgcolor="#6699CC" colspan="2"><%=rs("nyhed")%><br><br>Postet af <em><%=rs("forfatter")%></em></td>
</tr>
</table>
<tr>
</tr>
</table>
<br>
<center><a href="admin.asp">Tilbage</a></center>
<% '--- Nyheder Ret ---
Elseif mode="ret" then %>
<% strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
sql ="SELECT * FROM nyheder Where Id=" & Request.Querystring("ID")
Set rs = Conn.Execute(sql)
%>
<center>
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<tr>
<td bgcolor="#6699CC" width="100%" align="center"><strong>Rediger en Nyhed</strong></b></td>
</tr>
<td bgcolor="#6699CC" colspan="2">
<form action="admin.asp?mode=rettet&id=<%=rs("id")%>" method="post">
<table width="90%" align="center" border="0" cellspacing="10" cellpadding="0" class="ContentStyle">
<tr>
<td align="left" valign="top"><b>Title <font color="#336699">*</font></b></td><td align="right"><input name="title" type="textbox" class="InputTable" size="40" value="<%=rs("title")%>"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Nyhed <font color="#336699">*</font></b></td><td align="right"><textarea cols="39" rows="10" name="nyhed"><%=rs("nyhed")%></textarea></td>
</tr>
<tr>
<td align="left" valign="top"><b>Smiley <font color="#336699">*</font></b></td><td align="right">
<select name="smiley" class="InputTable">
<% if rs("smiley") = "[:=)]" then
response.write "<option value=""[:=)]"" SELECTED>Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
elseif rs("smiley") = "[=)]" then
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"" SELECTED>Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
elseif rs("smiley") = "[;-)]" then
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"" SELECTED>Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
elseif rs("smiley") = "[:)]" then
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"" SELECTED>Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
elseif rs("smiley") = "[:(]" then
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"" SELECTED>Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
elseif rs("smiley") = "[;(]" then
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"" SELECTED>Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
elseif rs("smiley") = "[:o]" then
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"" SELECTED>Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
elseif rs("smiley") = "[:D:]" then
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"" SELECTED>Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
elseif rs("smiley") = "[v:]" then
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"" SELECTED>Vred</option>"
response.write "<option value=""[?]"">Spørgsmål</option>"
else
response.write "<option value=""[:=)]"">Stort Smil</option>"
response.write "<option value=""[=)]"">Smil</option>"
response.write "<option value=""[;-)]"">Sej</option>"
response.write "<option value=""[:)]"">Godkender</option>"
response.write "<option value=""[:(]"">Afviser</option>"
response.write "<option value=""[;(]"">Ked</option>"
response.write "<option value=""[:o]"">Shokeret</option>"
response.write "<option value=""[:D:]"">Skummelt</option>"
response.write "<option value=""[v:]"">Vred</option>"
response.write "<option value=""[?]"" SELECTED>Spørgsmål</option>"
end if
%>
</select>
</td>
</tr>
<tr>
<td align="left" valign="top"><input name="submit" type="submit" class="Button" value="Rediger Nyheden"></td><td align="right"><input name="reset" type="reset" class="Button" value="Slet og Start Forfra"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<a href="admin.asp"><strong>Tilbage</strong></a>
</center>
<% '--- Nyheds Rediger Ret ---
Elseif mode="rettet" then %>
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
sql = "UPDATE nyheder SET title = '" & request.form("title") & "'"
sql = sql & ", nyhed= '" & request.form("nyhed") &"'"
sql = sql & ", smiley= '" & request.form("smiley") &"'"
sql = sql & "WHERE Id = " & request("ID")
Set rs = Conn.Execute (sql)
Conn.Close
Response.Redirect ("admin.asp")
%>
<% '--- Log ud ---
Elseif mode="logud" then %>
<%
'Nulstiller alt
Session.Abandon()
Response.Redirect("nyheder.asp")
%>
<% '--- Forsiden ---
else %>
<table align="center" bgcolor="#000000" width=""510" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="6699CC" width="510">
<center>
<a href="admin.asp?mode=opret">Opret en Nyhed</a>
<strong>Nyheder</strong>
<a href="admin.asp?mode=opret">Opret en Nyhed</a>
</center>
</td>
</tr>
</table>
<br>
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud
sql = "SELECT * From nyheder ORDER BY Id DESC"
Set rs = Con.Execute(Sql)
%>
<table align="center" width="510" cellspacing="0" cellpadding="0" class="ContentStyle">
<tr>
<td width="510" valign="top">
<table width="510" border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" class="ContentStyle">
<% Do While Not rs.EOF %>
<tr>
<td bgcolor="#6699CC" width="100%"><table border="0" cellspacing="0" cellpadding="0" class="ContentStyle" width="100%">
<tr><td><a href="admin.asp?mode=vis&id=<%=rs("id")%>">Vis Infomation</a></td><td align="right"><%=rs("title")%> - <a href="admin.asp?mode=ret&id=<%=rs("id")%>">Rediger</a> /
<script language="JavaScript">
<!-- Gem koden for gamle browsere
function PopWin(url,h,w) {
popupWin = window.open(url, 'popup', 'height=' + h + ',width=' + w + ',top=50,left=25')
}
// -->
</script>
<a href="java script:PopWin('slet.asp?id=<%=rs("id")%>',40,135);">Slet</a>
</td></td></table></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<tr>
</tr>
</table>
<br>
<center>
<a href="admin.asp?mode=logud">Log ud</a>
</center>
<% End if %>
</body>
</html>
Og her hvordan får jeg den til at gemme Med Dansk Dato så det ikke ser sådan her ud Friday, April 19, 2002 - 1:03:47 PM Det skal bare se sådan her ud i stedet 19/4-02
PLZ Hjælp mig
