<%@ language=VBScript %>
<%
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "Provider=SQLOLEDB; Data Source=uXXXXX.mssql.masterhost.ru; Initial Catalog=uXXXXX; User Id=uXXXXX; Password=XXXXXXXXX; autoReconnect=true"

	sql = "SELECT [code], [date_st], [date_end] FROM [rasp] ORDER BY [date_st] ASC"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, conn,  1 

	rs.MoveFirst
	do while Not rs.eof
%>
		<%=rs.Fields("code").Value%> 
<%
		rs.MoveNext
	loop

	rs.Close
	Set rs = Nothing

	conn.Close
	Set conn = Nothing
%>