efter 15 indlæg springer rækkefølgen rundt?
Hej.Jeg er ny i asp, og ny her, så bær over med mig hvis jeg ikke forstår tingene ved første øjekast eller poster forkert :-)
Jeg har denne kode som jeg skal bruge til en gæstebog, men ved besked nr 16 i gæstebogen springer rækkefølgen rundt fra at være 16,15,14,13,12,..... til at være 9,2,3,4,5,6,8,16,10,11,12,13,14,15,7 hvilket er meget underligt synes jeg... Nogen der har en forklaring?
Her er koden jeg bruger:
<% @LANGUAGE = "VBScript" %>
<%Option Explicit%>
<!--#include file="adovbs.inc"-->
<html>
<head>
<title>Nyt</title>
<link REL="STYLESHEET" HREF="standard.css" TYPE="text/css">
</head>
<body>
<center><h2>Seneste Nyhed</h2></center>
<%
dim i,RS, objRS, sqlstring, beskrivelse, header
dim conn, ODBCpath, nydato
header = TRIM(Request("header"))
beskrivelse = TRIM(Request("beskrivelse"))
function OpenConn( DBName )
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"
end function
function draw
nydato = RS("Oprettet")
Response.Write "<tr><td><b>" & RS("Header") & " - </b>(" & Day(nydato) & "/" & Month(nydato) & "/" & Year(nydato) & ")</td></tr>"
Response.Write "<tr><td>" & RS("Beskrivelse") & "<hr width=70% color=#000000 size=1></td></tr>"
End function
OpenConn("nyheddb.mdb")
IF (header = "") THEN
%>
<form action=nyhed.asp name=addNews>
<center>
<table>
<tr><td><b>Overskrift:<br><input type=text size=50 name=header></td></tr>
<tr><td>Beskrivelse:<br>
<textarea cols=50 rows=3 name=beskrivelse></textarea></td></tr>
<tr><td><input type=submit value="Tilføj nyhed til listen"></td></tr>
</table>
</form>
<div align="center">
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="70%">
<%
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS.ActiveConnection = Conn
Sqlstring = "SELECT * FROM News ORDER BY oprettet DESC"
RS.Open sqlString
While NOT RS.EOF
draw
RS.MoveNext
Wend
Response.Write "</table></div>"
ELSE
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseServer
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockOptimistic
objRS.Open "News", Conn, , adCMdTable
objRS.AddNew
objRS("Beskrivelse") = beskrivelse
objRS("header") = header
objRS("Oprettet") = Date
objRS.Update
objRS.Close
Response.Redirect "nyhed.asp"
END IF
%>
</body>
</html>
