Batman needs Robin

<%
	Dim cnObj
	Dim rsObj
	
	Dim ConnectString

	ConnectString = "Provider=SQLOLEDB.1;Server=ServerName;UID=sa;Datab  ase=Students"
	
	Set cnObj = CreateObject("ADODB.Connection")
	cnObj.Open ConnectString


	Set rsObj = CreateObject("ADODB.RecordSet")

	sqlSel = "SELECT FirstName FROM Students"
	rsObj.Open sqlSel, cnObj

	If Not(rsObj.EOF and rsObj.BOF) Then
 	  
	 ' Move to the first record in the database 
	  rsObj.MoveFirst
   
         ' Move to the next record in the database 
	  rsObj.MoveNext
	  
	  Response.Write "<table>"
	  Response.Write "  <tr>"
	  Response.Write "    <td>Here is all, except the first student.</td>"
	  Response.Write "  </tr>" 

           	
          
          While Not rsObj.EOF
            If Not IsNull(rsObj("FirstName")) Then
	      Response.Write "  <tr>"
              Response.Write "    <td>" & rsObj("FirstName") & "</td>"
              Response.Write "  </tr>"
            End If

	    rsObj.MoveNext
	  Wend
	  Response.Write "</table>"

	End If



	rsObj.Close
	cnObj.Close	

	Set rsObj = Nothing
	Set cnObj = Nothing
%>