Forum Moderators: open
Thanks
<html>
<head>
<%
Select Case Request.Form("theme")
Case "Theme1"
Response.Write("<link rel='stylesheet' href='theme1.css' type='text/css'>" & vbCrlf)
Case "Theme2"
Response.Write("<link rel='stylesheet' href='theme2.css' type='text/css'>" & vbCrlf)
Case Else
Response.Write("<link rel='stylesheet' href='default.css' type='text/css'>" & vbCrlf)
End Select
%>
</head>
<body>
<form name='f' method='post'>
<select name='theme' onSelect='Javascript:f.submit();'>
<option value='0'>Default theme</option>
<option value='1'>Theme 1</option>
<option value='2'>Theme 2</option>
</select>
</form>
</body>