How do I call stored procedures from an asp page

I have a normal recordset that returns records from a database the problem is that the page times out because there are so many records.

I want to put the query into a stored proc and am not sure how can anyone help me.here is the code
Will putting into a stored proc return all the records.
Set  oRec = Server.CreateObject("ADODB.Recordset")          
     Set  oConn = Server.CreateObject("ADODB.Connection")
     oConn.ConnectionString=constr
     oConn.Open
     oRec.CursorType = 3
     oRec.CursorLocation = 3
     
     
     
     if (Request.Cookies("user")("level") = 1) or (Request.Cookies("user")("level") = 5) then
     strSQL = "SELECT SALESREP.intREPID,SALESREP.strFIRSTNAME AS srepn,SALESREP.strSURNAME AS sreps,DEALER.strName as dealer FROM DEALER JOIN SALESREP ON (SALESREP.intDealerID = DEALER.intDealerID) WHERE DEALER.STRSTATUS = 'ACTIVE' AND SALESREP.STRSTATUS = 'ACTIVE' ORDER BY DEALER.strNAME,SALESREP.strFIRSTNAME,SALESREP.strSURNAME"
     elseif (Request.Cookies("user")("level") = 2) then
     strSQL = "SELECT SALESREP.intREPID,SALESREP.strFIRSTNAME AS srepn,SALESREP.strSURNAME AS sreps,DEALER.strName as dealer FROM DEALER JOIN SALESREP ON (SALESREP.intDealerID = DEALER.intDealerID) WHERE DEALER.STRSTATUS = 'ACTIVE' AND SALESREP.STRSTATUS = 'ACTIVE' AND DEALER.intREPID = "& Clng(Request.Cookies("user")("id")) &" ORDER BY DEALER.strNAME,SALESREP.strFIRSTNAME,SALESREP.strSURNAME"
     elseif (Request.Cookies("user")("level") = 3) then
     strSQL = "SELECT SALESREP.intREPID,SALESREP.strFIRSTNAME AS srepn,SALESREP.strSURNAME AS sreps,DEALER.strName as dealer FROM DEALER JOIN SALESREP ON (SALESREP.intDealerID = DEALER.intDealerID) WHERE DEALER.STRSTATUS = 'ACTIVE' AND SALESREP.STRSTATUS = 'ACTIVE' AND SALESREP.intDEALERID = "& Clng(Request.Cookies("user")("id")) &" ORDER BY DEALER.strNAME,SALESREP.strFIRSTNAME,SALESREP.strSURNAME"
     end if
     
     
     
          strCrit = Split(Replace(Replace(Trim(Request.Form("functionsSearchCrit")),"""",""),"'","")," ")
          strSQL = "SELECT SALESREP.intREPID,SALESREP.strFIRSTNAME,SALESREP.strSURNAME,DEALER.strName FROM DEALER JOIN SALESREP ON (SALESREP.intDealerID = DEALER.intDealerID) WHERE DEALER.STRSTATUS = 'ACTIVE' AND SALESREP.STRSTATUS = 'ACTIVE' "
          while i <= Ubound(strCrit)
               strSQL = strSQL & " AND (DEALER.strNAME LIKE '%"& strCrit(i) &"%' OR SALESREP.strFIRSTNAME LIKE '%"& strCrit(i) &"%' OR SALESREP.strSURNAME LIKE '%"& strCrit(i) &"%')"
               i = i + 1
          wend
          if (Request.Cookies("user")("level") = 2) then
               strSQL = strSQL & " AND DEALER.intREPID = "& Clng(Request.Cookies("user")("id")) &" "
          elseif (Request.Cookies("user")("level") = 3) then
               strSQL = strSQL & " AND SALESREP.intDEALERID = "& Clng(Request.Cookies("user")("id")) &" "
          end if
          strSQL = strSQL & " ORDER BY DEALER.strNAME,SALESREP.strFIRSTNAME,SALESREP.strSURNAME"
         
          bg = "666666"
          oRec.Open strSQL,oConnStart Free Trial