<%@ Language=VBScript %> <%Response.Buffer=true%>
<% dim con,rs,i,count set con=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") strDSNPath = "PROVIDER=MSDASQL;" strDSNPath = strDSNPath & "DRIVER={Microsoft Access Driver (*.mdb)};" strDSNPath = strDSNPath & "DBQ=" & Server.MapPath("online.mdb") & ";" con.open strDSNPath %>
Customers List
<% str="select customerid,CustomerName from customer_mst order by customername" rs.Open str,con,2,2 count=0 while not rs.EOF count=count+1 %> <% rs.MoveNext wend rs.Close con.Close set rs=nothing set con=nothing %>
<%=count%>&value=1"><%=rs.Fields("CustomerName")%>

Home