får detta felmeddelande när jag ska använda mig av ett bannerskriopt:
Kompileringsfel i Microsoft VBScript error '800a0400'
Programsats förväntas.
/banner/inc_AdBanner.asp, line 14
strAdLinkUrl = [url="http://home.domaindlx.com/groda"]http://home.domaindlx.com/groda[/url]
och detta lilla skript:
<%
Sub zAdBanner(ByVal HowManyAds)
Randomize
Dim intAdBanner
'## -- slumpa fram vilken adbanner som ska visas --
intAdBanner = CInt((rnd * HowManyAds) + 0.5)
Select Case intAdBanner
Case 1
strImgLocation = "/banners/"
strImgName = "banner1.gif"
strAltText = "Besök nu!"
strAdLinkUrl = [url="http://home.domaindlx.com/groda"]http://home.domaindlx.com/groda[/url]
Response.Write "<A href=""" & strAdLinkUrl & """ " & _
"target=""_blank""><IMG src=""" & strImgLocation & strImgName & """ " & _
"border=""0""></A>"
Case 2
strImgLocation = "/banners/"
strImgName = "brev4.gif"
strAltText = "Min andra sponsor"
strAdLinkUrl = [url="http://home.domaindlx.com/groda"]http://home.domaindlx.com/groda[/url]
Response.Write "<A href=""" & strAdLinkUrl & """ " & _
"target=""_blank""><IMG src=""" & strImgLocation & strImgName & """ " & _
"border=""0""></A>"
End Select
End Sub
%>
------------------
www.groda.net *kvack*, *kvack*