<%
dim i
sqlnews = "SELECT TOP 8 * FROM tbl_nyheter ORDER BY Datestamp DESC"
set RSnewsmore = strConnString.Execute(sqlnews)
x=0
Do Until RSnewsmore.EOF
if x = 0 then response.write "Nyheter"
if x = 3 then response.write "Fler Nyheter"
response.write RSnewsmore("lasa")%>
x=x--1
RSnewsmore.MOVENEXT
LOOP
if x<=3 then response.write "Fler Nyhter<br>Uppgift saknas."
%>
Frågan#1
Jag snurrar till det nu, någon som kanske kan hjälpa mig lite. Har sökt i formet, men får inte till det.
skriver ut mina tre första med
sqlnews = "SELECT TOP 8 * FROM tbl_nyheter ORDER BY Datestamp DESC"
RSnews.Open sqlnews, strConnString, 3, 3
%>
<%
Do until RSnews.EOF OR x=3
%>
skriver ut 4-8 med
sqlnews = "SELECT TOP 8 * FROM tbl_nyheter ORDER BY Datestamp DESC"
RSnewsmore.Open sqlnews, strConnString, 3, 3
%>
<%
x=4
RSnewsmore.MOVE 3
IF x>3 THEN
Do Until RSnewsmore.EOF OR X=9
%>
<%=RSnewsmore("lasa")%>
<%
x=x+1
RSnewsmore.MOVENEXT
LOOP
Else
%>
<tr><td colspan='2' class='infotext'>Uppgift saknas!</td></tr>
<%
End If
Hur i hela fridens namn får jag ut så att jag kan ha en öppning och sortera
Nyheter
3 st
Fler nyheter
5 st
Om databasen endast innehåller mindre än 4 så skall "Uppgift saknas!" skrivas ut. (under fler nyheter)
Det fungerar så långt att allt visas som det skall om det finns 4 rader i databasen, men är det 3 så visas ej Uppgift saknas. (under fler nyheter)
Tack på förhand.