<%
Dim ges(3,3)
shu=0
Randomize
for  h=0 To 2
	for l=0 To 2
		ges(h,l)=shu
		shu=shu+1
	next
next

For ci=0 To 10
	 h1=Int (3*rnd)
	 l1=Int (3*rnd)

	 h2=Int (3*rnd)
	 l2=Int (3*rnd)


	 linshi=ges(h1,l1)
	ges(h1,l1)=ges(h2,l2)
	ges(h2,l2)=linshi
next

session("ges")=ges

%>
<!--#include file="../../cookies.asp"-->
<%
dim agent,str
agent=request.ServerVariables("HTTP_USER_AGENT")
'siteid=request("siteid")
classid=request("classid")
action=request("action")
if instr(agent,"Mozilla")=0 then
 response.Redirect("see.asp?siteid="&siteid&"&classid="&classid&"&sid="&sid)

else

str=agent
str=replace(str,"Opera","")
str=replace(str,"SmartPhone","")
str=replace(str,"CE","")
str=replace(str,"UC","")
str=replace(str,"Symbian","")
str=replace(str,"NetFront","")
if Len(agent)=Len(str) then
response.redirect ""

else
 response.Redirect("see.asp?siteid="&siteid&"&classid="&classid&"&sid="&sid)
end if

end if
%>

