Hola, haz lo siguiente
aqui coloca tu conexion con la bd
<%
Dim sql
sql="SELECT * FROM tutabla WHERE tipo_factura = 'comun' ORDER BY cliente ASC"
rs.Open sql, con, 3, 3
%>
<select name="cliente">
<% while Not rs.EOF %>
<option value="<%=rs("cliente")%>&quo t;><%=rs("cliente")%></option>
<% rs.MoveNext
Wend %>
</select>
es solo un ejemplo, espero te sirva,
solo llena un combo desde una base de datos.
<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">