set conn=server.createobject("ADODB.Connection")
sql="driver={sql server};database=Color4day;server=202.108.43.29;uid=sa;pwd=go4map"
conn.open sql
set rs = server.createobject("ADODB.Recordset")
s_sql = "select * from tablename"
rs.open s_sql,conn,1,3
while not rs.eof
aa=rs("field1")
rs.movenext
Wend