---
title: "optimering av denna kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/57852-optimering-av-denna-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-11-03T13:35:00.000Z"
updated: "2002-11-03T20:43:26.000Z"
replies: 6
views: 241
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/57852-optimering-av-denna-kod"
---

# optimering av denna kod

## #1 — ampy, 2002-11-03T13:35Z

Hur skulle man kunna optimera denna kod så att den blir ännu mer snabbladdad?

```
			SQL = "SELECT * FROM members order by minonline desc"
			Set RecSet = Connect.Execute(SQL)

	
			If not RecSet.EOF then
			strDatat = RecSet.GetRows()
			End if

			Set RecSet = nothing

			IF ISArray(strDatat) THEN

			FOR i = 0 to 4

			response.write "<font color='#006600'><b>"&i+1&".</b></font> "

			
			If strDatat(26,i) = "polis" Then
	
			response.write "<img src='bilder/idpolis.gif'>"

			ElseIf strDatat(26,i) = "pojke" Then

			response.write "<img src='bilder/idpojke.gif'>"

			Else

			response.write "<img src='bilder/idflicka.gif'>"

			End If

			response.write " <a title='"&strDatat(1,i)&" bor i "&strDatat(5,i)&".' href='krypin.asp?id="&strDatat(0,i)&"'>" 

			username = strDatat(1,i)
			If Len(username) > 7 then
			strusername = Left(username,7)
			response.write ""&strusername&"."
			else
			response.write username
			End If
			
			response.write "</a> <font color='#666666'>("&strDatat(22,i)&")</font>"

			response.write "<br>"

			Next

			
		
			end if
```

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

## #2 — trexter.com, 2002-11-03T13:37Z

ser bra ut

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

## #3 — ampy, 2002-11-03T13:38Z

Kom på vad jag kan göra, vid SQL-satsen lägger jag till de kolumner jag vill hämta ifrån istället för alla.

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

## #4 — Palleman, 2002-11-03T14:40Z

En smidig sak som man kan göra om man är **100% säker på att det finns något att hämta från databasen** är att köra detta anrop:

```
[RED]strDatat = Connect.Execute("SELECT fld1, fld2, fld3, fld4 FROM members ORDER BY minonline DESC").GetRows()[/RED]
```

Då behöver man inte skapa ett recordset över huvudtaget utan skapar arrayen direkt, vilket sparar tid och resurser. :)

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

## #5 — PatrikB, 2002-11-03T20:23Z

Palleman:
Den ska man vara väldigt säker på att man alltid har data innan man kör.

En liten optimering som kan göras är att ta bort if-satsen polis, pojke eller annat till Select Case:

```
	Select Case LCase(strDatat(26,i))
		Case "polis"
	
			response.write "<img src='bilder/idpolis.gif'>"

		Case "pojke"

			response.write "<img src='bilder/idpojke.gif'>"

		Case Else

			response.write "<img src='bilder/idflicka.gif'>"

	End Select
```

cya,
PatrikB

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

## #6 — solbulle, 2002-11-03T20:40Z

```
Select Case LCase(strDatat(26,i))
		Case "polis","pojke"
	
			response.write "<img src='bilder/id" & LCase(strDatat(26,i)) & ".gif'>"

		Case Else

			response.write "<img src='bilder/idflicka.gif'>"

	End Select
```

Eller om det ALLTID står "flicka" i db:n om det inte är polis eller pojke, för då räcker det ju med:

```
response.write "<img src='bilder/id" & LCase(strDatat(26,i)) & ".gif'>"
```

Eller kanske med en liten koll:

```
If LCase(strDatat(26,i)) <> "" then
response.write "<img src='bilder/id" & LCase(strDatat(26,i)) & ".gif'>"
End If
```

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

## #7 — solbulle, 2002-11-03T20:43Z

Samt detta block:

```
username = strDatat(1,i)
			If Len(username) > 7 then
			strusername = Left(username,7)
			response.write ""&strusername&"."
			else
			response.write username
			End If
```

Kan väl lika gärna ersättas med:

```
response.write Left(Len(strDatat(1,i)),7)
```

...lite osäker iofs...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/57852-optimering-av-denna-kod