---
title: "BannerExchange"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/154313-bannerexchange"
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: 1
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 1 av 3._

## #1 — Exploit, 2006-11-28T19:12Z

Nån som har testat BannerExchange scriptet från <https://www.joakimweb.se> ??

Jag får det inte att funka!! o jag vill inte lägga upp alla sidor/kod här för att låta nån felsöka det...

Problemet är den att får ej nån support från sajten själv utan får leta i olika forum runt om för att hitta nån mer som har testat scriptet.

Problemet:
Den kodsnutt som skickas ut till den som har reggat sig funkar inte
det visas inget alls när man lägger in koden på sidan.

//Jocke

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

## #2 — voigtann1, 2006-11-28T19:13Z

kod? felmeddelande?

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

## #3 — Exploit, 2006-11-28T19:15Z

problemet är den att jag inte får nått felmeddelande utan det funkar helt enkelt inte
har testa o lagt upp det på min sajt o gjort en test regg o sedan lägger jag upp den kod som behövs för att visa dom olika banners fast det visas inget alls...

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

## #4 — Exploit, 2006-11-28T19:17Z

allt annat verkar att funka registreringen , inloggning , mailutskick till den som har reggat sig men den kodsnutt som står i mailet funkar inte

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

## #5 — voigtann1, 2006-11-28T19:17Z

vilken sida är problemet? \*.asp ..

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

## #6 — Exploit, 2006-11-28T19:18Z

visa.asp

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

## #7 — Exploit, 2006-11-28T19:18Z

om du menar det?

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

## #8 — voigtann1, 2006-11-28T19:20Z

jag har laddat ner scriptet och provade den.. får fel på spara.asp:
Set jmail = Server.CreateObject("JMail.Message")

har du JMail på servern?

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

## #9 — voigtann1, 2006-11-28T19:23Z

installn.inc

innehåller lite variabler du måste ändra till din egna domän...

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

## #10 — Exploit, 2006-11-28T19:35Z

Jag har fyllt i allt i installn.inc
o jmail finns på servern. o det verkar ju funka för mailet skickas ut till den angivna mail adressen i registreringen

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

## #11 — Exploit, 2006-11-28T19:48Z

Det felmeddelande jag får på hemsidan är det här men jag hittar inte vad felet är?

Rad 5
Tecken 16
Fel ´;´ förväntas
kod 0
url <http://www.it-butiker.se>

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

## #12 — voigtann1, 2006-11-28T19:51Z

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

\[Microsoft\]\[ODBC Microsoft Access Driver\]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x18c Thread 0xbc8 DBC 0x9a7b224 Jet'.

/bex/kontroll.asp, line 16 

när jag försöker logga in...

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

## #13 — voigtann1, 2006-11-28T20:00Z

Ditt felmeddelande har med javascript att göra :)

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

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

jo just det la upp allt igen utan att ändra sökvägen till db nu har jag gjort det.. :-)

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

## #15 — voigtann1, 2006-11-28T20:02Z

allt fungera... förutom javascriptet nu :D

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

## #16 — Exploit, 2006-11-28T20:04Z

så här ser kodsnutten ut som man ska impletera på respektive sajt

```
<script language="javascript" src="http://www.it-butiker.se/bex/visa.asp?user=35"></script>
```

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

## #17 — voigtann1, 2006-11-28T20:07Z

problem solved it seems...

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

## #18 — voigtann1, 2006-11-28T20:09Z

```
<!--

---------------------------------------------------------------------------
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 "document.write('<table width=468 cellspace=0 cellpadding=0 border=0><tr><td>');" & vbcrlf
IF RecSet.EOF then
Response.Write "document.write('<center><font face=verdana size=2>Inga banners kunde hittas...</font></center>');" & vbcrlf
ELSE
Response.Write "document.write('<a href=" & sokvag & "ut.asp?user=" & user & "&id=" & RecSet("id") & " target=_blank>');" & vbcrlf
Response.Write "document.write('<img  src=" & RecSet("banner") & " height=60 width=468 border=0></a>');" & vbcrlf
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>');" & vbcrlf
IF NOT Request("text") = "nej" then
Response.Write "document.write('<tr><td><a href=" & url & " target=_blank>');" & vbcrlf
Response.Write "document.write('<font face=verdana size=1><center>" & bex & " </center>');" & vbcrlf
Response.Write "document.write('</font></a></td></tr>');" & vbcrlf
END IF
Response.Write "document.write('</table>');" & vbcrlf
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
%>
```

... prova ersätt  visa.asp

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

## #19 — Exploit, 2006-11-28T20:13Z

?? nu hänger jag inte med

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

## #20 — voigtann1, 2006-11-28T20:14Z

menade visa.asp :D

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

---

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