%@LANGUAGE="VBSCRIPT"%> <% Dim rsFaculty__MMColParam rsFaculty__MMColParam = "1" If (Request.QueryString("pick") <> "") Then rsFaculty__MMColParam = Request.QueryString("pick") End If %> <% Dim rsFaculty Dim rsFaculty_numRows Set rsFaculty = Server.CreateObject("ADODB.Recordset") rsFaculty.ActiveConnection = MM_conSCC_STRING rsFaculty.Source = "SELECT * FROM faculty WHERE ID = " + Replace(rsFaculty__MMColParam, "'", "''") + " ORDER BY Last_Name ASC" rsFaculty.CursorType = 0 rsFaculty.CursorLocation = 2 rsFaculty.LockType = 1 rsFaculty.Open() rsFaculty_numRows = 0 %>