Avatar billede peterpeter Seniormester
09. februar 2004 - 15:13 Der er 5 kommentarer og
1 løsning

Bannerreklamen åbner IKKE i nyt vindue

Hej alle

Jeg har ledt efter et godt bannerstyringssytem og nu har jeg endelig fundet et godt et. Mine ønsker var:
- At de forskellige reklamer bliver vist alle sammen i forskellig rækkefølge.
- At man kan se hvormange gange en reklame er blevet vist.
- At man kan se hvormange  gange der er blevet klikket på reklamen.

Super Duper - MEN, der er kun et stort problem.

Når der trykkes på "banneret", åbner den ny side ikke i et nyt vindue, men inde i selve reklamen.....

Hvordan ændrer jeg dette ????

Koden til indsættelse af banneret er:

<iframe

src="URL_OF_IKON/adv.asp"

width=468

height=60

marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0

scrolling=no></iframe>

Scriptet downloades her:
http://www.dotnetindex.com/read.asp?articleID=38

På forhånd tak for hjælpen....

PS: Jeg har jo prøvet, om jeg kan fedte target="_blank" kommandoen ind, men hvor henne skal jeg gøre det???
Avatar billede icedox Nybegynder
09. februar 2004 - 15:18 #1
target="_blank" kommer vel ind i adv.asp !
Avatar billede dumbledore Nybegynder
09. februar 2004 - 15:19 #2
det skal du gøre i selve adv.asp siden....lad os se koden dertil..
Avatar billede dumbledore Nybegynder
09. februar 2004 - 15:20 #3
arj...sry så ik icedox
Avatar billede peterpeter Seniormester
09. februar 2004 - 15:25 #4
Super - Mange tak. Koden til adv.asp kommer her:

<!--#include file="config.asp"-->
<%
       
    function countBanners()
    Set Con = Server.CreateObject ("ADODB.Connection")
    Con.Open strCon
    SQL = "Select count(*) from banners"
    set rs = Con.execute(SQL)
    countBanners = rs(0)
    rs.Close
    Con.Close
    Set rs = nothing
    Set Con = nothing
    end function
   
    function getRnd()
    randomize
    getRnd = CInt(Int((countBanners * Rnd()) + 1))
    end function

    r = getRnd
    Set con = Server.CreateObject ("ADODB.Connection")
    Set rec = Server.CreateObject ("ADODB.Recordset")
    con.Open strCon
    Set rec.ActiveConnection = con
    rec.LockType = 2

    sql = "Select * from banners"
    rec.Open sql, con, 3
    rec.AbsolutePosition =  r
    rec("view") = rec("view") + 1
    response.write "<center>"
    response.write "<a href="& appUrl &"redir.asp?id=" & rec("bannerID") &"&url="& server.urlencode(rec("targetUrl")) &">"
    response.write "<img border=""0"" src="& rec("bannerImage") &"></a><br>"
    response.write rec("altText") & "</center>"
   
    rec.update
    rec.Close
    Con.Close
    set rec = nothing
    set Con = nothing   
   
    %>


Sig endelig til, hvis der er andet jeg kan gøre.....
Avatar billede icedox Nybegynder
09. februar 2004 - 15:41 #5
I denne linie :

response.write "<a href="& appUrl &"redir.asp?id=" & rec("bannerID") &"&url="& server.urlencode(rec("targetUrl")) &">"

til :
response.write "<a href='"& appUrl &"redir.asp?id=" & rec("bannerID") &"&url="& server.urlencode(rec("targetUrl")) &"' target='_blank'>"
Avatar billede peterpeter Seniormester
09. februar 2004 - 18:32 #6
Perfekt - Mange tak.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester