%
Response.Buffer = TRUE
Response.Clear
pro_class = Request("pro_class")
ID = Request("ID")
If ID = "" Then
SQL = "Select * From Products Where Products_Class = '" & pro_class & "' and Products_Display = '1' Order By Products_ID"
Else
SQL = "Select * From Products Where Products_ID = '" & ID & "' and Products_Display = '1'"
End If
'Response.Write(SQL)
'Response.End()
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
%>