<%@Language=VBScript%> <% client = Request.ServerVariables("HTTP_USER_AGENT") version = Split(client,";",-1,1)%> <% If version(1) = " MSIE 5.0b2" Then%>

<% Else Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM") Set XSLDoc = Server.CreateObject("Microsoft.XMLDOM") XMLDoc.async = false XMLDoc.load(Server.MapPath("skills.xml")) XSLDoc.async = false If Request.Querystring("view")="" Then XSLDoc.load(Server.MapPath("skills.xsl")) ElseIf Request.Querystring("view")="1" Then XSLDoc.load(Server.MapPath("skillsView.xsl")) ElseIf Request.Querystring("view")="2" Then XSLDoc.load(Server.MapPath("ExpView.xsl")) End If response.write(XMLDoc.documentElement.transformNode(XSLDoc.documentElement)) End If %>

Commentary Skills View Experience View <%If version(1) = " MSIE 5.0b2" Then%> <%Else%> <%End If%>