<% 'on error resume next Dim Nme Dim PassCode Dim Add Dim Cntry Dim Phne Dim Eml DIm fascimile Dim Comm Nme = request.form("name") PassCode = request.form("pass") Add = request.form("address") Cntry = request.form("country") Phne = request.form("tel") fasc = request.form("fax") Eml = request.form("email") Dim AdoCon Dim RsEnq Dim SQLEN Dim RsCHck Dim SQLChck Dim WhatsTheMessage set AdoCon = server.createobject("ADODB.CONNECTION") set RsEnq = server.createobject("ADODB.RECORDSET") set RsCHck = server.createobject("ADODB.RECORDSET") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") SQLChck = "select * from registrations where Visname ='" & Nme & "'" SQLEN ="INSERT INTO registrations VALUES('" & Nme &"','" & PassCode &"','" & Add &"','" & Cntry&"','" & Phne &"','" & fasc &"','" & Eml &"')" RsCHck.Open SQLChck, AdoCon,3,3 if RsCHck.recordcount = 0 then RsEnq.Open SQLEN, AdoCon,3,3 WhatsTheMessage="Sucess" else WhatsTheMessage="Fail" end if %> Register | Future Homes LLC
 
   New Users Register

<% If WhatsTheMessage="Fail" then%> <%else%> <%end if%>
 We could not register you possibly for the following reasons:
   The user name has already been taken  
   Please try with some other user name  
  <--Click here to go back  
 You have been successfully registered
  Click here to Login-->  
 About us |  Disclaimer |  Mortgages | Careers
 
This website and all content is copyright© - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy