<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%if request("mode")="update" then
set rs=server.CreateObject("adodb.recordset")
set cn=server.CreateObject("adodb.connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..") & "\egreetings\data\greetings.mdb;"
rs.open "select * from userinfo where active=false",cn,3,2%>
| Model Id | Name | New Password |
<%
do until rs.eof
sno=rs("sno")
rs("password1")=rs("password1")&sno
rs("password2")=rs("password2")&sno
rs.update
%>
| <%=rs("sno")%> | <%=rs("name")%> | <%=rs("password1")%> |
<%
rs.movenext
loop
%>
<%else%>
<%end if%>