<% txtfilename="aboutus.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 %> <% sql="select * from tblfaq order by faqid desc" set rs=conn.execute(sql) %> <% status=request.QueryString("log") if status = "out" then Session("username")="" end if %>