<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rst=Server.CreateObject("ADODB.Recordset")
conn.Open "Provider=SQLOLEDB;Data Source=win2000;Initial Catalog=Northwind;User ID=sa;Password=lgj1012;"
strsql = "select top 10 shipcity,Customerid,freight from orders where freight>50 and freight<120 "
Rst.Open strsql,conn,1,1