Hej! Hej! Tack Jonas!!!!! Hur gör man för att ta ut dom ex. 5 första posterna?
Hur gör man för att ta ut dom ex. 5 första posterna från databasen istället för att loopa igenom den?
Tacksam för hjälp
/Tomas
Min kod:
<%
'databasanslutning med recordset
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\Inetpub\data\members_links.mdb"
SQLStmt = "SELECT * FROM links ORDER BY ID DESC"
SET RecSET = Server.CreateObject("ADODB.Recordset")
RecSet.Open SQLStmt, Con, adOpenStatic, adLockOptimistic
'loopen för att skriva ut alla inlägg
DO UNTIL RecSet.EOF
%>
<HTML>
<head>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="180">
<tr>
<td valign="top" align="center"><font face="Verdana" size="1" color="#000000">"><%=RecSet("namn")%></font></td>
</tr>
</table>
<%
RecSet.MoveNext
LOOP
RecSet.Close
Con.Close
%>
</HTML>Sv: Hur gör man för att ta ut dom ex. 5 första posterna?
testa
<%
'databasanslutning med recordset
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\Inetpub\data\members_links.mdb"
SQLStmt = "SELECT TOP 5 * FROM links ORDER BY ID DESC"
SET RecSET = Server.CreateObject("ADODB.Recordset")
RecSet.Open SQLStmt, Con, adOpenStatic, adLockOptimistic
'loopen för att skriva ut alla inlägg
while not RecSet.EOF
%>
<HTML>
<head>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="180">
<tr>
<td valign="top" align="center"><font face="Verdana" size="1" color="#000000">"><%=RecSet("namn")%></font></td>
</tr>
</table>
<%
RecSet.MoveNext
wend
RecSet.Close
Con.Close
%>
</HTML>
hoppas det funkar..
/jonasSv: Hur gör man för att ta ut dom ex. 5 första posterna?
Fick infoga <!-- #include virtual="/adovbs.inc" --> sen funkade det.......
/Tomas