Mangler kode til randomvisning af bannere

findes nu mange i forvejen

prøv og kig lidt på www.asp.dk
og www.activeserverpages.dk

eller www.script.dk eller www.viewsource.dk

http://www.viewsource.dk/aspcat.asp?ident=1

Udelukkende bannerrelateret i asp

Tjek http://www.yaba.dk/bryllup/test.asp.
Sourcen er har jeg mailet dig.

spazzer>
husk lige at poste den her også!

hvis i kalder billederne 1, 2, 3, 4 osv...

så brug dette...!

<%
Randomize
strRndTal = int(Rnd * 6) +1 \'6 er det antal billeder der i mappen

Response.Write \"<img href=\'\" & strRndTal & \".jpg\'>\" \' du kan eventuelt...! putte et link uden om

%>

sourcen til mit eksempel er den fra www.yaba.dk/bannersystem

har blot tilpasset den \"crazynight\" i den source jeg sendte ham..

*skulle have postet det som svar, derfor denne bedsked*

Spazzer -> jeg kan bare ikke få det til at køre hos mig :-(

toppen af sitet er included via top.asp, som ser sådan ud :

<table width=\"762\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\">
<tr>
<td width=184><a href=\"index.asp\"><img src=\"topleft.gif\" width=184 height=85 border=0></a></td>
<td width=73><IMG height=26 src=\"bgdot.gif\" width=73><br><IMG height=59 src=\"top02.gif\" width=73><br></td>
<td width=505>
<IMG height=2 src=\"bgdot.gif\" width=505><br>

<!-- Bannerreklamer - start ----------------------------------------------------------------------------->

<a href=\"http://www.bryllupsshoppen.dk\" target=rechts><img src=\"BannerPics/shopbanner.gif\" border=0></a>
<font size=\"5\">Eksempel på bannersystem:</font></p><br><br>
<% Set objSponsor = Server.CreateObject(\"MSWC.ContentRotator\")
Response.Write objSponsor.ChooseContent(\"sponsor.txt\")
Set objSponsor = Nothing %>
<!-- Bannerreklamer - slut ------------------------------------------------------------------------------>

<IMG height=20 src=\"top03.gif\" width=505><br>
</td>
</tr>
</table>


<table width=\"746\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\" class=\"style\">
<tr>
<td width=2 bgcolor=\"#660033\" valign=top><IMG height=11 src=\"top04a.gif\" width=2><br></td>

derudover har jeg filen sponsor.txt i root og billederne i kataloget \"banner\".


Forslag?

Fejl  =

Server object error \'ASP 0177 : 800401f3\'

Server.CreateObject Failed

/top_test.asp, line 12

Invalid class string

2-maz -> Din kode giver heller ikke succes hos mig.

Check <%
Randomize
strRndTal = int(Rnd * 2) +1

Response.Write \"<img href=\'\" & strRndTal & \".gif\'>\"

%>

på http://www.bryllup.dk/top_test.asp

Download denne zipfil.

Der er et meget fint eksempel på hvordan det nemt kan laves:

http://www.viewsource.dk/aspdwl.asp?ID=33

Se det i aktion her
http://www.viewsource.dk/asp/Banner/Easyrandombanner3/Easyrandombanner3.asp