LAB 5

HERE IS THE RESULT OF YOUR QUERY

<%
  
 
Dim objConn
	Dim objRec
        Dim strConn
        'Dim result
	pubSQL = "SELECT pub_name,city From publishers;"
  
        Set objConn = Server.CreateObject("ADODB.Connection")
	Set objRec = Server.CreateObject("ADODB.Recordset")
       ' Set objGetit = Server.CreateObject("ADODB.Command")
         objConn.Open strConnect 
        ' strConnect
	%>

<%              
  
         objRec.Open pubSQL, objConn
         
     

%>
    
     <%
       while Not objRec.EOF
        Response.Write "" & objRec("pub_name") & ", " & objRec("city")  & "
"
   objRec.MoveNext
   
Wend
 objRec.Close
 objConn.Close
set objRec = Nothing
%>