<% Dim dbconn, OnVideo Set dbConn = GetDataConnection Set OnVideo=Server.CreateObject("ADODB.Recordset") OnVideo.Open dbconn.Execute ("pr_DropDown") %>