<html>
<head>
<title>
</title>
</head>
<body>
<%
Set cn = Server.CreateObject("ADODB".Connection")
cn.Open "Company"
Set rs =cn.Execute "SELECT FirstName,LastName FROM Employees"
rs.MoveFirst
Do While Not rs.EOF
Response.Write " First Name : " & rs("FirstName") & " Last Name: " & rs("LastName") & "<BR>"
rs.Movenext
Loop
%>
</body>
</html>
|