<%acceptString = Request.ServerVariables("HTTP_ACCEPT") If Instr(LCase(acceptString), "wap") > 0 Then Response.ContentType = "text/vnd.wap.wml" %>

Has accedido mediante un terminal WAP

<% Else Response.ContentType = "text/html" %>

Has accedido a través de un Navegador WEB

<%End If%>