<% txtfilename="cft.txt" set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("new1/upload/" & txtfilename)) do while not f.AtEndOfStream temp=f.ReadAll loop f.close set f=nothing set fs=nothing %> <% sqlmaxcontact="select max(Id) from tblusers" set rsmaxcontact=conn.execute(sqlmaxcontact) maxidcontact=cint(rsmaxcontact.fields(0)) if(maxidcontact>=1)then sqlcontact="select * from tblusers where id="& maxidcontact set rscontact=conn.execute(sqlcontact) end if %> <% status=request.QueryString("log") if status = "out" then Session("username")="" end if %>
User Name : 
Password : 
Forgot Password New User
Funding Policy

The website is created and maintained out of self-accrued funds and no help is sought from any other individual/ organization either for or not-for profit. No funds have been sought from any commercial organizations for this purpose.