Multiple Combos

i'm trying to have a page with 2 combo boxes on it!! The only way i can seem to get it to work is like the code below. I've dim strSQL and strSQL1 and objRS and objRS1 surely they can all work on one line but I can't figure it out. code :

<%OPTION EXPLICIT
Dim objConn, strSQL, objRS, strSQL1, objRS1
Set objConn = Server.Createobject("ADODB.Connection")
objConn.open Application("helpdesk")
strSQL = "SELECT DISTINCT FirstName, Surname FROM Employee_Details ORDER BY FirstName "
strSQL1 = "SELECT DISTINCT Department FROM Employee_Details ORDER BY Department "
set objRS = objConn.Execute(strSQL)
set objRS1 = objconn.Execute(strSQL1)
%>