ทำ list menu โดยการดึงข้อมูลจากฐานข้อมูล เรียกมาแก้ไขแล้วมันไม่ยอม selected ที่ข้อมูลที่เลือกคะ

Dim objRec1,strSQL1
		strSQL1 = "SELECT * FROM Type_Enterprise "
		Set objRec1 = Server.CreateObject("ADODB.Recordset")
		objRec1.Open strSQL1, Conn,1,3
		Do While  NOT objRec1.EOF
		if  objRec.Fields("Type_Enterprise") =objRec1.Fields("ID_TypeEnterprise") Then
			response.write"<OPTION SELECTED VALUE='"&objRec1.Fields("ID_TypeEnterprise")&"'>"
		 	response.write  objRec1.Fields ("Name_TypeEnterprise") &" </OPTION>"
	else
		response.write"<OPTION  VALUE='"&objRec1.Fields("ID_TypeEnterprise")&"'>"
		 response.write  objRec1.Fields ("Name_TypeEnterprise") &" </OPTION>"
		
		End if
     objRec1.MoveNext()
		
		Loop