Afkorte et nyhedsscript !
Hejsa !Jeg har fundet dette nyhedsscript, og vil nu gerne høre efter hvordan sææter jeg den til kun at skrive de første (ca. 20 tegn), herefter klikker jeg på linket (læs mere her), og så kan det hele nyheden læses på en ny side. Lidt ligesom der er på jp.dk
Her er siden hvor nyheden vises:
------------------------------------
<head>
<title>Ny side 1</title>
</head>
<body>
<table border="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><%
Response.Buffer = True
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db/db1.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT TOP 5 * FROM nyheder ORDER BY nyheder.ID DESC"
Set Record = Con.Execute(Sql)
%>
<% Do while Not Record.EOF %>
<table border="0" cellspacing="0">
<tr>
<td><div class='dato'><% Response.Write Record("Dato")%></td>
</tr>
<tr>
<td colspan="2"><div class='tekst'><% Response.Write Record("Nyhed")%></td>
</tr>
<tr>
<td align="right"><div class='slut'><% response.Write Record("Forfatter")%></td>
</tr>
</table>
<%
Record.MoveNext
Loop
%>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>
</td>
</tr>
</table>
</body>
Hilsen
ccfischer
