Register | Future Homes LLC

<% '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

<% 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 |