<% GorI = Request.QueryString("type") if GorI = "" or GorI = Empty then GorI = "g" elseif GorI = "i" then GorI = "i" end if GameName = "Dekaron" Response.Cookies("Mmose")("GameName") = GameName set getGameID = myconn.execute("select SortID,PageName from GameInfoTb where SortName='"&GameName&"' and ParentID=0") if not getGameID.eof then GameID = getGameID("SortID") PageName = getGameID("PageName") Response.Cookies("Mmose")("PageName") = PageName&".html" else response.Write "Can't find the game." response.End() end if getGameID.close() set getGameID = nothing %>
Select Product
<% set rs=myconn.execute("select SortID,GoldInfo,GoldDisplay,ItemInfo,ItemDisplay,PowerInfo,PowerDisplay,SelltousInfo,SelltousDisplay,IntroductionInfo,IntroductionDisplay,PromotionsInfo,PromotionsDisplay,KeyWordLinkInfo,KeyWordLinkDisplay,AutoID from SellInfoTb where SortID="&GameID&"") if not rs.eof then ItemDisplay = rs("ItemDisplay") SelltousDisplay = rs("SelltousDisplay") SelltousInfo = rs("SelltousInfo") IntroductionInfo = rs("IntroductionInfo") IntroductionDisplay = rs("IntroductionDisplay") PromotionsInfo = rs("PromotionsInfo") PromotionsDisplay = rs("PromotionsDisplay") KeyWordLinkInfo = rs("KeyWordLinkInfo") KeyWordLinkDisplay = rs("KeyWordLinkDisplay") end if rs.close() set rs=nothing if GorI = "g" then response.Write "" if ItemDisplay=1 then response.Write "" end if elseif GorI = "i" then response.Write "" if ItemDisplay=1 then response.Write "" end if end if %>
Home > <%=GameName%>

Buy <%=GameName%>

<% if PromotionsDisplay = 1 then response.Write "
Promotions
" response.Write ""&PromotionsInfo&"
" end if %>
<% FstFlag = 0 set server_rs=myconn.execute("select SortID,SortName from GameInfoTb where ParentID="&GameID&" order by ServerOrderID") do while not server_rs.eof if FstFlag = 0 then Response.Write "" FstFlag = server_rs("SortID") else Response.Write "" end if server_rs.movenext loop server_rs.close() set server_rs =nothing if GorI = "i" then Response.Write "" end if myconn.close() set myconn=nothing %>
<%=GameName%> News
Introduction
<% if IntroductionDisplay = 1 then response.Write IntroductionInfo end if %>
<% if KeyWordLinkDisplay = 1 then response.Write "
"&KeyWordLinkInfo&"
" end if %>