<% if Session("username")="" then Response.Redirect("Login.asp") end if %> ASP Demo

Customers

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open("C:\WebData\Northwind.mdb") set rs = Server.CreateObject("ADODB.recordset") rs.Open "Select CompanyName, City, Country FROM Customers", conn %> <%do until rs.EOF%> <%for each x in rs.Fields%> <%next%> <% rs.MoveNext loop %>
NameCityCountry
<%Response.Write(x.value)%>
<% rs.close conn.close %>