<% Dim Cnn,strsql,rsnationality,rscat Set Cnn=Server.CreateObject("ADODB.Connection") Set rsnationality =Server.Createobject("Adodb.recordset") With cnn .Provider = "SQLOLEDB" .ConnectionString = Application("SqlConnectionString") .Open End With strsql="Select Distinct Countryname from countries Order by Countryname" rsnationality.open strsql,Cnn Set rscat =Server.Createobject("Adodb.recordset") strsql="Select distinct Category from Jobcategory Order by category" rscat.open strsql,Cnn dim musername,mpassword,mtitle,mfirstname,mlastname,mcompany,mcountry,mdesignation,memail,mPhone,mMobile Dim errmsg,mtypeofbiz,mCity,mUrl If request.querystring("Updt")="T" then musername=Request.form("username") mpassword=Request.form("pswd") mtitle=Request.form("Title") mFirstname=Request.form("Firstname") mLastname=Request.form("Lastname") mCompany=Request.form("company") mCountry=Request.form("Country") mdesignation=Request.form("Designation") memail=Request.form("username") mPhone=Request.form("Phone") mMobile=Request.form("Mobile") mTypeofbiz=Request.form("Typeofbiz") mRemark=Request.form("remark") mCity=Request.form("city") mUrl=Request.form("url") If len(musername) < 8 then errmsg="Username should have minimum 8 characters" If len(mpassword) < 5 then errmsg=errmsg +" Password should have minimum 5 characters" If mtitle ="" then errmsg=errmsg +" Title not selected" If len(mfirstname) < 2 then errmsg=errmsg +" Firstname not entered " If len(mLastname) < 2 then errmsg=errmsg +" Lastname not entered " If len(mcountry) < 2 then errmsg=errmsg +" country not selected " If len(mDesignation) < 2 then errmsg=errmsg +" Designation not selected " If len(mcompany) < 3 then errmsg=errmsg +" Company not enetered " If errmsg="" then Dim rsinetclients Set rsinetclients =Server.Createobject("Adodb.recordset") strsql="Select * from inetclients where username like '" & musername & "'" rsinetclients.open strsql,Cnn,adopendynamic,adlockpessimistic,adcmdtext If not rsinetclients.eof then errmsg="This Email ID is already exists" Else rsinetclients.Addnew rsinetclients("username") =musername rsinetclients("Password")=mPassword rsinetclients("Title")=mTitle rsinetclients("Firstname")=mfirstname rsinetclients("Lastname")=mLastname rsinetclients("Designation")=mDesignation rsinetclients("Company") =mcompany rsinetclients("Country") =mcountry rsinetclients("city")=mcity rsinetclients("url")=mUrl rsinetclients("Phone")=mphone rsinetclients("Typeofbiz")=mTypeofbiz rsinetclients("datejoined")=date rsinetclients("datelastlogin")=date rsinetclients("Email")=memail rsinetclients("Clientupdated")=0 rsinetclients("Remark")=mremark rsinetclients("checked")="" rsinetclients("checkedby")="" rsinetclients.Update rsinetclients.close session("Username")=mUsername session("Usertype")="E" rsnationality.close cnn.close Set rsnationality = Nothing Set rsinetclients = nothing Set rsapplicants = Nothing Set rssettings = Nothing Set cnn = Nothing 'Sending Mail************************ Dim strhtml strhtml="" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "

Dear " & Mtitle &" " & mfirstname & " " & mlastname & ",

Thank you for visiting and registering your name in our site http://www.apthrd.com, " strhtml=strhtml & "

" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "

Your User Id is :	" & musername &"
Your Password is:	" & mpassword & "

" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "with best wishes," strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "APT HR" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" strhtml=strhtml & "" err.clear On error resume next Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") mySmartMail.Server = "mail.webhost4life.com" mySmartMail.SenderName = "APT-Recruitment" mySmartMail.SenderAddress = "info@apthrd.com" mySmartMail.Recipients.Add memail mySmartMail.Subject = "Registration Details" mySmartMail.Body = strHTML mySmartMail.ContentType = "text/html" mySmartMail.SendMail Set mySmartMail = Nothing Response.Redirect("LoginhomeE.asp") Response.End End If End If End If %> Apt - Human Resource & Management Consultancy

Are you a looking for a job? then Click here

NEW EMPLOYER REGISTRATION

If you are already registered....login here

	<% If errmsg<>"" then link="" Response.write(link) Response.write("") Response.write(errmsg) Response.write("") End if %>
EmailID*	(Atleast 6 characters)
Password*	(Atleast 6 characters)
Confirm Password*
*First Name
*Last Name
*Company
*Designation
*Country		City
*Telephone	Mobile
Type of Business
Web address
Requirement	<%=mremark%>

About Us - Our Clients - Jobseeker - Feedback - Employer

<% rscat.close rsnationality.close cnn.Close set rscat= nothing Set rsnationality = Nothing Set rsinetclients = nothing Set cnn = Nothing %>