<%
Response.Buffer = TRUE
Dim IsWap
httpAccept = LCase(Request.ServerVariables("HTTP_ACCEPT"))
if Instr(httpAccept,"wap") then
IsWap=1
Else Response.Redirect "/index.html" : Response.Flush : Response.End
End if
%>

<%
if Instr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"wap")>0 then
Response.Redirect "http://wap.123.com" 
Else 
Response.Redirect "http://123.com" 
End if
%>