Avatar billede benzon Praktikant
19. april 2002 - 13:19 Der er 16 kommentarer og
1 løsning

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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<strong>Nyheder</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<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>&nbsp;/
<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
Avatar billede whatever Nybegynder
19. april 2002 - 13:22 #1
Du ændrer denne til: sql = "SELECT TOP 10 * From nyheder Where Id = " & Request.Querystring("id")
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:24 #2
Hvad vil du ?

Have den til at vise ti poster eller hav ?
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:26 #3
Hvis det er det, har jeg lavet et eksempel med 5 poster på hver side:
www.friserverplads.dk/cyberkox/download.asp

ikk kig på farverne, men kun på 'bladringen'...
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:28 #4
Jeg kan lave et script om 10 min. eller om 1 time
Avatar billede whatever Nybegynder
19. april 2002 - 13:29 #5
Men hensyn til datoen, kan du jo bare skrive: day(now()) &"/"& month(now()) &"-"& year(now())
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:29 #6
Er det den første side eller den anden side, du vil have vist 10 poster på hver side ?
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:31 #7
Hallo
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:31 #8
Hallo
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:33 #9
Kan du vente 1 time, så har jeg et svript lavet ?

Jeg sidder i skole og skal til time nu. Kommer jeg om 1 time, og så laver jeg det.

Så hvis du kan vente.......
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:34 #10
svript = script
Avatar billede cyberkox Nybegynder
19. april 2002 - 13:38 #11
JEg har et scipt klar til om en time.

Hyg jer.

Cyber Kox
Avatar billede benzon Praktikant
19. april 2002 - 13:54 #12
cyberkox
Ville være dejligt
Avatar billede benzon Praktikant
19. april 2002 - 13:59 #13
Selve designet på Nyheds Boksene skal også laves om de skal se ud som www.webmasterportalen.dk/1c/index.php

Men Tror jeg godt selv Jeg kan lave !!!

Du kan se demo af det Nyheds System på www.webmasterportalen.dk/asptest/nyheder.asp

Grunden er nemlig Jeg gerne vil ha de Kommentare på og den side det skal ligge på i sidste ende Supporter kun asp derfor :-)
Avatar billede cyberkox Nybegynder
19. april 2002 - 14:36 #14
Er det ASP eller PHP ?
Avatar billede cyberkox Nybegynder
19. april 2002 - 14:37 #15
Hvis det er ASP kan jeg lave det.

Min ICQ er: 150953273

Hvis du har det, kan vi skrive sammen den vej, det er lidt mere.
Avatar billede cyberkox Nybegynder
19. april 2002 - 14:38 #16
Nå, men jeg laver systemet ud fra ASP
Avatar billede benzon Praktikant
04. maj 2002 - 01:29 #17
Lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester