<%@ Language=VBScript %>
<%
'if trim(Request.ServerVariables("http_referer"))="" then
' Response.Redirect "default.htm"
'end if
%>
WELCOME TO RESX ANALYTICS LLC :: Careers
<%
On Error resume Next
if trim(request("BtnSubmit"))="Submit" then
''' add the record to database table tbl_sis_analysts
''' add code to access the Stored Procedure
if cint(len(trim(request("Skills"))))>2000 then%>
Error giving Data
Check the data given cannot be more than 2000 charaters
<%Response.End
end if
dim workExp, UGEducation, PGEducation, PostApplied
workExp = ""
PGEducation = ""
UGEducation = ""
for i = 1 to 3
if trim(request("Company"&i&""))<>"" then
workExp = workExp & "Year :"& trim(Request("Year"&i&"")) & " Company : "& trim(Request("Company"&i&"")) & " Location : "& trim(Request("Location"&i&"")) & " "
end if
next
'''PostApplied
if trim(request("chktype"))<>"" then
'PostApplied = PostApplied & " " & trim(request("chktype"))
PostApplied = trim(request("chktype"))
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''
if trim(PostApplied)="" then
'''PostApplied = "as applicable"
PostApplied = "none selected"
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''
if trim(request("BCA"))<>"" then
if trim(UGEducation)<>"" then
UGEducation = UGEducation & ", " & trim(request("BCA"))
else
UGEducation = trim(request("BCA"))
end if
end if
if trim(request("BSC"))<>"" then
if trim(UGEducation)<>"" then
UGEducation = UGEducation & ", " & trim(request("BSC"))
else
UGEducation = trim(request("BSC"))
end if
end if
if trim(request("BCom"))<>"" then
if trim(UGEducation)<>"" then
UGEducation = UGEducation & ", " & trim(request("BCom"))
else
UGEducation = trim(request("BCom"))
end if
end if
if trim(request("BA"))<>"" then
if trim(UGEducation)<>"" then
UGEducation = UGEducation & ", " & trim(request("BA"))
else
UGEducation = trim(request("BA"))
end if
end if
if trim(request("DegreeUG"))<>"" then
if trim(UGEducation)<>"" then
UGEducation = UGEducation & " :: Others :: " & trim(request("DegreeUG"))
else
UGEducation = "Others :: " & trim(request("DegreeUG"))
end if
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if trim(request("MBA"))<>"" then
if trim(PGEducation)<>"" then
PGEducation = PGEducation & ", " & trim(request("MBA"))
else
PGEducation = trim(request("MBA"))
end if
end if
if trim(request("PGDBA"))<>"" then
if trim(PGEducation)<>"" then
PGEducation = PGEducation & ", " & trim(request("PGDBA"))
else
PGEducation = trim(request("PGDBA"))
end if
end if
if trim(request("PGDBM"))<>"" then
if trim(PGEducation)<>"" then
PGEducation = PGEducation & ", " & trim(request("PGDBM"))
else
PGEducation = trim(request("PGDBM"))
end if
end if
if trim(request("MA"))<>"" then
if trim(PGEducation)<>"" then
PGEducation = PGEducation & ", " & trim(request("MA"))
else
PGEducation = trim(request("MA"))
end if
end if
if trim(request("MCOM"))<>"" then
if trim(PGEducation)<>"" then
PGEducation = PGEducation & ", " & trim(request("MCOM"))
else
PGEducation = trim(request("MCOM"))
end if
end if
if trim(request("MSC"))<>"" then
if trim(PGEducation)<>"" then
PGEducation = PGEducation & ", " & trim(request("MSC"))
else
PGEducation = trim(request("MSC"))
end if
end if
if trim(request("Degree"))<>"" then
if trim(PGEducation)<>"" then
PGEducation = PGEducation & " :: Others :: " & trim(request("Degree"))
else
PGEducation = "Others :: " & trim(request("Degree"))
end if
end if
''' check to see if data is empty
if trim(workExp)="" then
workExp = "No Experience"
end if
if trim(PGEducation)="" then
PGEducation = "No Degree Specified"
end if
''' check
if trim(request("YearPassed"))="" then
YearPassed = 0
else
YearPassed = trim(request("YearPassed"))
end if
''' age
if trim(request("Age"))="" then
usrAge = 0
else
usrAge = trim(request("Age"))
end if
''' DOB
if trim(request("datevalue"))="" then
usrAge = usrAge & "## Date of Birth:" & 0
else
usrAge = usrAge & "## Date of Birth(mmddyyyy):" & trim(request("datevalue"))
end if
dim varfathername,varOccupation
varfathername = trim(request("FatherName"))
// IF trim(request("MotherName"))<>"" then
varfathername = varfathername & "## Mother`s Name: "&trim(request("MotherName"))
// END If
varOccupation = trim(request("Fatheroccupation"))
// IF trim(request("Motheroccupation"))<>"" then
varOccupation = varOccupation & "## Mother`s Occupation: "&trim(request("Motheroccupation"))
// END If
// IF trim(request("SpouseName"))<>"" then
// varfathername = varfathername & "## Spouse Name: "&trim(request("SpouseName"))
// else
varfathername = varfathername & "## Spouse Name: --"
// END If
// IF trim(request("Spouseoccupation"))<>"" Then
// varOccupation = varOccupation & "## Spouse Occupation: "&trim(request("Spouseoccupation"))
// else
varOccupation = varOccupation & "## Spouse Occupation: --"
// END If
''''''''Sibling(s)
// IF trim(request("SiblingName"))<>"" then
varfathername = varfathername & "## Sibiling`s Name: "&trim(request("SiblingName"))
// END If
// IF trim(request("Siblingoccupation"))<>"" then
varOccupation = varOccupation & "## Sibiling`s Occupation: "&trim(request("Siblingoccupation"))
// END If
IF trim(request("txtAMCATest")) <> "" THEN
VARAMCATest=trim(request("txtAMCATest"))
else
VARAMCATest=0
END IF
''' call the stored procedure to insert data into the table
con.open "Provider="&drivertype&";data source="&servertype&";uid="&userid&";pwd="&pwd&";initial catalog="&trim(dbname)
'response.write "Provider="&drivertype&";data source="&servertype&";uid="&userid&";pwd="&pwd&";initial catalog="&trim(dbname)
set cmdEdit=server.CreateObject("ADODB.Command")
cmdEdit.ActiveConnection = con
If Err.number <> 0 then
Response.write Err.description & " test"
Response.end
End If
MyUser_Name=trim(request("Name"))
MySurName=trim(request("SurName"))
MyUser_Address=replace(trim(request("Address")),"'","''")
MyPermanent_Address=replace(trim(request("PermanentAddress")),"'","''")
MyUser_Gender=trim(request("Gender"))
MyMarital_status=trim(request("MStatus"))
MyTasks_performed=replace(trim(request("Tasks")),"'","''")
MyUser_Age=trim(usrAge)
MyUser_Phone=trim(request("Phone"))
MyUser_Email=trim(request("Email"))
MyFathers_Name=replace(trim(varfathername),"'","''")
MyFathers_Occupation=replace(trim(varOccupation),"'","''")
MyEducation_UG=trim(UGEducation)
MyEducation_PG=trim(PGEducation)
MyYear_Passed=trim(YearPassed)
MyPercentage_Scored=trim(request("txtpercentage"))
MyEmp_status=trim(request("CurrentEmp"))
MyEmp_Type=trim(request("EmpStatus"))
MyWork_Experience=replace(trim(workExp),"'","''")
MySpoken_English=trim(request("Spoken"))
MyWritten_Skills=trim(request("Written"))
MyWindows_Skills=trim(request("Windows"))
MyKeyboard_Skills=trim(request("Keyboard"))
MyWord_Skills=trim(request("Word"))
MyExcel_Skills=trim(request("Excel"))
if trim(request("TxtDisabilities"))= "" then
MyAccess_Skills="No"
else
MyAccess_Skills=replace(trim(request("TxtDisabilities")),"'","''")
end if
MySpecial_Skills=replace(trim(request("Skills")),"'","''")
MyUpdated_By="Admin"
MyUser_Status=1
MyReason_Update=""
MyAdmin_Status=1
MyPost_Applied=trim(PostApplied)
MyCurrentSalary=trim(request("txtCurrentSal"))
MyExpectedSalary=trim(request("txtExpectedSal"))
MyUser_AlternateEmail=trim(request("AltEmail"))
MyLocation="Hyderabad"
MyApplicant_Status=0
MyApplicant_Remarks="Pending"
MyApplicationfor="resx"
MyAMCATPercentile=VARAMCATest
sqlins="INSERT INTO TBL_SIS_Applications (Rec_ID,User_Name,SurName,User_Address,Permanent_Address,User_Gender,Marital_status,Tasks_performed,User_Age,User_Phone,User_Email,Fathers_Name,Fathers_Occupation,Education_UG,Education_PG,Year_Passed,Percentage_Scored,Emp_status,Emp_Type,Work_Experience,Spoken_English,Written_Skills,Windows_Skills,Keyboard_Skills,Word_Skills,Excel_Skills,Access_Skills,Special_Skills,Date_Created,Date_Updated,Updated_By,User_Status,Reason_Update,admin_Status,Post_Applied,CurrentSalary,ExpectedSalary,User_AlternateEmail,Location,Applicant_Status,Applicant_Remarks,Applicationfor,AMCATPercentile ) VALUES (dbo.[GetMaxTBL_SIS_Applications](),'" & MyUser_Name & "','" & MySurName & "','" & MyUser_Address & "','" & MyPermanent_Address & "','" & MyUser_Gender & "','" & MyMarital_status & "','" & MyTasks_performed & "','" & MyUser_Age & "','" & MyUser_Phone & "','" & MyUser_Email & "','" & MyFathers_Name & "','" & MyFathers_Occupation & "','" & MyEducation_UG & "','" & MyEducation_PG & "','" & MyYear_Passed & "','" & MyPercentage_Scored & "','" & MyEmp_status & "','" & MyEmp_Type & "','" & MyWork_Experience & "','" & MySpoken_English & "','" & MyWritten_Skills & "','" & MyWindows_Skills & "','" & MyKeyboard_Skills & "','" & MyWord_Skills & "','" & MyExcel_Skills & "','" & MyAccess_Skills & "','" & MySpecial_Skills & "',getdate(),getdate(),'" & MyUpdated_By & "','" & MyUser_Status & "','" & MyReason_Update & "','" & MyAdmin_Status & "','" & MyPost_Applied & "','" & MyCurrentSalary & "','" & MyExpectedSalary & "','" & MyUser_AlternateEmail & "','" & MyLocation & "','" & MyApplicant_Status & "','" & MyApplicant_Remarks & "','" & MyApplicationfor & "','" & MyAMCATPercentile & "')"
'Check phone no and email and alternate email existis
Set RsAPPCheck = Server.CreateObject("ADODB.Recordset")
RsAPPCheck.ActiveConnection = con
usqlCheck="select * from TBL_SIS_Applications where User_Phone = '"&trim(MyUser_Phone)&"' or User_email in ('" & MyUser_Email & "','" & MyUser_AlternateEmail & "') or user_alternateemail in ('"& MyUser_Email & "','" & MyUser_AlternateEmail & "')"
RsAPPCheck.Open usqlCheck
'Response.write usqlCheck & " for test"
'Response.end
'' IF not RsAPPCheck.EOF Then
'' loadedval=0
'' Response.write ("record Exists")
'Response.End
'' Else
con.execute sqlins
loadedval=1
loadedval=1
'' Response.write ("No record")
'' End if
Set RsAPPCheck = Nothing
'Response.end
'response.write sqlins
'response.end
with cmdEdit
.CommandText = "SPTBL_SIS_Applications_BizAcu"
.CommandType = adcmdStoredProc
.Parameters.Append .CreateParameter ("@MyOption",advarchar,adparamInput,10,"INSERT")
.Parameters.Append .CreateParameter ("@MyRec_ID",adInteger,adparamInput,,0)
.Parameters.Append .CreateParameter ("@MyUser_Name",advarchar,adparamInput,50,trim(request("Name")))
.Parameters.Append .CreateParameter ("@MySurName",advarchar,adparamInput,20,trim(request("SurName")))
.Parameters.Append .CreateParameter ("@MyUser_Address",advarchar,adparamInput,500,trim(request("Address")))
.Parameters.Append .CreateParameter ("@MyPermanent_Address",advarchar,adparamInput,500,trim(request("PermanentAddress")))
.Parameters.Append .CreateParameter ("@MyUser_Gender",advarchar,adparamInput,10,trim(request("Gender")))
.Parameters.Append .CreateParameter ("@MyMarital_status",advarchar,adparamInput,25,trim(request("MStatus")))
.Parameters.Append .CreateParameter ("@MyTasks_performed",advarchar,adparamInput,1500,trim(request("Tasks")))
.Parameters.Append .CreateParameter ("@MyUser_Age",advarchar,adparamInput,50, trim(usrAge))
.Parameters.Append .CreateParameter ("@MyUser_Phone",advarchar,adparamInput,15,trim(request("Phone")))
.Parameters.Append .CreateParameter ("@MyUser_Email",advarchar,adparamInput,50,trim(request("Email")))
.Parameters.Append .CreateParameter ("@MyFathers_Name",advarchar,adparamInput,500,trim(varfathername))
.Parameters.Append .CreateParameter ("@MyFathers_Occupation",advarchar,adparamInput,500,trim(varOccupation))
.Parameters.Append .CreateParameter ("@MyEducation_UG",advarchar,adparamInput,500,trim(UGEducation))
.Parameters.Append .CreateParameter ("@MyEducation_PG",advarchar,adparamInput,500,trim(PGEducation))
.Parameters.Append .CreateParameter ("@MyYear_Passed",advarchar,adparamInput,50,trim(YearPassed))
.Parameters.Append .CreateParameter ("@MyPercentage_Scored",advarchar,adparamInput,10,trim(request("txtpercentage")))
.Parameters.Append .CreateParameter ("@MyEmp_status",advarchar,adparamInput,5,trim(request("CurrentEmp")))
.Parameters.Append .CreateParameter ("@MyEmp_Type",advarchar,adparamInput,20,trim(request("EmpStatus")))
.Parameters.Append .CreateParameter ("@MyWork_Experience",advarchar,adparamInput,7900,trim(workExp))
.Parameters.Append .CreateParameter ("@MySpoken_English",advarchar,adparamInput,10,trim(request("Spoken")))
.Parameters.Append .CreateParameter ("@MyWritten_Skills",advarchar,adparamInput,10,trim(request("Written")))
.Parameters.Append .CreateParameter ("@MyWindows_Skills",advarchar,adparamInput,10,trim(request("Windows")))
.Parameters.Append .CreateParameter ("@MyKeyboard_Skills",advarchar,adparamInput,10,trim(request("Keyboard")))
.Parameters.Append .CreateParameter ("@MyWord_Skills",advarchar,adparamInput,10,trim(request("Word")))
.Parameters.Append .CreateParameter ("@MyExcel_Skills",advarchar,adparamInput,10,trim(request("Excel")))
.Parameters.Append .CreateParameter ("@MyAccess_Skills",advarchar,adparamInput,10,trim(request("Access")))
.Parameters.Append .CreateParameter ("@MySpecial_Skills",advarchar,adparamInput,7900,trim(request("Skills")))
.Parameters.Append .CreateParameter ("@MyUpdated_By",advarchar,adparamInput,10,"Admin")
.Parameters.Append .CreateParameter ("@MyUser_Status",adInteger,adparamInput,,1)
.Parameters.Append .CreateParameter ("@MyReason_Update",advarchar,adparamInput,500,null)
.Parameters.Append .CreateParameter ("@MyAdmin_Status",adInteger,adparamInput,,1)
.Parameters.Append .CreateParameter ("@MyPost_Applied",advarchar,adparamInput,500,trim(PostApplied))
.Parameters.Append .CreateParameter ("@MyCurrentSalary",advarchar,adparamInput,10,trim(request("txtCurrentSal")))
.Parameters.Append .CreateParameter ("@MyExpectedSalary",advarchar,adparamInput,10,trim(request("txtExpectedSal")))
.Parameters.Append .CreateParameter ("@MyUser_AlternateEmail",advarchar,adparamInput,60,trim(request("AltEmail")))
.Parameters.Append .CreateParameter ("@MyLocation",advarchar,adparamInput,15,"Hyderabad")
''.Parameters.Append .CreateParameter ("@MyLocation",advarchar,adparamInput,15,trim(request("Location")))
.Parameters.Append .CreateParameter ("@MyApplicant_Status",adInteger,adparamInput,,0)
.Parameters.Append .CreateParameter ("@MyApplicant_Remarks",advarchar,adparamInput,15,"Pending")
.Parameters.Append .CreateParameter ("@MyApplicationfor",advarchar,adparamInput,15,"Bizacumen")
.Parameters.Append .CreateParameter ("@MyAMCATPercentile",adInteger,adparamInput,,VARAMCATest)
.Parameters.Append .CreateParameter ("@MyResult",adInteger,adParamOutput,,1)
' .Execute
end with
' loadedval = cmdEdit.Parameters("@MyResult")
' Response.write ("INSERT INTO TBL_SIS_Applications (Rec_ID,User_Name,SurName,User_Address,User_Age,User_Phone,User_Email,Fathers_Name,Fathers_Occupation,Education_UG,Education_PG,Year_Passed,Percentage_Scored,Emp_status,Emp_Type,Work_Experience,Spoken_English,Written_Skills,Windows_Skills,Keyboard_Skills,Word_Skills,Excel_Skills,Access_Skills,Special_Skills,Date_Created,Date_Updated,Updated_By,User_Status,Reason_Update,admin_Status,Post_Applied,CurrentSalary,ExpectedSalary,User_AlternateEmail,Location,Applicant_Status,Applicant_Remarks,Applicationfor) VALUES (")
' Response.write ("INSERT,0," & trim(request("Name")) & "," & trim(request("SurName")) & "," & trim(request("Address")) & "," & TRIM(usrAge) & "," & trim(request("Phone")) & "," & trim(request("Email")) & "," & trim(varfathername) & "," & trim(varOccupation) & "," & trim(UGEducation) & "," & trim(PGEducation) & "," & trim(YearPassed) & "," & trim(request("txtpercentage")) & "," & trim(request("CurrentEmp")) & "," & trim(request("EmpStatus")) & "," & trim(workExp) & "," & trim(request("Spoken")) & "," & trim(request("Written")) & "," & trim(request("Windows")) & "," & trim(request("keyboard")) & "," & trim(request("word")) & "," & trim(request("excel")) & "," & trim(request("access")) & "," & trim(request("skills")) & ",'admin',0,null,1," & trim(PostApplied) & "," & trim(request("txtCurrentSal")) & "," & trim(request("txtExpectedSal")) & "," & trim(request("AltEmail")) & "," & trim(request("Location")) & "," & "0,'pending','hyderabad'")
'Response.write("for testing purpose " & loadedval)
' Response.end
'response.write workExp
If Err.number <> 0 then
Response.write Err.description
err.clear
'Response.end
End If
' Response.write("for testing purpose " & loadedval)
'Response.end
set cmdEdit = nothing
con.close()
Response.Redirect ("Frm_Submit_info.asp?acttype="&loadedval&"&name="&trim(request("Name"))&"")
end if
%>
