<%
dim bc
Set bc = Server.CreateObject("MSWC.BrowserType")
if bc.ActiveXControls and bc.cookies and bc.frames and _
bc.Javaapplets and bc.Javascript and bc.Tables and _
bc.Vbscript then
response.redirect "principal.asp"
response.end
end if
%>
<body>
<table border=1 align=center>
<tr>
<th>Característica</th>
<th>Disponível?</th>
</tr>
<tr>
<td>ActiveX Controls</td>
<td align=center><%= iif( bc.ActiveXControls, "Sim", "<b>NAO</b>" ) %></td>
</tr>
<tr>
<td>Background Sounds</td>
<td align=center><%= iif( bc.Backgroundsounds, "Sim", "<b>NAO</b>" ) %></td>
</tr>
<tr>
<td>Beta Specifies</td>
<td align=center><%= iif( bc.BetaSpecifies, "<b>SIM</b>", "Nao" ) %></td>
</tr>
<tr>
<td>Cdf Specifies</td>
<td align=center><%= iif( bc.CdfSpecifies, "Sim", "Nao" ) %></td>
</tr>
<tr>
<td>Browser</td>
<td align=center><%= bc.Browser & " " & bc.version & " " & bc.Platform %></td>
</tr>
<tr>
<td>Cookies</td>
<td align=center><%= iif( bc.Cookies, "Sim", "<b>NAO</b>" ) %></td>
</tr>
<tr>
<td>Frames</td>
<td align=center><%= iif( bc.Frames, "Sim", "<b>NAO</b>" ) %></td>
</tr>
<tr>
<td>Java Applets</td>
<td align=center><%= iif( bc.Javaapplets, "Sim", "<b>NAO</b>" ) %></td>
</tr>
<tr>
<td>JavaScript</td>
<td align=center><%= iif( bc.Javascript, "Sim", "<b>NAO</b>" ) %></td>
</tr>
<tr>
<td>VBScript</td>
<td align=center><%= iif( bc.Vbscript, "Sim", "<b>NAO</b>" ) %></td>
</tr>
<tr>
<td>Tables</td>
<td align=center><%= iif( bc.Tables, "Sim", "<b>NAO</b>" ) %></td>
</tr>
</table>
</body>
</html><%
function iif( condicao, valor1, valor2 )
if condicao then iif = valor1 else iif = valor2
end function
%>
0 comentários:
Postar um comentário