%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from tb_product where uid=" & clng(Request.QueryString("uid"))
Rs.Open SQL,Conn,1,3
Select Case Rs("serial")
Case "TV¹CÀ¸¾÷"
strTitle = "game1.gif"
Case "LED¹CÀ¸¾÷"
strTitle = "game2.gif"
Case "TVÄå®ç¹CÀ¸¾÷¨t¦C"
strTitle = "game3.gif"
Case "¾ë§J¹CÀ¸¾÷¨t¦C"
strTitle = "game4.gif"
Case "·n·n¼Ö¾÷±ñ¹CÀ¸¾÷"
strTitle = "game5.gif"
Case "¹qª±¹s²Õ¥ó"
strTitle = "game6.gif"
Case "¹q¸£¶gÃä"
strTitle = "game7.gif"
Case "¨ä¥L²£«~"
strTitle = "game8.gif"
Case "³Ì·s²£«~"
strTitle = "game9.gif"
End Select
%>
¥ß»®¥ø·~ªÑ¥÷¦³¤½¥q