---
title: "Förbättra dessa loppar?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/113387-förbättra-dessa-loppar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2004-10-12T08:07:00.000Z"
updated: "2004-10-12T08:25:40.000Z"
replies: 2
views: 233
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/113387-förbättra-dessa-loppar"
---

# Förbättra dessa loppar?

## #1 — Bosse168, 2004-10-12T08:07Z

Denna koden funkar men tycker den verkar klumpig.
Några förslag på hur man kan förbättra den?

```
'###################### Plockar ut dom snyggaste Tjejerna ###########

Set Rs2 = Connect.Execute("SELECT snygg_snitt,username,kon FROM members WHERE bild_godkand=1 AND kon=0 AND snygg_visa=1 AND bild_datum < SUBDATE(current_date,INTERVAL 4 DAY) Order By snygg_snitt Desc LIMIT 10")

'####Topplist koppling#####

Do Until Rs2.EOF

Connect.Execute("INSERT INTO top_snygg (vecka, datum, snitt, namn, sex) VALUES('"& week &"',Now(),'"& Rs2(0) &"', '"& Rs2(1) &"', '"& Rs2(2) &"')"),,128

Rs2.MoveNext
Loop
Rs2.Close : Set Rs2 = Nothing

'############### Plockar ut dom snyggaste Killarna ##############

Set Rs2 = Connect.Execute("SELECT snygg_snitt,username,kon FROM members WHERE bild_godkand=1 AND kon=1 AND snygg_visa=1 AND bild_datum < SUBDATE(current_date,INTERVAL 4 DAY) Order By snygg_snitt Desc LIMIT 10")

Do Until Rs2.EOF

Connect.Execute("INSERT INTO top_snygg (vecka, datum, snitt, namn, sex) VALUES('"& week &"',Now(),'"& Rs2(0) &"', '"& Rs2(1) &"', '"& Rs2(2) &"')"),,128

Rs2.MoveNext
Loop
Rs2.Close : Set Rs2 = Nothing

'######################  Slut Snyggaste  #####################
```

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

## #2 — nitro2k01, 2004-10-12T08:19Z

Re: Förbättra dessa loppar?

```
' #### Plockar ut dom snyggaste Tjejerna
Set Rs2 = Connect.Execute("SELECT snygg_snitt,username,kon FROM members WHERE bild_godkand=1 AND kon=0 AND snygg_visa=1 AND bild_datum < SUBDATE(current_date,INTERVAL 4 DAY) Order By snygg_snitt Desc LIMIT 10")

'#### Topplistekoppling
Do Until Rs2.EOF

    Connect.Execute("INSERT INTO top_snygg (vecka, datum, snitt, namn, sex) VALUES('"& week &"',Now(),'"& Rs2(0) &"', '"& Rs2(1) &"', '"& Rs2(2) &"')"),,128
    Rs2.MoveNext
Loop

Rs2.Close

'#### Plockar ut dom snyggaste Killarna
Set Rs2 = Connect.Execute("SELECT snygg_snitt,username,kon FROM members WHERE bild_godkand=1 AND kon=1 AND snygg_visa=1 AND bild_datum < SUBDATE(current_date,INTERVAL 4 DAY) Order By snygg_snitt Desc LIMIT 10")

'#### Topplistekoppling
Do Until Rs2.EOF
    Connect.Execute("INSERT INTO top_snygg (vecka, datum, snitt, namn, sex) VALUES('"& week &"',Now(),'"& Rs2(0) &"', '"& Rs2(1) &"', '"& Rs2(2) &"')"),,128
    Rs2.MoveNext
Loop
Rs2.Close : Set Rs2 = Nothing

'#### Slut Snyggaste
```

Koden verkar ganska vettig. Det enda jag kände spontant att man kan plocka bort är den första Set Rs2 = Nothing
Däremot har jag ändrat lite på intendering och upplägg av koden så att den blir mer lättläslig och snyggare. (Men jag har däremot inte ändrat kodens funktion på något sätt förutom den första Set Rs2 = Nothing som jag sa.)

Kommer det här från snyggast.se? :)

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

## #3 — Bosse168, 2004-10-12T08:25Z

Nej <http://www.skene.nu>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/113387-förbättra-dessa-loppar