if ars("show_sq") =2 or ars("show_sq") =3 then addpictemp= addpictemp + " title=""" + server.htmlencode(ars("pic_comm")) +""" " end if addpictemp= addpictemp +" src=""" addpictemp= addpictemp + SESSION("Image_lab") +"/"+rtrim(ars("picurl")) addpictemp= addpictemp + """ ></td>" addpictemp= addpictemp + "</tr>" addpictemp= addpictemp + "</table>" addpictemp= addpictemp + "</center>" addpictemp= addpictemp + "</div>" addpictemp= addpictemp + "</td>" addpictemp= addpictemp + "</tr>" if ars("show_sq") =1 or ars("show_sq") =3 then addpictemp= addpictemp + "<tr>" addpictemp= addpictemp + "<td width=""100%"" nowrap align=""center"" valign=""top"" >" if ucase(ars("pic_linkout"))<>"[N/A]" then addpictemp= addpictemp + "<a href=""" addpictemp= addpictemp + server.urlencode(rtrim(ars("pic_linkout"))) addpictemp= addpictemp +"""><img border=""0"" src=""/systemimages/linkout.gif"" align=""right"" width=""11"" height=""11""></a>" end if addpictemp= addpictemp +"<font size=""2"" color=""#999999"">" addpictemp= addpictemp + rtrim(ars("pic_sq")) addpictemp= addpictemp +"</font>" addpictemp= addpictemp +"</td>" addpictemp= addpictemp + "</tr>" end if addpictemp= addpictemp + "</table>" addpictemp= addpictemp + "</div>" case 3 addpictemp= addpictemp + "<table border=""0"" cellpadding=""0"" cellspacing=""0"" align=""left"" " if ars("style")=2 then addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" " end if addpictemp= addpictemp + ">" addpictemp= addpictemp + "<tr>" addpictemp= addpictemp + "<td width=""100%"">" addpictemp= addpictemp + "<div align=""center"">" addpictemp= addpictemp + "<center>" addpictemp= addpictemp + "<table width=""32"" height=""32"" cellpadding=""0"" cellspacing=""0"" " if ars("style")=0 then addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" " end if addpictemp= addpictemp + ">" addpictemp= addpictemp + "<tr>" addpictemp= addpictemp + "<td align=""center"">" addpictemp= addpictemp + "<img border=""0"" "
if ars("show_sq") =2 or ars("show_sq") =3 then addpictemp= addpictemp + " title=""" + server.htmlencode(ars("pic_comm")) +""" " end if addpictemp= addpictemp +" src=""" addpictemp= addpictemp + SESSION("Image_lab") +"/"+rtrim(ars("picurl")) addpictemp= addpictemp + """ ></td>" addpictemp= addpictemp + "</tr>" addpictemp= addpictemp + "</table>" addpictemp= addpictemp + "</center>" addpictemp= addpictemp + "</div>" addpictemp= addpictemp + "</td>" addpictemp= addpictemp + "</tr>" if ars("show_sq") =1 or ars("show_sq") =3 then addpictemp= addpictemp + "<tr>" addpictemp= addpictemp + "<td width=""100%"" nowrap align=""center"" valign=""top"" >" if ucase(ars("pic_linkout"))<>"[N/A]" then addpictemp= addpictemp + "<a href=""" addpictemp= addpictemp + server.urlencode(rtrim(ars("pic_linkout"))) addpictemp= addpictemp +"""><img border=""0"" src=""/systemimages/linkout.gif"" align=""right"" width=""11"" height=""11""></a>" end if addpictemp= addpictemp +"<font size=""2"" color=""#999999"">" addpictemp= addpictemp + rtrim(ars("pic_sq")) addpictemp= addpictemp +"</font>" addpictemp= addpictemp +"</td>" addpictemp= addpictemp + "</tr>" end if addpictemp= addpictemp + "</table>" case 4 addpictemp= addpictemp + "<table border=""0"" cellpadding=""0"" cellspacing=""0"" align=""right"" " if ars("style")=2 then addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" " end if addpictemp= addpictemp + ">" addpictemp= addpictemp + "<tr>" addpictemp= addpictemp + "<td width=""100%"">" addpictemp= addpictemp + "<div align=""center"">" addpictemp= addpictemp + "<center>" addpictemp= addpictemp + "<table width=""32"" height=""32"" cellpadding=""0"" cellspacing=""0"" " if ars("style")=0 then addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" " end if addpictemp= addpictemp + ">" addpictemp= addpictemp + "<tr>" addpictemp= addpictemp + "<td align=""center"">" addpictemp= addpictemp + "<img border=""0"" "
if ars("show_sq") =2 or ars("show_sq") =3 then addpictemp= addpictemp + " title=""" + server.htmlencode(ars("pic_comm")) +""" " end if addpictemp= addpictemp +" src=""" addpictemp= addpictemp + SESSION("Image_lab") +"/"+rtrim(ars("picurl")) addpictemp= addpictemp + """ ></td>" addpictemp= addpictemp + "</tr>" addpictemp= addpictemp + "</table>" addpictemp= addpictemp + "</center>" addpictemp= addpictemp + "</div>" addpictemp= addpictemp + "</td>" addpictemp= addpictemp + "</tr>" if ars("show_sq") =1 or ars("show_sq") =3 then addpictemp= addpictemp + "<tr>" addpictemp= addpictemp + "<td width=""100%"" nowrap align=""center"" valign=""top"" >" if ucase(ars("pic_linkout"))<>"[N/A]" then addpictemp= addpictemp + "<a href=""" addpictemp= addpictemp + server.urlencode(rtrim(ars("pic_linkout"))) addpictemp= addpictemp +"""><img border=""0"" src=""/systemimages/linkout.gif"" align=""right"" width=""11"" height=""11""></a>" end if addpictemp= addpictemp +"<font size=""2"" color=""#999999"">" addpictemp= addpictemp + rtrim(ars("pic_sq")) addpictemp= addpictemp +"</font>" addpictemp= addpictemp +"</td>" addpictemp= addpictemp + "</tr>" end if addpictemp= addpictemp + "</table>"
end select
addpic(i-1)=addpictemp setpiccounter ars("pic_id") ars.movenext next ars.close for i = 0 to ubound(addpic) articletext=articletext & toarticle(i) & addpic(i) next articletext=articletext & article_comm end if end if if prubb then end if if showtitle