Hvordan sætter jeg dette op..
Hvordan sætter jeg mit banner system op?jeg kan jo ikke bare skrive:
<%
\' TILFØJ BANNERE HER
\'-----------------------------------------------
strSep = \"#\" \' Separator til arrays
\' Her tilføjes banner nr. 1
arrBannerPic = arrBannerPic & strSep & \"1.gif\"
arrBannerSize = arrBannerSize & strSep & \"468x60\"
arrBannerURL = arrBannerURL & strSep & \"http://www.cheryx.dk\"
\' Her tilføjes banner nr. 2
arrBannerPic = arrBannerPic & strSep & \"2.gif\"
arrBannerSize = arrBannerSize & strSep & \"468x60\"
arrBannerURL = arrBannerURL & strSep & \"http://www.cheryx.dk\"
\' Her tilføjes banner nr. 3
arrBannerPic = arrBannerPic & strSep & \"3.gif\"
arrBannerSize = arrBannerSize & strSep & \"468x60\"
arrBannerURL = arrBannerURL & strSep & \"http://www.cheryx.dk\"
\' Her tilføjes banner nr. 4
arrBannerPic = arrBannerPic & strSep & \"4.gif\"
arrBannerSize = arrBannerSize & strSep & \"125x125\"
arrBannerURL = arrBannerURL & strSep & \"http://www.cheryx.dk\"
\' Her tilføjes banner nr. 5
arrBannerPic = arrBannerPic & strSep & \"5.gif\"
arrBannerSize = arrBannerSize & strSep & \"125x125\"
arrBannerURL = arrBannerURL & strSep & \"http://www.cheryx.dk\"
\'//Insæt flere linier i koden på dette sted for at tilføje flere bannere.
\'// Husk at ændre stien til billedet, URL\'en og formatet så det passer
\' Split arrays
arrBannerPic = Split(arrBannerPic,strSep)
arrBannerSize = Split(arrBannerSize,strSep)
arrBannerURL = Split(arrBannerURL,strSep)
\' FUNKTIONEN SOM VISER BANNER
\'-----------------------------------------------
Function Banner(strformat)
\' Find de bannere som har det rigtige format.
For intBanner = 1 to Ubound(arrBannerPic)
If arrBannerSize(intBanner) = strformat Then
arrBanners = arrBanners & strSep & intBanner
End If
Next
arrBanners = Split(arrBanners,strSep)
\' Vælg tilfældigt banner.
Randomize
intRandom = Int((Ubound(arrBanners) * Rnd) + 1)
intShow = arrBanners(intRandom)
arrSize = Split(arrBannerSize(intShow),\"x\")
\' Skriv HTML koden for banneret til klienten.
Response.Write \"<div><a href=\'\" & arrBannerURL(intShow) & \"\'>\"
Response.Write \"<img src=\'\" & arrBannerPic(intShow) & \"\' alt=\'Cheryx.dk\' \"
Response.Write \"width=\'\" & arrSize(0) & \"\' height=\'\" & arrSize(1) & \"\'></div>\"
End Function
%>
skal ´man ikke skrive noget med den skal være i midten osv.. ?