Bannerfunktion

<%
Dim vis, Rs, DBPath, Ialt, sql, Record, RandNum, i
Function Show()
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
Record.MoveNext
next
Response.Write "<a href='http://" & Record("http") & "'><img src='" & Record("banner") & "' alt='" & Record("info") & "' border = '0' class='ramme'></a>"
end function

Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("banner.mdb")
Rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
Sql = "Select count(*) as Found from Bannere"
Set Record = Rs.Execute(Sql)

Ialt = Record("found")

Sql = "Select * from Bannere"
Set Record = Rs.Execute(Sql)
%>
<p align="center"><% Response.Write show() %></p>

//>Rune

ja okay okay..... &:-D

ikke helt ment på den måde &:-D ikke en færdig funktion jeg mente, dette var mere ment som en forklaring på hvordan jeg gjorde det &:-D, men hvis du kunne give et par ord med på vejen om det du har skrevet så jeg kunne bruge det i mit "projekt" ville det være rart

Hej, kunne jo også lave et system, som så tæller hvor mange gange, der er klikket på det pågælende banner...

Hvis der var noget, ka jeg hurtigt hjælpe dig...

problemet er ikke at lave det, det skal jeg nok &:-D, men at få lidt hjælp til hvordan jeg får den til at registrere de ting med eks. klik, fremvisninger og procent.

jeg ønsker ikke et færdigt produkt, men noget vejledning til hvordan jeg gør det &:-D

håber du vil hjælpe &:-D

Det vil jeg da gerne...

Har du tid nu, eller hvordan ?

jeps, det har jeg &:-D

Okay...

Først ska vi ha lavet en forbindelse til db'n...

Det lave vi sådan her...

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner.mdb")
If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM banner WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3

Alt det her, hvad jeg skriver, skal stå ovenover:
<%
Dim vis, Rs, DBPath, Ialt, sql, Record, RandNum, i
Function Show()
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
Record.MoveNext
next
Response.Write "<a href='http://" & Record("http") & "'><img src='" & Record("banner") & "' alt='" & Record("info") & "' border = '0' class='ramme'></a>"
end function

Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("banner.mdb")
Rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
Sql = "Select count(*) as Found from Bannere"
Set Record = Rs.Execute(Sql)

Ialt = Record("found")

Sql = "Select * from Bannere"
Set Record = Rs.Execute(Sql)
%>

og i banner.mdb (db) skal du oprette en ny kolonne i bannere...

Den skal hedde klik eller hits

Er du der ?

ok, det ser jo meget lovende ud, men kan jeg lige få dig til at gøre en lille ting til for mig &:-D, angående din kode, så lige mærke op, hvad den gør hvor, så jeg selv ved hvad den gør, ellers så er jeg lige så fortabt som før &:-D

må lige henter smøger, er tilbage om 2 minuter, da det nok ikke går uden &:-D

Tja, okai...
Her laver vi forbindelsen til db'n:

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner.mdb") <- Dette er db navnet
If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM bannere WHERE (ID = " & Request.QueryString("id") & ")" <- Dette bestemmer hvilket ID
    rs.Open strSQL, myConn, 1, 3 <- Dette udfører forbindelsen

jeps, den kan jeg forstå, men kan ikke forstå hvorfor du bruger den med denne:


(ID = " & Request.QueryString("id") & ")" , det vel er den der skal includes på siden ? eller er jeg helt galt på den ?

Nej nej, du finder ud af det om lidt...

Ska vi gå vidre...

ok, jeg er venter med spm... jeg er klar &:-D du skal nok få lidt ekstra for din slid &:-D

Okai, så skal vi ha gjort det sådan, at når man trykker på banneret, registrerer databasen det...

Det gøres sådan:

    If Not (rs.BOF Or rs.EOF) Then
        rs("klik") = rs("klik") + 1

Så, indtil videre ser vores ASP kode sådan ud:
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner.mdb")
If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM bannere WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("klik") = rs("klik") + 1

jeps, så langt så godt &:-D

Okai...

Så skal databasen updateres og sendes til selve banner-adr.:
        strURL = rs("URL")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If

Nu har vi så hele forløbet...
ASP koden ser så sådan ud:
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner.mdb")
If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM bannere WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("klik") = rs("klik") + 1
      strURL = rs("URL")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If
%>

ahhhh. nu forstår jeg det... den kode du kreerede der, er en side, man sendes til, når man klikker på benneret, er jeg helt galt på den ?

Ja, nemlig...

Hvad hedder den fil, som alt dette foregår i ?

jeg ville kalde den banner.asp...

Banner.asp ser nogenlunde sådan du:
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner.mdb")
If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM bannere WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("klik") = rs("klik") + 1
      strURL = rs("URL")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If
%>
<%
Dim vis, Rs, DBPath, Ialt, sql, Record, RandNum, i
Function Show()
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
Record.MoveNext
next
Response.Write "<a href='http://" & Record("http") & "'><img src='" & Record("banner") & "' alt='" & Record("info") & "' border = '0' class='ramme'></a>"
end function

Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("banner.mdb")
Rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
Sql = "Select count(*) as Found from Bannere"
Set Record = Rs.Execute(Sql)

Ialt = Record("found")

Sql = "Select * from Bannere"
Set Record = Rs.Execute(Sql)
%>
<p align="center"><% Response.Write show() %></p>

det er den blevet døbt ja &:-D

Nå, men så er der bar et problem mere....
Response.Write "<a href='http://" & Record("http") & "'><img src='" & Record("banner") & "' alt='" & Record("info") & "' border = '0' class='ramme'></a>"

Skal ændres til
Response.Write "<a href='banner.asp?id=" & Record("id") & "'><img src='" & Record("banner") & "' alt='" & Record("info") & "' border = '0' class='ramme'></a>"

'banner.asp?id=" & Record("id") & "

Dette sender brugeren hen til det stykke ASP kode, der registrerer klikket...

ok, så vil jeg prøve at nørkle lidt videre med dette. sætter lige lidt mere af til dig, og takker for din hjælp og din tålmodighed.

Og har du databasen ?

Den skal indeholde disse kolonner i tabelen Bannere:
ID  URL  banner  info  klik

Jeg skal også bede dig ligge et svar &:-D

ID - Autonummernering

url - adr til webstedet

banner - adr til banneret

info - den tekst der vises i alt=""

klik - Det skal bare være et tal, Den ændres automatisk

Okai...

Her er det så, hvis du har flere problemmer, så er mit ICQ: 150953273

det vil jeg benytte mig af &:-D takker for din grundige og tålmodige hjælp &:-D

Det var så lidt...

Takker for alle pointene...

Og igen, hvis der er problemer, så bare skriv til min icq

Du ka se et ekspempel af systemet her, der dog er et downloadsystem, med samme funktion...

http://www.friserverplads.dk/cyberkox/Download

Go weekend...