---
title: "AdRotator"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/105332-adrotator"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2004-06-09T12:41:30.000Z"
updated: "2004-06-10T07:01:39.000Z"
replies: 5
views: 326
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/105332-adrotator"
---

# AdRotator

## #1 — WebbisNet, 2004-06-09T12:41Z

Hur bär man sig åt för att få klickstatisik i filen ads.asp

```
<% 
URLEN = request.querystring("url") 
select case URLEN 
case "http://www.webforum.nu" 
Application("www.webforum.nu") = Application("www.webforum.nu") + 1 
case "http://www.figure-art.nu" 
Application("http://www.figure-art.nu") = Application("http://www.figure-art.nu") + 1 
case "http://www.fuzzydizzie.com" 
Application("http://www.fuzzydizzie.com") = Application("http://www.fuzzydizzie.com") + 1 
End select 
response.redirect URLEN 
%>
```

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

## #2 — DavidB, 2004-06-09T18:01Z

har du en databas eller nånting att spara klicken i?

som din kod ser ut nu så nollställs statistiken så fort din applikation startas om.

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

## #3 — WebbisNet, 2004-06-09T20:59Z

Nåt förslag på hur man sparar ner infon och hur man sköter redirecten, har inte hittat nåt om det på nätet

Har skapat tabellen och det ser ut som:

```
<%
Dim objConn, addStats 
Dim varSite
Dim varClicks

varSite= 
varClicks

	SET objConn = connect()
	addStats = "INSERT INTO statistiktabellen"
	addStats = addNews & "(site,clicks) "
	addStats = addNews & "VALUES('"& varSite&"',#"& varClicks&"#)"

	response.write addStats 
	'response.end
	objConn.Execute(addStats )
%>
```

Nu är bara frågan vilka värden man ska ange

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

## #4 — Fredde Mannen, 2004-06-09T21:13Z

```
 
<%
URLEN = request.querystring("url") 

if(URLEN = "") Then 
    Response.Write("Error: url saknas!")
Else
    SQL = "UPDATE tbl SET col=col +1 WHERE url='" & URLEN & "'"
    ObjConn.ExeCute(SQL)
    response.redirect(URLEN)
End if
%>
```

förutsätter att sidornas url finns i databasen! :)

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

## #5 — DavidB, 2004-06-09T22:03Z

Det borde se ut något såhär, förutsätter att du har en kolumn Id också i databastabellen med ett unikt id för varje rad.

```
Dim url, SQLStmtRead, SQLStmtUpdate, Connection, RS
url = Request.QueryString("url")

SQLStmt = "SELECT Id From statistiktabellen Where site = " & url & ""

Set Connection = CreateObject("ADODB.Connection")
Connection.Open strConn

Set RS = Connection.Execute(SQLStmtRead)
SQLStmtUpdate = "UPDATE statistiktabellen SET clicks = clicks+1 Where Id = " & RS("id") & ""

If NOT RS.EOF Then
	Connection.Execute(SQLStmtUpdate)),,128
End If
RS.Close
Set RS = Nothing
Connection.Close
Set Connection = Nothing

Response.Redirect(url)
```

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

## #6 — WebbisNet, 2004-06-10T07:01Z

jag löste det med

```

	SET objConn = connect()
	addStats = "INSERT INTO statistiktabellen"
	addStats = addStats & "([site],[clicks]) "
	addStats = addStats & "VALUES('"& URLEN &"',1)"
	response.write addStats
	'response.end
	objConn.Execute(addStats)

Response.Redirect(URLEN)
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/105332-adrotator