<% txtfilename="home.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 %>
design
master master master master links master master
 
User Name : 
Password : 
 
read
Forgot Password New User
design
header
Salutation :     

First Name*:

 

Last Name*:

 

Designation :

 

 

 

E-Mail*:

 

Hospital/Organisation*:

 

Address*:

 

City*:

 

State/Province*:

 

Country*:

 

Zip*:

 

Home Tel No.*:

 

Mobile No. :

 
Speciality*:    
 

User Name*:

 

Password*:

 

Confirm Password*: