<%
  Dim Connectdata  
  Dim Connectstring  
  Dim SQLstring
  Dim Recorddata
	
  Connectstring = "Provider=SQLOLEDB; Datasource=datasource; 
  Database=Testdata; UID=user id of database; PWD= Password 
  for database;"
  
  Set Connectdata = Server.Createobject("ADODB.Connection")
  Connectdata.connectionstring = Connectstring
  Connectdata.mode = Readwrite
  Connectdata.open 
	
  Set Recorddata = Server.Createobject("ADODB.Recordset")
  SQLstring = "select * from testdata"
  Recorddata.open SQLString, Connectdata,
  [Locktypes for the database] 	
  
  Recorddata.movefirst
  %>
  
  < select name = cbobox > 
  <%while rs.EOF <> true%>  
  < option value = "<%Response.Write (recorddata("fieldname"))%>">
  <% Response.Write(recorddata("fieldname")) %> </option>

  <%
  recorddata.movenext
  wend 
  %>

  </select>