Sub ContractComboBox(defvalue)
  Dim l_strSQL
  Dim l_rstRecord
  Dim nid
  Dim nname
  Dim sel
     l_strSQL = "SELECT contract,idcont FROM contract ORDER BY contract asc"
     Set l_rstRecord = Server.CreateObject("ADODB.Recordset")
     l_rstRecord.Open l_strSQL,m_cnnConnDB,adOpenKeyset,adLockOptimistic

     Response.Write "<select  name=""contract""><option value="""">" & m_str_interval
      While Not l_rstRecord.EOF
         nid = l_rstRecord("idcont")
         nname = l_rstRecord("contract")
         if trim(nname)=trim(defvalue) then
			sel = "selected"
		 else
			sel = ""
		 end if
         Response.Write "<option value=" & nid & " " & sel & ">" & nname         
         l_rstRecord.MoveNext
      Wend
      l_rstRecord.Close
      Set l_rstRecord = Nothing 
      Response.Write "</select>"
End Sub