---
title: "ASP forum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12575-asp-forum/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nybörjare"
published: "2001-11-09T21:32:00.000Z"
updated: "2001-11-10T15:32:00.000Z"
replies: 22
views: 425
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12575-asp-forum"
---

# ASP forum

_Sida 2 av 2._

## #21 — @nders, 2001-11-10T10:18Z

Vad är Count?

```
Do until RecSet.EOF or Count
```

Du ändrar aldrig värdet Count, och att skriva som du gjort är samma sak som att skriva:

```
Do until RecSet.EOF or Count = true
```

Mvh,

Permalänk: https://www.webforum.nu/p/294252

## #22 — nybörjare, 2001-11-10T10:21Z

Tackar nu funkar det ;)

Bra att man har några gurrus man kan fråga ibland...

Permalänk: https://www.webforum.nu/p/294253

## #23 — nybörjare, 2001-11-10T15:32Z

Tjenare nu är ja här igen :)

Med den koden som jag använder vill ja att svaren på frågerna inte vissas på den sidan men nu gör de inte det och någon som kan se varför och så synd inget nu heller...

Och om ni skulle ha tid över kanske ni kan se vad som gör att det blir jätte melan rum mellan inläggen typ så här:

Ett inlägg

Ett annat inlägg

när jag vill ha det så här:

Ett inlägg
Ett annat inlägg

```
<%

' Hur många inlägg som ska vissas
count = 100

'Databasen
file = Server.MapPath("databasen.mdb")

'Öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

'Öppnar tabellen forum
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL =  "SELECT * FROM forum ORDER BY ID DESC"

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

' Fixar med if satser
If RecSet("reid") = 0 Then
id = RecSet("id")

 
' Koden som startar loopen
Do until RecSet.EOF or Count = true

' Hur många teckan rubriken ska vissa
rubrik = left(Recset("rubrik"),10) & "..." 

' Hur många teckan Recordsetet namn ska vissa
namn = left(Recset("namn"),10) & "..." 

%>
    </font></p>
<table width="80%" border="0" cellspacing="0" cellpadding="0" height="0">
<tr> 
<td width="19%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<b><a href="post.asp?count=1&id=<%=Recset("id")%>"><%=rubrik%></a></b></font></td>
<td width="24%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
<%IF (Recset("Namn")) = "4545" THEN 
Response.write "<b></b>" %>
<%Else%>
<% Response.write(Server.HTMLEncode(Recset("Namn"))) %>
<font color="#000000"> 
<%End IF%>
</font></font></td>
<td width="40%"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=Recset("datum")%> 
<%  IF Recset("datum") > datum - 1 THEN %>
- <font color="red"> nytt </font> 
<%  END IF                             %>
        </font></td>
      <td width="11%"> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=Recset("last")%></font></td>
      <td width="6%"> 
        <div align="center"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=Recset("svar")%>&nbsp;</font><font face="Verdana, Arial, Helvetica, sans-serif" size="-2"></font></div>
      </td>
    </tr>
  </table>
  <% 
RecSet.MoveNext 
Loop 
RecSet.Close 
Set RecSet = Nothing 
%>
<%End IF%>
```

Permalänk: https://www.webforum.nu/p/294254

---

Tråden på webben: https://www.webforum.nu/amne/asp/12575-asp-forum/page2  
Föregående sida: https://www.webforum.nu/amne/asp/12575-asp-forum.md