<%
Set oConn= server.CreateObject("ADODB.Connection")
oConn.connectionString = "driver={SQL Server}; server=SERVAP; database=TEMPFORMARKET; uid=sa; pwd=123"
oConn.Open

Set oRS1 = Server.CreateObject("ADODB.RecordSet")

sSQL = "SELECT FIO, MAIL FROM dbo.АДРЕСНАЯ_КНИГА"

oRS1.Open sSQL, oConn

%>

<form method="POST" target="main" action="SMTP_IN.asp?fmail=" & ЧТО НУЖНО ЗДЕСЬ НАПИСАТЬ??? >

	<select size="1" name="list" onchange=Ch()>
	<%
	Do While Not oRS1.EOF
	response.write oRS1.Fields( 0 )
	%>
	<option value = <%=oRS1.Fields( 0 )%>> <%=oRS1.Fields( 0 )%></option>
	<%
	oRS1.MoveNext	
	loop
	oRS1.Close
	%>	
	</select><p>
	
	<INPUT TYPE=Submit VALUE="Submit"></p>
</form