<%
Dim tp As String
tp = Request.QueryString("tp")
if tp="" then
tp="an"
end if
dim ds As New dataservice
dim rs As ArrayList
rs = ds.getRows("newsletter where tp='" & tp & "'")
%>
background:#68A2F9;<% end if%> " onmouseout="change_bg('ac', '#0855C6');">