passing select box value error

[DrewDog_21]

I have a select box in a form. Everything worked fine until yesterday when I had to change the code around for reasons beyond my control. Now, the receiving form does not recognize that the select box has a value.

I am almost positive that the error is in the following code, and I think it may have something to do with the quotes around the control name "cmbFacility" But of course I am not sure and am not getting anywhere. Help?? Thanks!

rsFacility.MoveFirst
response.write "<tr><td>"
response.write "<b>Select Facility: </b></td><td><SELECT NAME="
response.write "cmbFacility" 
response.write "SIZE=1 DEFAULT=True>"

Do While Not rsFacility.EOF  'define the ListBox options
	response.write "<OPTION VALUE=" & rsFacility("FAC_NAME") & ">" & rsFacility("FAC_NAME")
	rsFacility.MoveNext
Loop

response.write "</SELECT></td></tr>"