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&"
<%
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
%>
"&KeyWordLinkInfo&"
"
end if
%>