Manual de WML - Trucos

Sorry, pero no lo he traducido... XP
Sacado de http://www.egroups.com/group/wmlprogramming

I tried to redirect my browser clients using ASP and following your sample code. For some reason the content type is text/html. I submit the code see if any of you can see whats wrong. The redirect woks fine when I use the web browser.

---------code-----------------------------------------------------
<%Response.ContentType = "text/vnd.wap.wml"%>
<% Dim uastring, wmlURL, htmlURL
uastring = request.ServerVariables("HTTP_USER_AGENT")
wmlURL = "/martin/index.wml"
htmlURL = "some URL"
If (InStr(uastring,"UP") Or InStr(uastring, "Nokia") Or InStr(uastring,
"Wap")) Then
     Response.Redirect wmlURL
else
     Response.Redirect htmlURL
End If %>
-------End of code---------------------------------------
Marco
 

The only problem with this approach is when you encounter a phone that does not support WMLScript, or your site gets hit by an HTML client. You're much better off checking on the server end first. This is a trivial exercise in just about any language, Perl, ASP, Java, etc...

In Perl 5
#!/usr/local/bin/perl5

$ua = $ENV{"HTTP_USER_AGENT"};
if ($ua =~ "UP"){ print "Status: 302 Moved Temporarily\r Location: <one location>"; } elsif($ua =~ "Nokia"){ ...

You get the picture.

In asp, this construct would look like:

Dim uastring
uastring = request.ServerVariables("HTTP_USER_AGENT")
If (InStr(uastring,"UP"))Then Response.Redirect(<onelocation>)

and in a Java Servlet it would look like this:

String ua = req.getHeader(HTTP_USER_AGENT);
if (ua.indexOf("UP")!= null){
res.setStatus(res.SC_MOVED_TEMPORARILY);
res.setHeader("Location", <one location>);