Sidste indlæg i News
På vores sportsite har vi på startsiden en rubrik med et nyhedssystem, hvor der vises en overskrift, en underoverskrift samt dato for indlægget. Der er så et link på overskriften der så åbner nyheden (se evt www.sbbc.dk)Problemet er så, at ved et nyt indlæg, kommer dette til sidst på startsiden, og ved endnu et nyt indlæg, rykker det foregående op øverst i kolonnen. Kunne nogen hjælpe ?
Her er koden:
<DIV ID=\"spalte1\" >
<TABLE WIDTH=\"99%\" BORDER=\"0\" CELLPADDING=\"3\" STYLE=\"font-size:x-small;\">
<TR>
<TD VALIGN=\"top\" WIDTH=\"40%\" >
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database/frontnews.mdb\")
\'SQLstmt = \"INSERT INTO adresse (ID,Besked,underskrift, Forfatter,Dato,link\"
\'SQLstmt = SQLstmt & \" VALUES (\" & request.form(\"Besked\") & \",\'\" & request.form(\"Forfatter\") & \"\',\'\" & request.form(\"Dato\") & \"\',\" & request.form(\"link\") & \",\'\" & request.form(\"vist\") & \"\',\'\" & request.form(\"Overskrift\") & \"\',\'\" request.form(\"underskrift\") & \"\')\"
SQLstmt = \"SELECT * FROM news ORDER BY ID desc;\"
\'
\'response.write SQLstmt
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
%>
<table border=\"0\" width=\"100%\">
<tr>
<td align=\"left\" >
<%
DO WHILE NOT rs.EOF
overskrift = rs(\"overskrift\")
ID = rs(\"ID\")
Dato = rs(\"Dato\")
underskrift = rs(\"underskrift\")
%>
<a href=\"vis_besked.asp?id=<%=ID%>\"><B><%=overskrift%></b></a><BR><BR> <I><%=underskrift%></I><BR>Skrevet:<%=Dato%></td></tr>
<HR>
<%
rs.MoveNext
LOOP
RS.Close
Response.Write \"</TABLE>\"
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
