<%'To check the browser capabilities this goes above everything Function checkbrowser Set check = Server.CreateObject("MSWC.BrowserType") If check.browser="IE" And check.version >= "4.0" Then checkbrowser = "DropStyle" Else checkbrowser = "" End If End Function 'this goes in the head. very basic CSS %> <%'This drop-down assumes that you have the conn 2 the database Set up and you've build a RS. %>

Select a theme ----------------- <%if Not rs.eof Then Do until rs.eof Response.Write("" & Trim(rs("name")) & "") rs.Movenext Loop End if%>