---
title: "Skriva ut Radnummer."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/106719-skriva-ut-radnummer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2004-07-04T14:35:18.000Z"
updated: "2004-07-05T19:01:07.000Z"
replies: 11
views: 364
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/106719-skriva-ut-radnummer"
---

# Skriva ut Radnummer.

## #1 — MickeA.com, 2004-07-04T14:35Z

Har sökt lite här efter en funktion för att skriva ut radnummer innan själv raden i en text:

```
1. <html>
2. <head>
3. </head>
4. Osv.
```

Hittade b.l.a [den här tråden](http://www.webforum.nu/showthread.php?s=&postid=695063#post695063) men får felmeddelande:

```
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
Dim arrText() = split(StrText(txtPasted), chr(10))
```

Det som ska skrivas ut kommer från en db och det är **en** kolumn det rör sig om.

Tack!

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

## #2 — Sebbe, 2004-07-04T17:18Z

Är det såhär du menar, kanske?

```
arrText = Split(objRS("kolumn"), vbCrLf)

For i = 0 To UBound(arrText)
  Response.Write(i + 1 & ". " & arrText(i) & "<br>")
Next
```

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

## #3 — MickeA.com, 2004-07-04T21:19Z

En bra bit påvg, men inte riktigt.
Det blir bara en etta (1:a) på den översta raden, sen inget mer.

Det beror förmodligen på att det bara är en post som ska skrivas ut.

Denna post består av ett antal rader och det är på dessa rader jag vill ha radnummer.

Det går säkert att utgå från ditt script ovan, Sebbe, men jag vet inte riktigt hur jag ska gå vidare.

Tack!

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

## #4 — cyprys, 2004-07-04T21:30Z

Koden ovan ska stämma. 
Skicka den text som skall skrivas ut samt resultatet du får.

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

## #5 — MickeA.com, 2004-07-04T21:35Z

Skumt, jag bifgoar bild med resultatet.
Såhär "Kör" jag koden:

```
<td class="pShow">
	<%
	arrText = Split(Fcode(Server.HTMLEncode(txtPasted)), vbCrLf)
	
	For i = 0 To UBound(arrText)
		 Response.Write(i + 1 & ". " & arrText(i) & "<br>")
	Next
	%>
	</td>
```

Kan det vara så att Server.HTMLEncode() ställer till det?

Bilagor:

- [wf.jpg](https://www.webforum.nu/a/3863.jpg)

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

## #6 — cyprys, 2004-07-04T21:47Z

```
<td class="pShow">
	<%
	arrText = Split(Fcode(txtPasted), chr(10))
	
	For i = 0 To UBound(arrText)
		 Response.Write(i + 1 & ". " & Server.HTMLEncode(arrText(i)) & "<br>")
	Next
	%>
	</td>
```

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

## #7 — MickeA.com, 2004-07-05T11:06Z

Ska prova när jag kommer hem, tack så länge!

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

## #8 — MickeA.com, 2004-07-05T17:10Z

Nu börjar jag få ordning på det här, tack!.
En sista fråga bara.

Jag skulle vilja ha varannan rad med olika bakgrundsfärg.

Själv koden för att bestämma färg har jag, problemet är hur jag ska kunna få annan färg på bakgrunden.

Provade att lägga allt i en tabell, där varje rad var en ny \<tr\>, sen satte jag färg på den.

Men du slutade istället \<pre\> taggen att funka helt.

Så, finns det en lösning som funkar?

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

## #9 — cyprys, 2004-07-05T17:35Z

```
<table>
<%
arrText = Split(Fcode(txtPasted), chr(10))
	
For i = 0 To UBound(arrText)
   if i mod 2 = 0 then bgColor = "#FFFFFF" else bgColor = "#EEEEEE"
   Response.Write("<tr bgcolor='"& bgColor &"'><td class='pShow'>"  & i + 1 & ". " & Server.HTMLEncode(arrText(i)) & "</td></tr>")
Next
%>
</table>
```

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

## #10 — MickeA.com, 2004-07-05T17:42Z

Hmm, det var nästan sådär jag redan har gjort.
Problemet blir då att \<pre\>\</pre\> taggarna slutar fungera helt och hållet, vilket innebär att resultatet ser för hemskt ut.

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

## #11 — MickeA.com, 2004-07-05T18:29Z

Löste det själv genom \<pre style="margin: 0px;"\>Texten...\</pre\> på varje rad.

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

## #12 — MickeA.com, 2004-07-05T19:01Z

Nu har jag ett nytt problem, det här är min kod:

```
arrText = Split(txtPasted, chr(10))
	
	For i = 0 To UBound(arrText)
		if i mod 2 = 0 then bgColor = "#E9E9E9" else bgColor = "#F5F5F5"
		
		Response.Write("<tr bgcolor=""" & bgColor & """>" & VbCrLf & VbTab & VbTab &_
								"<td class=""fText"" style=""color: #804040;"">"  & i + 1 & ".</td>" & VbCrLf &_
								"<td class=""fText"" style=""padding-left: 10px; width: 100%; color: #600000;"">" & VbCrLf & VbCrLf &_
								"<pre style=""margin: 0px;"">" & FCode(arrText(i)) & "</pre>" & VbCrLf & VbCrLf &_
								"</td>" & VbCrLf &_
								"</tr>" & VbCrLf & VbCrLf)
		Next
```

Problemet är att ALL text, blir samma färg. Färgen som sätts för den andra td'n, den färgen blir överallt på all text.

Det är ju lite konstigt.
Ser ni ngt fel i koden?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/106719-skriva-ut-radnummer