Tänkte dela upp nyheterna på min hemsida så scrollisten inte blir allt för lång. Om jag vill att endast dom 15 senaste nyheterna ska synas men dom andra, dvs den 16:e å uppåt ska läggas i en annan fil (akriv.asp).. hur gör jag det?
Jag använder mig av detta systemet men då kan man ju ej hitta den 16:e senaste nyheten å uppåt...
<%
Set RSConn = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT TOP 15 * FROM news Order By news.ID DESC"
RSConn.Open SQL, Conn, 1, 2
Do Until RSConn.EOF
%>
'Blah blah blah .. här lägger jag in nyheten osv...
<%
RSConn.MoveNext
Loop
RSConn.Close
Conn.Close
%>
Sen när jag fått detta å funka kommer nästa problem men det får ni se sen ;)
------------------ O Yeah! I wouldn't if I couldn't
SELECT news.Title, news.ID, news.Date, news.Time, news.By, news.Text, members.ID, members.Name, members.User, members.Mail FROM members, news Where news.By = members.ID AND news.ID NOT IN (SELECT TOP 15 news.ID FROM members, news WHERE news.By = members.ID ORDER By news.ID DESC) Order By news.ID DESC
och
SELECT top 15 news.Title, news.ID, news.Date, news.Time, news.By, news.Text, members.ID, members.Name, members.User, members.Mail FROM members, news Where news.By = members.ID Order By news.ID DESC
nyheter.asp funkade det fint på men inte på arkiv.asp ..
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] You have written a subquery that can return more than one field without using the EXISTS reserved word in the main query's FROM clause. Revise the SELECT statement of the subquery to request only one field.
/arkiv.asp, line 26
<%
Set RSConn = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT news.Title, news.ID, news.Date, news.Time, news.By, news.Text, members.ID, members.Name, members.User, members.Mail FROM members, news Where news.By = members.ID AND news.ID NOT IN (SELECT TOP 5 * FROM members, news WHERE news.By = members.ID ORDER By news.ID DESC) Order By news.ID DESC"
RSConn.Open SQL, Conn, 1, 2
Do Until RSConn.EOF
%>
Detta är rad 26
RSConn.Open SQL, Conn, 1, 2
------------------ O Yeah! I wouldn't if I couldn't