%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"
fp_conn.Open Application("EmplServices_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(12)
Dim arFormDBFields0(12)
Dim arFormValues0(12)
arFormFields0(0) = "title"
arFormDBFields0(0) = "title"
arFormValues0(0) = Request("title")
arFormFields0(1) = "ContactZip"
arFormDBFields0(1) = "ContactZip"
arFormValues0(1) = Request("ContactZip")
arFormFields0(2) = "j"
arFormDBFields0(2) = "j"
arFormValues0(2) = Request("j")
arFormFields0(3) = "ContactState"
arFormDBFields0(3) = "ContactState"
arFormValues0(3) = Request("ContactState")
arFormFields0(4) = "length"
arFormDBFields0(4) = "length"
arFormValues0(4) = Request("length")
arFormFields0(5) = "ContactCity"
arFormDBFields0(5) = "ContactCity"
arFormValues0(5) = Request("ContactCity")
arFormFields0(6) = "description"
arFormDBFields0(6) = "description"
arFormValues0(6) = Request("description")
arFormFields0(7) = "ContactName"
arFormDBFields0(7) = "ContactName"
arFormValues0(7) = Request("ContactName")
arFormFields0(8) = "Contactaddress"
arFormDBFields0(8) = "Contactaddress"
arFormValues0(8) = Request("Contactaddress")
arFormFields0(9) = "salary"
arFormDBFields0(9) = "salary"
arFormValues0(9) = Request("salary")
arFormFields0(10) = "Contactemail"
arFormDBFields0(10) = "Contactemail"
arFormValues0(10) = Request("Contactemail")
arFormFields0(11) = "Contactphone"
arFormDBFields0(11) = "Contactphone"
arFormValues0(11) = Request("Contactphone")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
End If
FP_SaveFieldToDB fp_rs, Now, "Timestamp"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
End If
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Response.Redirect "Thankyou-posted.htm"
End If
End If
%>
Employer Services
|
|
 |
As an
international company we recruit and hire national and
international professionals. Local recruiting is done out of our
offices in New York and New Jersey. We place short and long term
consultants and permanent IT professionals. International
recruiting is done out of our corporate office in New
York.
We have distinguished ourselves
from competitors by our Consultants and recruiters being
industry leaders in their respective fields. Our Consultants
spend thousands of hours on diversified technology as they work
on various projects at different companies. During down time we
offer many hours on training to keep them up to date on leading
edge technology.
Search our database for a
specialist
|
|
|
|
|
|
 |
 |
|
|