% Response.Buffer = TRUE Response.Clear product_class = Trim(Request("product_class")) Select Case product_class Case "COOLPIX" SQL = "Select * From Coolpix_Detail Where Display = '1' Order By Product_ID" Case "單眼相機" SQL = "Select * From Comera_Detail Where Comera_Display = '1' Order By Product_ID" Case "底片掃描器" SQL = "Select * From Scan_Detail Where Scan_Display = '1' Order By Product_ID" Case Else SQL = "Select * From Coolpix_Detail Where Display = '1' Order By Product_ID" End Select Select Case product_class Case "COOLPIX" url = "compare_coolpix.asp" Case "單眼相機" url = "compare_comera.asp" Case "底片掃描器" url = "compare_scan.asp" Case Else url = "compare_coolpix.asp" End Select Set rs = CONN.EXECUTE(SQL) If rs is Nothing Then Response.Write "開啟資料庫失敗" Response.End End If If rs.EOF Then Response.Write "" Response.End End IF %>