Bannere!

Brug denne komponent... Den er virklig kanon og nem...
http://activedeveloper.dk/aspdigital/studies/adrotator.asp

//>Rune

Ellers kan du bruge denne:

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=13

//>Rune

Mange tak for det hurtige svar! Men det handler om 3 bannere på samme side, og de skal ikke rotere, men være statisk stillestående.
Mvh. Rene

AdRotator roterer heller ikke bannere, medmindre siden genindlæses.

Vil det sige at det altid er de 3 samme bannere der står på siden, når brugeren besøger sitet/siden?

Er det planen at du skal have tre bannere vist på én gang, eller et enkelt banner ad gangen, hvor du så vil skifte mellem disse? Hvis du viser tre bannere på én gang og kun har disse tre at rotere imellem, er der jo ikke meget ved det.

Jeg har lavet en guide på nedenstående side, hvor du også kan se et eksempel på AdRotator i brug:
http://www.magik.dk/guides/2/

Jeg skal ha' 3 bannere vist på en gang, og de skal være fastlåste. 2 af disse bannere er små, det tredje lidt større. Der skal selvfølgelig være en mulighed for at kunne udskifte dem.

Så er det nok nærmere en databaseløsning du skal ud i, når du ikke har brug for at rotere dine bannere, men umiddelbart vil det vel være nemmest manuelt at udskifte disse.

Hvis vi taler databaseløsning, har du da nogle forslag?

Jeg har ikke nogen færdig løsning, men det kan ikke være så svært at lave.

Hvis du starter med at lave en tabel i en database med tre kolonner:

ID, billedsti, url

hvor ID er et autonummereret felt, og de to andre tekstfelter.

Herefter kan du nemt på en .asp side lave et udtræk:

SELECT TOP 3 billedsti, url FROM tabelnavn

Til sidst kan du så sætte dem ind på din side.

Mange tak for din hjælp! Har lavet databasen, det kniber lidt mere med asp'en. Hvad skriver jeg der hvor jeg ønsker banneret indsat?
Mvh. Rene

Det kommer lidt an på hvordan du laver dit udtræk.

Du kunne eksempelvis gøre sådan her:

Conn er et ADODB.Connection objekt.

...
Set rs = Conn.Execute("SELECT TOP 3 billedsti, url FROM tabelnavn")

If Not rs.EOF Then

  Do While Not rs.EOF

    Response.Write("<a href=""" & rs("url") & """ target=""_BLANK""><img src=""" & rs("billedsti") & """ border=""0"" alt=""""></a>")

    rs.MoveNext

  Next

End If

Det hele er kodet her i indtastningsfeltet på Eksperten, så der kan godt være en fejl eller to.  ;)

Der var ihvertfald en enkelt fejl  :)

Response.Write("<a href=""" & rs("url") & """ target=""_BLANK""><img src=""" & rs("billedsti") & """ border=""0"" alt=""""></a>")

Prøver igen (føler mig lidt dum)  :|

Response.Write("<a href=""" & rs("url") & """ target=""_BLANK""><img src=""" & rs("billedsti") & """ border=""0"" alt=""""></a>")

Næh, det skete igen. Eksperten spiser mine anførselstegn. Dem bliver du nødt til selv at rette til. Der skal være to ekstra lige inden 'target'. :)

Skriver jeg dette ved alle 3 bannere, altså der hvor jeg ønsker dem indsat hver især. Ganske givet et dumt spørgsmål, men dette skyldes min ringe viden.

Ovenstående kode henter tre bannere fra databasen og viser alle tre som links til den side du har valgt at de skal linke til.

Jeg får en fejlmelding! 
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'
Slut på sætning var ventet
/default1.asp, linje 2
Conn ADODB.Connection Object
----------------------^
Rene

Jeg får en fejlmelding!
Slut på sætning var ventet
/default1.asp, linje 2
Conn ADODB.Connection Object
----------------------^
Rene

Hov. Jeg har slet ikke fået mails vedr. dine indlæg *grrr*

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("stitildatabase.mdb"))

Hvad er der sket her?? kan ikke se de tidl. indlæg?

Det kan jeg heller ikke. Jeg kan se det jeg lavede før, og så det du lige har lavet.

Har du en ide om hvor jeg finder et færdig script, med mulighed for at indsætte, slette og opdatere? Gerne noget hvor man blot indsætter <% =Banner("460x60") %> på siden hvor man ønsker banneret indsat, samt en include. Så har jeg en mulighed for at se ideen med det hele.
Mvh. Rene

Nej, ikke udover det med AdRotator vi snakkede om tidligere.

Kan du så hjælpe mig med hvorfor jeg får flg. fejlmeddelse i PWS. I givet fald er det dine point. Kører win98.

Provider fejl '80004005'

Uspecificeret fejl

/komplet-bannersystem/admin/conn.inc, linje 11




<%
    Dim path, objDC, objRS, strSQL
   
'@@@@@@@@@ EDIT THIS ONLY @@@@@@@@@@

    path=Server.Mappath("banner.mdb")

'@@@@@@@@ NOT THE PHYSICAL PATH@@@@@@@@@

    Set objDC = Server.CreateObject("ADODB.Connection")
Linie 11    objDC.Open "DBQ=" & path & ";Driver={Microsoft Access Driver (*.mdb)};"
    Set objRS = Server.CreateObject("ADODB.Recordset")
%>

Mvh. Rene

Jeg mener at du fortjener de 60 point, grundet din hjælp omk. AdRotator.
Mvh. Rene

Fair nok ;o)
Thx 4 Poinz

//>Rune