<%dim stdcon set stdcon=server.createobject("adodb.connection") stdcon.open "provider=microsoft.jet.oledb.4.0;data source=g:\wd\register1.mdb" %> <%dim re set re=server.createobject("adodb.recordset") %> <% re.AddNew re("USERNAME")=request.form("t1") re("PASSWORD")=request.form("t2") re.Update %> <% for each fin in re.fields %> <% next %> <% dim sln sln=1 do while not re.eof %> <% for each fin in re.fields %> <% next %> <% re.movenext sln=sln + 1 loop %>

<% dim fin re.movefirst response.write("sl.no")%>	<%response.write(fin.name)%>
<% response.write(sln)%>	<% response.write(fin.value) %>

<% re.close stdcon.close set re=nothing set stdcon=nothing %>