webForumDet fria alternativet

bakgrunderna vill inte visas

ASP

3 svar · 337 visningar · startad av WebbisNet

Medlem sedan feb. 20032 027 inlägg
Frågan#1

Nu har jag fått hjärnsläpp, varför ersätts inte bakgrunderna som de ska

if showAll("vip") = 1 then
function maketext(byVal inpt)
	Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/art.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold; color:#000000;"">",1,-1,1)
inp = Replace(inp,"</konst>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<blommor>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/flowers.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/sport.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/stop.gif); background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stefan>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/moose1.png); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stefan>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<ior>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/ior_small.gif); background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</ior>","</td></tr></table>",1,-1,1)

maketext = inp
end function
end if
<%If showAll("vip") = 1 Then%>
&nbsp;<%=convertLink(replace(extra(maketext(makeHtml(showAll("klotterText")))),vbCrLf,"<br>"))%>		
<%Else%>
&nbsp;<%=replace(showAll("klotterText"),vbCrLf,"<br>")%>
<%End If%>
Medlem sedan dec. 19996 721 inlägg
#2

Du ska inte definiera en funktion inne i en if-sats.

Medlem sedan feb. 20032 027 inlägg
#3

Den har funkat fint innan men inte nu, och utan fungerar inte heller

function maketext(byVal inpt)
	Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/art.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold; color:#000000;"">",1,-1,1)
inp = Replace(inp,"</konst>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<blommor>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/flowers.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/sport.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/stop.gif); background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stefan>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/moose1.png); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stefan>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<ior>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/ior_small.gif); background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</ior>","</td></tr></table>",1,-1,1)

maketext = inp
end function
Medlem sedan dec. 19996 721 inlägg
#4

Någon HTMLencode på vägen som ställer till det kanske?

289 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
156 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
151 ms — ändringar (db)