BannerExchange

kod? felmeddelande?

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

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

vilken sida är problemet? *.asp ..

visa.asp

om du menar det?

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?

installn.inc

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

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

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

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

Ditt felmeddelande har med javascript att göra :)

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

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

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>

problem solved it seems...

<!--

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

?? nu hänger jag inte med

menade visa.asp :D