<%
dim connstr
connstr="Driver={SQLServer};server=.;database=zz;uid=sa;pwd=0106;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set rs= Server.CreateObject("ADODB.RecordSet")
response.write"idaabb"& "
" sql="Select * From mdb"
rs.open sql,conn,1,1 do whil