border omk. banner!
Kan nogen være behjælpelige med, hvordan jeg fjerner borderen omkring nedenstående bannere?<%
strSep = "#" ' Separator til arrays
' Her tilføjes banner nr. 1
arrBannerPic = arrBannerPic & strSep & "banner/image703.gif"
arrBannerSize = arrBannerSize & strSep & "158x58"
arrBannerURL = arrBannerURL & strSep & "http://www.american-express.com"
' Her tilføjes banner nr. 2
arrBannerPic = arrBannerPic & strSep & "banner/image764.gif"
arrBannerSize = arrBannerSize & strSep & "158x58"
arrBannerURL = arrBannerURL & strSep & "http://www.ventherm.dk"
' Her tilføjes banner nr. 3
arrBannerPic = arrBannerPic & strSep & "banner/image764.gif"
arrBannerSize = arrBannerSize & strSep & "340x60"
arrBannerURL = arrBannerURL & strSep & "http://www.ventherm.dk"
' Split arrays
arrBannerPic = Split(arrBannerPic,strSep)
arrBannerSize = Split(arrBannerSize,strSep)
arrBannerURL = Split(arrBannerURL,strSep)
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 "<a href='" & arrBannerURL(intShow) & "'>"
Response.Write "<img src='" & arrBannerPic(intShow) & "' alt='Klik her for mere information!' "
Response.Write "width='" & arrSize(0) & "' height='" & arrSize(1) & "'>"
End Function
%>
