<%
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遊戲機"
strTitle = "game1.gif"
Case "LED遊戲機"
strTitle = "game2.gif"
Case "TV櫻桃遊戲機系列"
strTitle = "game3.gif"
Case "樸克遊戲機系列"
strTitle = "game4.gif"
Case "搖搖樂機械遊戲機"
strTitle = "game5.gif"
Case "電玩零組件"
strTitle = "game6.gif"
Case "電腦週邊"
strTitle = "game7.gif"
Case "其他產品"
strTitle = "game8.gif"
Case "最新產品"
strTitle = "game9.gif"
End Select
%>
保冠有限公司
