---
title: "Hur gör man ?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75202-hur-gör-man"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ragnared"
published: "2003-04-27T18:01:11.000Z"
updated: "2003-04-27T20:19:49.000Z"
replies: 7
views: 346
page: 1
pages: 1
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/75202-hur-gör-man"
---

# Hur gör man ?

## #1 — ragnared, 2003-04-27T18:01Z

Min fråga till er är hur man kan få 10 nyheter dom allra nyaste till att dela upp sig. Vad jag menar är att dom 5 senaste ska ligga med bild och rubrik och sedan ska det komma 5 till med bara rubriken. Hoppas det finns någon personer som förstår vad jag menar.

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

## #2 — Sebbe, 2003-04-27T18:06Z

Typ nåt sånt här?

```
strSQL = "SELECT * FROM nyheter ORDER BY datum DESC"
Set objRS = objConn.Execute(strSQL)
i = 0

Do Until objRS.EOF OR i = 5
  Response.Write(objRS("bild"))
  Response.Write(objRS("rubrik"))
  i = i + 1
  objRS.MoveNext
Loop
i = 0

Do Until objRS.EOF OR i = 5
  Response.Write(objRS("rubrik"))
  i = i + 1
  objRS.MoveNext
Loop
```

**/red** Btw, välkommen till **wF**!

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

## #3 — cyprys, 2003-04-27T18:06Z

Välkommen till wF ragnared! :bire 

Här kommer ett kodexempel på hur du kan göra.
Den utgår från att du redan skapat ett recordset med minst 10 poster.

```
<%
Dim i 
i = 1
do until rs.eof or i = 10

select case i
case 1, 2, 3, 4, 5
response.write("STORA NYHETER")
case 6, 7, 8, 9, 10
response.write("[1]små nyheter[/1]")
case else
response.write("resten")
end select

rs.movenext
loop
%>
```

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

## #4 — K@llen, 2003-04-27T18:11Z

Välkommen till wF

```
sql ="select top 10 * from nyheter order by id desc"
set rs = connect.execute(sql)

if rs.eof then
response.write "<p>inget hittades</p>"
else
arrRecords = rs.getrows()

for i = 0 to ubound(arrRecords, 2)

if i < 5 then

    ' skriv ut med bild

else

    ' skriv ut utan bild

end if

next

end if
```

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

## #5 — ragnared, 2003-04-27T19:09Z

Hur skaoar man recordset

Jag kan inte göra något sådant. Hur gör man ?

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

## #6 — Jesper T, 2003-04-27T19:31Z

Så här kanske:

```
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("/Din_databas.mdb"))
strSQL = "SELECT * FROM nyheter ORDER BY datum DESC"
Set objRS = objConn.Execute(strSQL)
i = 0

Do Until objRS.EOF OR i = 5
  Response.Write(objRS("bild"))
  Response.Write(objRS("rubrik"))
  i = i + 1
  objRS.MoveNext
Loop
i = 0

Do Until objRS.EOF OR i = 5
  Response.Write(objRS("rubrik"))
  i = i + 1  objRS.MoveNext
Loop

ObjRS.close : objConn.close
```

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

## #7 — ragnared, 2003-04-27T20:11Z

Om man vill att ett ord ska ha bara tex 60 tecken hur gör man då. Nästa längst ner i scriptet under ska den skriva ut pentry där vill jag att den ska bara skriva ut 60 tecken. Annars blir det för långt.

Det ser ut så här om ni inte hittar det:
\<% Response.Write(objRS("pentry"))%\>

 \<% i = i + 1
  objRS.MoveNext
Loop
i = 0
%\>

 \<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="585" height="17" id="AutoNumber1"\>

\<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("databaser/main.mdb"))
strSQL = "SELECT \* FROM nytt ORDER BY id DESC"
Set objRS = objConn.Execute(strSQL)
i = 0
%\>
\<% 
HowMany="400"
%\> 
\<%
Do Until objRS.EOF OR i = 5
%\>
    \<tr\>
      \<td width="585" height="10"\>\<font size="2" face="Verdana"\>

\<img SRC="bilder/\<%   Response.Write(objRS("bild"))%\>" VSPACE=0 BORDER=0 ALIGN="RIGHT" ALT=""\>
\<b\>\<%   Response.Write(objRS("titel"))%\>\</b\>
\<br\>
\<% Response.Write(objRS("pentry"))%\>

 \<% i = i + 1
  objRS.MoveNext
Loop
i = 0
%\>\</td\>
    \</tr\>

    \<tr\>
      \<td width="585" height="3"\>\</td\>
    \</tr\>
\</table\>\<br\>
\<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="585" height="17" id="AutoNumber1"\>
\<%
Do Until objRS.EOF OR i = 5 %\>

  
\<tr\>
       \<td width="585" height="10"\>\<font size="2" face="Verdana"\>\<% Response.Write(objRS("pdate"))%\>&nbsp;&nbsp;
       
       \<% Response.Write(objRS("titel"))
  i = i + 1 
objRS.MoveNext
Loop
%\>
       \</td\>
    \</tr\>
  \</table\>

\<%
ObjRS.close : objConn.close
%\>

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

## #8 — Sebbe, 2003-04-27T20:19Z

Byt ut 

```
<% Response.Write(objRS("pentry"))%>
```

 mot 

```
<%
If Len(objRS("pentry")) > 60 Then
  Response.Write(Left(objRS("pentry"), 60))
Else
  Response.Write(objRS("pentry"))
End If
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/75202-hur-gör-man