---
title: "BannerExchange"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/154313-bannerexchange/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Exploit"
published: "2006-11-28T19:12:46.000Z"
updated: "2006-11-28T21:42:50.000Z"
replies: 50
views: 1010
page: 2
pages: 3
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/154313-bannerexchange"
---

# BannerExchange

_Sida 2 av 3._

## #21 — Exploit, 2006-11-28T20:14Z

med denna du la upp?

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

## #22 — voigtann1, 2006-11-28T20:16Z

ja...

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

## #23 — Exploit, 2006-11-28T20:18Z

mm gjorde det nu o då försvann felmeddelnadet men varför i hela friden visar den inte nån banners fattar inte vad felet är.. hmmm

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

## #24 — Exploit, 2006-11-28T20:18Z

blir gråhårig på detta

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

## #25 — voigtann1, 2006-11-28T20:34Z

prova:

```
<!--

---------------------------------------------------------------------------
BANNEREXCHANGE v.1                                         [url]www.JoakimWeb.se[/url] 

Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte 
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
--------------------------------------------------------------------------

--><!--#include file="installn.inc" -->
<%
Dim Connect, user, SQL, RecSet, antal1, nummer
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("bex.mdb")

IF Request.Querystring("user") = "" then
user = 0
ELSE
user = Request.Querystring("user")
END IF

' Räkna antalet poster
SQL = "SELECT Count(*) From anvandare WHERE visningar > 0.5 AND Len(banner) <> 0 AND NOT id = " & user
Set RecSet = Connect.Execute(SQL)
antal1 = RecSet.Fields(0)
RecSet.Close
Set RecSet = nothing

' Slumpa fram ett id-nummer från 1 till högsta posten
IF antal1 <> 0 then
Dim slump
Randomize
slump = Int(Rnd * antal1)
slump = slump + 1

' Skapa tillfälliga id-sessioner
SQL = "SELECT * From anvandare WHERE visningar > 0.5 AND Len(banner) <> 0 AND NOT id = " & user
Set RecSet = Connect.Execute(SQL)
nummer = 1
Do until RecSet.EOF
Session(nummer) = RecSet("id")
nummer = nummer + 1
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = nothing
END IF

' Hämta den slumpade bannern
IF Session(slump) = "" then
SQL = "SELECT * From anvandare WHERE id = 0"
ELSE
SQL = "SELECT * From anvandare WHERE id =" & Session(slump)
END IF
Set RecSet = Connect.Execute(SQL)
Response.Write vbcrlf & "document.write('<table width=468 cellspace=0 cellpadding=0 border=0><tr><td>');"
IF RecSet.EOF then
Response.Write "document.write('<center><font face=verdana size=2>Inga banners kunde hittas...</font></center>');"
ELSE
Response.Write "document.write('<a href=" & sokvag & "ut.asp?user=" & user & "&id=" & RecSet("id") & " target=_blank>');"
Response.Write "document.write('<img  src=" & RecSet("banner") & " height=60 width=468 border=0></a>');"
RecSet.Close
SQL = "UPDATE anvandare SET anvanda = anvanda + 1 WHERE id=" & Session(slump)
Connect.Execute SQL
SQL = "UPDATE anvandare SET visningar = visningar + (-1) WHERE id=" & Session(slump)
Connect.Execute SQL
END IF
Response.Write "document.write('</td></tr>');"
IF NOT Request("text") = "nej" then
Response.Write "document.write('<tr><td><a href=" & url & " target=_blank>');"
Response.Write "document.write('<font face=verdana size=1><center>" & bex & " </center>');"
Response.Write "document.write('</font></a></td></tr>');"
END IF
Response.Write "document.write('</table>');"
IF slump <> 0 then
SQL = "UPDATE anvandare SET tjanade = tjanade + 0.5 WHERE id=" & user
Connect.Execute SQL
SQL = "UPDATE anvandare SET visningar = visningar + 0.5 WHERE id=" & user
Connect.Execute SQL
END IF
Connect.Close
Set Connect = nothing
%>
```

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

## #26 — Exploit, 2006-11-28T20:39Z

Så fort jag ändrar sökvägen till bex.mdb så blir det ett felmeddelande hmm
jag har ju banner scriptet i katalogen /bex men så ligger databasfilen i db i root för det är där jag endast har rättigheter men då kommer java felet upp

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

## #27 — Exploit, 2006-11-28T20:45Z

Denna sajt använder samma script
<http://www.moneymaker6.com/default.asp?part=bannerall>

men jag kan ju inte kolla hur den koden ser ut.. :-(

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

## #28 — voigtann1, 2006-11-28T20:55Z

du får nog felmeddlenade när det blir "update" funktionen... eftersom du inte har skrivrättigheter på rooten som du skriver...

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

## #29 — Exploit, 2006-11-28T20:57Z

finns det non lösning på detta?
Jag har enbart skrivrättigheter i db mappen o alla andra filer som ligger där funkar o även andra script med databasknytning funkar men inte detta

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

## #30 — voigtann1, 2006-11-28T20:59Z

ska kolla vidare på scripten..

fråga:
vi säger att din sida ligger:
c:\\webb\\\<här\>
ligger db mappen i webb eller på c:\\
c:\\db
eller
c:\\webb\\db\\

???

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

## #31 — Exploit, 2006-11-28T21:00Z

som du ser på min sajt så gick jag med i moneymakers6 bannerexchange o la in den koden jag fick o det funkar men frågan är vad som skiljer våra koder han använder ju samma script...

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

## #32 — voigtann1, 2006-11-28T21:01Z

saken är att jag tror du får error på din visa.asp då den inte kan köra en update och gör ett felmeddelande...

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

## #33 — Exploit, 2006-11-28T21:01Z

den ligger i webb\\db 
jag använder web10.se som server

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

## #34 — Exploit, 2006-11-28T21:02Z

/it-butiker.se/db/

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

## #35 — Exploit, 2006-11-28T21:03Z

och scriptet i 
/it-butiker.se/bex/

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

## #36 — voigtann1, 2006-11-28T21:06Z

det som jag ser är att dom har tagit bort:

> \<!--
> 
> \---------------------------------------------------------------------------
> BANNEREXCHANGE v.1                                         <https://www.JoakimWeb.se> 
> 
> Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
> applikationen fritt, under förutsättning att denna copyrighttext förblir
> intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte 
> använda det för kommersiella syften. Du får inte lägga ut en modifierad
> version av detta skript på ett sätt som gör att andra kan ladda ner det.
> Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
> \--------------------------------------------------------------------------
> 
> \--\>

i deras visa.asp...

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

## #37 — Exploit, 2006-11-28T21:08Z

mm o det är ju inte bra..

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

## #38 — voigtann1, 2006-11-28T21:16Z

plocka bort 

```
<!--

---------------------------------------------------------------------------
BANNEREXCHANGE v.1 [url]www.JoakimWeb.se[/url]

Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
--------------------------------------------------------------------------

-->
```

i visa.asp ... då fungera det..

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

## #39 — Exploit, 2006-11-28T21:20Z

Varför detta är ju sjukt ju..

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

## #40 — Exploit, 2006-11-28T21:20Z

men bara i visa.asp inte i dom andra filerna...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/154313-bannerexchange/page2  
Föregående sida: https://www.webforum.nu/amne/asp/154313-bannerexchange.md  
Nästa sida: https://www.webforum.nu/amne/asp/154313-bannerexchange/page3.md