---
title: "Skala ned till minimalistiskt format"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/104394-skala-ned-till-minimalistiskt-format"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "medialabs"
published: "2004-05-26T15:45:26.000Z"
updated: "2004-05-26T15:45:26.000Z"
replies: 0
views: 202
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/104394-skala-ned-till-minimalistiskt-format"
---

# Skala ned till minimalistiskt format

## #1 — medialabs, 2004-05-26T15:45Z

hej!

Har detta script i en inlude-fil på min webbplats. Men jag har en känsla att det går att förbättra och skala ned koden så mycket som det bara är möjligt. 

Det enda jag vill att scriptet ska göra egentligen är att slumpa fram en enda banner ur databasen och sedan presentera den. Inget annat.

Hoppas att ni kan skala ned koden mer än vad jag kunde ;)

```
	<%
	
	Set ConnADS = Server.CreateObject("Adodb.Connection")
	ConnADS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:\home\sys\banner.mdb"
	Set RecSetADS=ConnADS.Execute("Select * From banner Order By rotator")%>

	<%If RecSetADS.EOF Then%>
		Inga annonser inlagda!
	<%Else
		x = 0
		Antal = 1
		Do Until RecSetADS.EOF Or x=Antal%>
		<a href="/public/ads.asp?RefID=<%=RecSetADS("id")%>" target="_blank"><img src="<%=RecSetADS("banner")%>" border="0" width="88" height="31" alt="annonser"></a>
	
	<%
	ConnADS.Execute("Update banner Set rotator=rotator+1 Where id = " & RecSetADS("id"))
	x=x+1
	RecSetADS.MoveNext
	Loop
	End If

	RecSetADS.Close
	ConnADS.Close
	%>
	</div>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/104394-skala-ned-till-minimalistiskt-format