<%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")
%>
register online
<% re.AddNew
re("USERNAME")=request.form("t1")
re("PASSWORD")=request.form("t2")
re.Update %>
| <% dim fin
re.movefirst
response.write("sl.no")%> |
<% for each fin in re.fields %>
<%response.write(fin.name)%> | <% next %>
<% dim sln
sln=1
do while not re.eof %>
| <% response.write(sln)%> |
<% for each fin in re.fields %>
<% response.write(fin.value) %> |
<% next %>
<% re.movenext
sln=sln + 1
loop %>
<% re.close
stdcon.close
set re=nothing
set stdcon=nothing %>
