<%set conn=server.createobject("adodb.connection")conn.Open"Driver={SQL Server};Server=(local);database=msdb;uid=guest;pwd=;"sql1="select * from classmate"set rs=conn.execute(sql1)response.write"<table align=center>"response.write"<tr align=center>"for i=0 to re.fields.count-1response.write"<td>" & rs.fields(i).nameresponse.write"</td>"nextresponse.write"</tr>"do while rs.eof()response.write"<tr>"for i=0 to rs.fields(i).count-1response.write"<td>" & rs.fields(i).valueresponse.write"</td>"nextresponse.write"</tr>"rs.movenextlooprs.closeset rs=nothingconn.closeset conn=nothing%>