<% Set rs = Server.CreateObject( "ADODB.Recordset" ) rs.Open "select * from users_ads where is_checked=false order by ain",conn,1,3,8 If rs.RecordCount = 0 Then Response.Write "No new users" Else %> <% rs.MoveFirst Do while Not rs.EOF %> <% rs.MoveNext Loop %>

AIN

Sex

Name

Email

Phone

address

icq

Birthdate

length

weight

Sign

Smoker

City

Country

Occupation

Check

Delete

<%= rs.Fields("ain") %>

<%= rs.Fields("sex") %>

<%= rs.Fields("first_name") %>

"><%= rs.Fields("email") %>

<%= rs.Fields("phone") %>

<%= rs.Fields("address") %>

<%= rs.Fields("icq") %>

<%= rs.Fields("birth_date") %>

<%= rs.Fields("length") %>

<%= rs.Fields("weight") %>

<%= rs.Fields("zodiak_sign") %>

<%= rs.Fields("smoker") %>

<%= rs.Fields("city") %>

<%= rs.Fields("country") %>

<%= rs.Fields("occupation") %>

">Check

">Del

<% rs.Close End If %>