<% ' 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("hardware_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "emppost", 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(15) Dim arFormDBFields0(15) Dim arFormValues0(15) arFormFields0(0) = "partner" arFormDBFields0(0) = "partner" arFormValues0(0) = Request("partner") arFormFields0(1) = "CLASTNAME" arFormDBFields0(1) = "CLASTNAME" arFormValues0(1) = Request("CLASTNAME") arFormFields0(2) = "GOAL" arFormDBFields0(2) = "GOAL1" arFormValues0(2) = Request("GOAL") arFormFields0(3) = "WORKPHONE" arFormDBFields0(3) = "WORKPHONE" arFormValues0(3) = Request("WORKPHONE") arFormFields0(4) = "TITLE" arFormDBFields0(4) = "TITLE" arFormValues0(4) = Request("TITLE") arFormFields0(5) = "COMPANY_NAME" arFormDBFields0(5) = "COMPANY_NAME1" arFormValues0(5) = Request("COMPANY_NAME") arFormFields0(6) = "DEPT" arFormDBFields0(6) = "DEPT" arFormValues0(6) = Request("DEPT") arFormFields0(7) = "EMAIL" arFormDBFields0(7) = "EMAIL" arFormValues0(7) = Request("EMAIL") arFormFields0(8) = "CITY" arFormDBFields0(8) = "CITY" arFormValues0(8) = Request("CITY") arFormFields0(9) = "ADDRESS1" arFormDBFields0(9) = "ADDRESS1" arFormValues0(9) = Request("ADDRESS1") arFormFields0(10) = "ZIP" arFormDBFields0(10) = "ZIP" arFormValues0(10) = Request("ZIP") arFormFields0(11) = "ADDRESS2" arFormDBFields0(11) = "ADDRESS2" arFormValues0(11) = Request("ADDRESS2") arFormFields0(12) = "CFIRSTNAME" arFormDBFields0(12) = "CFIRSTNAME" arFormValues0(12) = Request("CFIRSTNAME") arFormFields0(13) = "STATE" arFormDBFields0(13) = "STATE" arFormValues0(13) = Request("STATE") arFormFields0(14) = "BUSINESS" arFormDBFields0(14) = "BUSINESS1" arFormValues0(14) = Request("BUSINESS") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" 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.htm" End If End If %> Hot jobs for Professionals with JD Edwards

Business People

Hot jobs for JD Edwards Software Professionals
Contract or Permanent

Employers Register Here.

You want to discuss our company or yours. Complete the form, enabling us to discuss your specialized needs.

We will contact you Immediately

Click Here to Post a Job Contact Us Home

<% Function FP_SaveFormFields(rs, rgFormFields, rgDBFields) On Error Resume Next Err.Clear Dim i For i = 0 To UBound(rgFormFields) FP_SaveFormField rs, rgFormFields(i), rgDBFields(i) Next Err.Clear End Function Function FP_SaveFormField(rs, strField, strDBField) On Error Resume Next Err.Clear If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then Exit Function End If FP_SaveFieldToDB rs, Request.Form(strField), strDBField Err.Clear End Function Function FP_SaveFieldToDB(rs, strField, strDBField) On Error Resume Next Err.Clear Dim fp_Debug fp_Debug = False Select Case rs(strDBField).Type Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt rs(strDBField) = CInt(strField) Case adSingle Or adDecimal Or adNumeric rs(strDBField) = CSng(strField) Case adDouble rs(strDBField) = CDbl(strField) Case adCurrency rs(strDBField) = CCur(strField) Case adBoolean rs(strDBField) = CBool(strField) Case adDate Or adDBDate Or adDBTime or adDBTimeStamp rs(strDBField) = CDate(strField) Case Else rs(strDBField) = CStr(strField) End Select If fp_Debug Then strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" Else strError = "Cannot save value to database field" End If FP_DumpError strErrorUrl, strError Err.Clear End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For Each item in Request.Form If item <> "VTI-GROUP" Then Response.Write "" & item & "" & ": " & Server.HTMLEncode(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) Dim fp_Debug fp_Debug = False If Err.Number <> 0 Then fp_conn.Close If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & Server.HTMLEncode(strMsg) & "

" If fp_Debug Then Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "

" Response.Write "Error Number: " & Server.HTMLEncode(Err.Number) & "

" Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "

" End If Response.End End If End if End Function %>

COMPANY ACCOUNT


Company Name *
Phone Number*

First Name of Contact*
         Last Name of Contact*

Title of Contact Person
Dept of Contact Person

Address 1
Address 2

City
State
Zip

Email

JD Edwards Business Partner

* Required Field

Company's Goal or Mission Statement

Type of Business the Company Conducts

Employers	Help	Post Job	Resume Count	Add Users	Modify Profile	Modify Post	Company Profiles	Register employer	Home
Job Seekers	Help	Register	Post Resume	Modify Resume	Modify Contact Info	Company Search	Job Search	Company Profiles	Home

Or Call Us!
Contact toll-free: 800-752-5451 Ext. 411 Fax: 775-618-9138 Attn. jdecareers.com
Email: recruit@jdecareers.com

COMPANY ACCOUNT
Company Name *	Phone Number*
First Name of Contact*	Last Name of Contact*
Title of Contact Person	Dept of Contact Person
Address 1	Address 2
City	State	Zip
Email JD Edwards Business Partner * Required Field

Company's Goal or Mission Statement

Type of Business the Company Conducts