ayuda para crear un administrador de noticias

[virla]

LA ULTIMA PARTE

Response.write("<img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/showtoggle-on.gif"" width=""23"" height=""17"" border=""0"" />&nbsp;" & strTxtModtoggleon & "&nbsp; <img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/showtoggle-off.gif"" width=""23"" height=""17"" border=""0"" />&nbsp;" & strTxtModtoggleoff & "<br />" & vbNewline)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td bgcolor=""" & strTableColour & """ background=""" & strTableBgImage & """ class=""smText"" valign=""top"">" & vbNewline)
If Not isNull(RemoveAllTags(request.querystring("errmsg") )) Then
Response.write("<span style=""color:red;font:bold 11px verdana;"">" & vbNewline)
response.write RemoveAllTags(request.querystring("errmsg"))
Response.write("</span><br />" & vbNewline)
End If
Response.write("<table width=""100%"" cellspacing=""0"" cellpadding=""2"" border=""0"">" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td width=""20%"" valign=""top"">" & vbNewline)
Call getModules(1)
Response.write("</td>" & vbNewline)
Response.write("<td width=""5%"" valign=""top"">&nbsp;</td>" & vbNewline)
Response.write("<td width=""50%"" valign=""top"">" & vbNewline)
Call getModules(2)
Response.write("</td>" & vbNewline)
Response.write("<td width=""5%"" valign=""top"">&nbsp;</td>" & vbNewline)
Response.write("<td width=""20%"" valign=""top"">" & vbNewline)
Call getModules(3)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
Module_Box.printBoxrightSide
Module_Box.printBoxBottom
Set Module_Box = Nothing
response.write "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</table>" & vbcrlf
%>