HJÆLP

se lig her www.krellers.dk/nyheder.asp hvad der galdt :: <%
' --------------------------------------------------
' Nyhedssting
' Udviklet af Andreas Mailand - andreas@mailand.dk
' All rights reserved
' --------------------------------------------------
Response.Buffer = True

' Funktion der fikser quotes...
FUNCTION fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "''" )
END FUNCTION

' Hent data fra formular   
    Nyhed = Request( "Nyhed" )
    Forfatter = Request( "Forfatter" )

' Connection til database.    
Set Con = Server.CreateObject( "ADODB.Connection" )
    DBPath = "DBQ=" & server.mappath("nyheder.mdb")
    Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' ... Ogsaa saetter vi vores data fra formularen ind i databasen
IF Request.Servervariables("Content_Length") > 0 THEN
    Sql = "INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
    Con.Execute Sql

' Og her skriver vi lige en lille besked om at nu er nyheden tilfoejet   
    Response.Write "<strong>Tak for din nyhed. Den er blevet tilf&oslash;jet til databasen. </strong>"
   
END IF

%>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>Nyhedsting</title>

    <link rel=stylesheet type="text/css" href="../style/stylenormal.css">
</head>

<body>

<h1>Skriv NYHED</h1>
<br>


<br><br>

<form action="nyhed.asp" method="POST" target="_self">
<table border="0" width="600">
    <tr>
        <td valign="top" width="150">Nyhed</td>
        <td><textarea cols="30" rows="8" name="Nyhed"></textarea></td>
    </tr>
    <tr>
        <td>Forfatter</td>
        <td><input type="text" name="Forfatter" size="20"></td>
    </tr>
    <tr>
        <td colspan="2" align="center"><input type="submit" value=" - SKRIV - "></td>
    </tr>
</table>
</form>

</body>
</html>

også her www.krellers.dk/visnyhed.asp
<%
' --------------------------------------------------
' Nyhedsting...
' Udviklet af Andreas Mailand - andreas@mailand.dk
' All rights reserved
' --------------------------------------------------
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)

%>

<html>

</head>

<body>

<table border="0" cellspacing="0" width="550">
    <tr>
        <td align="center" colspan="2"><h1>Nyheder</h1></td>
    </tr>
    <tr><td>&nbsp;</td></tr>

<!-- Her nedenunder smider vi saa nyhederne ud i en tabel -->

<% Do While Not Record.EOF %>
        <td bgcolor="#999966"><% Response.Write Record("Dato")%></td>
        <td bgcolor="#999966" align="right">Fra <i><% Response.Write Record("Forfatter")%></i></td>
    </tr>
    <tr>
        <td colspan="2"><% Response.Write Record("Nyhed") %></td>
    </tr>
    <tr><td>&nbsp;</td></tr>
<%
Record.MoveNext
Loop
%>

<!-- Og her har den saa gjort det, og vi kan afslutte dokumentet -->
</table>

</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>

www.krellers.dk/nyhed1.html sådan skal nyhed.asp se ud