<%@ LANGUAGE="VBScript" CODEPAGE="65001"%>

<%


dim V
	v=TRim(Request("v"))
	if not isnumeric(v) then v=1
  if V<>2 then V=1
  if Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))="mozi"  then
	v=2
  end if 
  if v=2 then
		response.write "<?xml version=""1.0"" encoding=""utf-8""?>" & vbnewline
		response.write "<!DOCTYPE html PUBLIC ""-//WAPFORUM//DTD XHTML Mobile 1.0//EN"" ""http://www.wapforum.org/DTD/xhtml-mobile10.dtd"">" & vbnewline
		response.write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbnewline
		response.write "<head>" & vbnewline
		response.write "<meta http-equiv=""Cache-Control"" content=""must-revalidate"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Cache-Control"" content=""no-cache"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Cache-Control"" content=""max-age=0"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Expires"" content=""0"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Pragma"" content=""no-cache"" forua=""true""/>" & vbnewline
		response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & vbnewline
		response.write "<link rel=""stylesheet"" href=""/main/style.css"" type=""text/css""/>" & vbnewline
  else
		response.ContentType="text/vnd.wap.wml"
		response.write "<?xml version=""1.0"" encoding=""utf-8""?>" & vbnewline
		response.write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">" & vbnewline
  end if



%>
