<% Dim sHTTP_ACCEPT, sUSER_AGENT sHTTP_ACCEPT = LCase(Request.ServerVariables("HTTP_ACCEPT") sUSER_AGENT = LCase(Request.ServerVariables("USER_AGENT ") If InStr(sHTTP_ACCEPT), "wap") = 0 And _ InStr(sUSER_AGENT, "mozilla") Then 'It's a HTML browser! Response.Redirect("./index.html") Else 'It's a WML browser! Response.Redirect("./index.wml") End If %> Site von Martin Wolf
 


noch leer
(C) M. Wolf, 04/2001