<%
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
%>
.:: Welcome to NIKON Coolpix World Wide Web ::.
