SIMPELT nyheds system

prøv www.asp.dk - det har de masser af eksempler på

Jeg har KIGGET ALT igennem

http://www.asp.dk/sources.asp?mode=view_source&cat_id=0&id=1572&tech_id=1

f.eks.

Man skal kunne se HELE nyheden

http://www.asp.dk/sources.asp?mode=list_sources&tech_id=1

og scroll ned til news.../nyheds... flere eksempler

det skal helst være 100% mit behov

Hvad med ældre nyheder ?

Og hvordan skal nyheder sættes op ?

KUN de 3 Nyeste

Nyhederne skal sættes Efter hinanden

Jeps - men er der kun et felt med nyheder - ellers skal der også laves noget med navn, email, dato og den slags - lav en html skabelon og jeg vil kigge på det.

<html>

<head>
<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.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 Record =  Con.Execute(Sql)

%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Frederiksv&aelig;rk NetCafe</title></head>

<body bgcolor="#000000">

<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="500" id="AutoNumber1" height="545">
    <tr>
      <td width="100%" height="103"><img border="0" src="Logo.jpg" width="749" height="103"></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#808080" height="12">
      <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <a href="index.asp"><font color="#FFFFFF">
      <applet code="fphover.class" codebase="./" width="80" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Nyheder">
        <param name="url" valuetype="ref" value="index.asp">
        <param name="effect" value="glow">
      </applet><applet code="fphover.class" codebase="./" width="83" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Information">
        <param name="url" valuetype="ref" value="info.asp">
      </applet></font></a></font><FONT
            face="Verdana, Arial, Helvetica, sans-serif" size=2
            link="#FFFFFF" color="#FFFFFF"> </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <a href="index.asp"><font color="#FFFFFF">
      <applet code="fphover.class" codebase="./" width="50" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Spil">
        <param name="url" valuetype="ref" value="Spil.asp">
      </applet><applet code="fphover.class" codebase="./" width="60" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Links">
        <param name="url" valuetype="ref" value="Links.asp">
      </applet><applet code="fphover.class" codebase="./" width="100" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Counter-Strike">
        <param name="url" valuetype="ref" value="CS.asp">
      </applet><applet code="fphover.class" codebase="./" width="80" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Tagwall">
        <param name="url" valuetype="ref" value="Tagwall.asp">
      </applet></font></a></font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#000000" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" height="426">
      <p align="left">
          <font color="#FFFFFF">Antal online brugere:</font><font color="#FF0000"> <%=Application("ActiveUsers")%>
      </font></p>
          <p align="center"><b><font color="#FFFFFF" face="Verdana" size="4">
            </font></b></p>
          <table width="92%" border="0" height="90">
            <tr>
              <td height="25" width="53%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="2">Nyheder</font></td>
              <td height="25" width="47%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Afstemning</font></td>
            </tr>
            <tr>
              <td width="53%">
                <p>&nbsp;</p>
                <p>&nbsp;</p>
              </td>
              <td width="47%">
                <p>&nbsp<font size="4">Hvad synes du om designet??</font><br>
<%
Dim Radio1, Radio2, Radio3, Radio4
Dim Samlet
Dim R1ud, R2ud, R3ud, R4ud

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("radio1.txt")
Set f = fso.OpenTextFile(filespec,1)

Radio1 = f.ReadLine

f.Close

Dim fso2, f2, filespec2
Set fso2 = CreateObject("Scripting.FileSystemObject")
filespec2 = Server.Mappath("radio2.txt")
Set f2 = fso2.OpenTextFile(filespec2,1)

Radio2 = f2.ReadLine

f2.Close

Dim fso3, f3, filespec3
Set fso3 = CreateObject("Scripting.FileSystemObject")
filespec3 = Server.Mappath("radio3.txt")
Set f3 = fso3.OpenTextFile(filespec3,1)

Radio3 = f3.ReadLine

f3.Close

Dim fso4, f4, filespec4
Set fso4 = CreateObject("Scripting.FileSystemObject")
filespec4 = Server.Mappath("radio4.txt")
Set f4 = fso4.OpenTextFile(filespec4,1)

Radio4 = f4.ReadLine

f4.Close

Samlet = Radio1 + 0 + Radio2 + 0 + Radio3 + 0 + Radio4 + 0
R1ud = Radio1 / Samlet * 100
R2ud = Radio2 / Samlet * 100
R3ud = Radio3 / Samlet * 100
R4ud = Radio4 / Samlet * 100
Response.Write "<font size='2' type='Verdana'>"
Response.Write "ASP :"
Response.Write "<div style='width: " & Int(R1ud * 3) & "px; background-color: blue;'>"
Response.Write "" & Int(R1ud) & "%"
Response.Write "</div><br>"
Response.Write "PHP :"
Response.Write "<div style='width: " & Int(R2ud * 3) & "px; background-color: red;'>"
Response.Write "" & Int(R2ud) & "%"
Response.Write "</div><br>"
Response.Write "Kun HTML :"
Response.Write "<div style='width: " & Int(R3ud * 3) & "px; background-color: green;'>"
Response.Write "" & Int(R3ud) & "%"
Response.Write "</div><br>"
Response.Write "Andet :"
Response.Write "<div style='width: " & Int(R4ud * 3) & "px; background-color: yellow;'>"
Response.Write "" & Int(R4ud) & "%"
Response.Write "</div><br>"
Response.Write "</font>"
Response.Write "Samlet antal stemmer: " & Samlet & "<br>"

if Request.Cookies("homemadepoll")("stemt") = "JA" then
Response.Write "<b>Du har stemt og kan derfor ikke stemme igen</b>"
else
Response.Write "<form action='stem.asp' method='post'>"
Response.Write "<input type='radio' name='radio' value='1'>Mega godt<br>"
Response.Write "<input type='radio' name='radio' value='2'>Godt<br>"
Response.Write "<input type='radio' name='radio' value='3'>Ikke så godt<br>"
Response.Write "<input type='radio' name='radio' value='4'>DÅRLIGT!!!<br>"
Response.Write "<input type='submit' value='Stem'>"
Response.Write "</form>"
end if
%>;</p>
                <p>&nbsp;</p>
              </td>
            </tr>
          </table>
          <p align="center"><b><font color="#FFFFFF" face="Verdana" size="4">
            </font></b></p>
          <p align="center"><font color="#FFFFFF" face="Verdana"><font size="2"><br>
          </font>
         
&nbsp;</font></p>
          <p align="center">&nbsp;
          </p>
         
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

Koden skal være under tabellen Nyheder

CYGNET er du her stadig

jeps - det er jeg ..

Kan du ikke lige sende hele dit script til mig - plus database eksperten@cygnet.dk - så fikser jeg det lige.

argh - kan ikke overskue det alligevel - håber du kan få en anden til det.

Skal i seng.

nogen der gider hjælpe

hmm lukket :)