BannerExchange

med denna du la upp?

ja...

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

blir gråhårig på detta

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
%>

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

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.. :-(

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

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

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\

???

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...

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...

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

/it-butiker.se/db/

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

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...

mm o det är ju inte bra..

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..

Varför detta är ju sjukt ju..

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