%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear
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("Database2_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(39)
Dim arFormDBFields0(39)
Dim arFormValues0(39)
arFormFields0(0) = "domain4"
arFormDBFields0(0) = "domain4"
arFormValues0(0) = Request("domain4")
arFormFields0(1) = "title"
arFormDBFields0(1) = "title"
arFormValues0(1) = Request("title")
arFormFields0(2) = "mobile"
arFormDBFields0(2) = "mobile"
arFormValues0(2) = Request("mobile")
arFormFields0(3) = "streetaddress"
arFormDBFields0(3) = "streetaddress"
arFormValues0(3) = Request("streetaddress")
arFormFields0(4) = "translationreview"
arFormDBFields0(4) = "translationreview"
arFormValues0(4) = Request("translationreview")
arFormFields0(5) = "qa"
arFormDBFields0(5) = "qa"
arFormValues0(5) = Request("qa")
arFormFields0(6) = "source1"
arFormDBFields0(6) = "source1"
arFormValues0(6) = Request("source1")
arFormFields0(7) = "country"
arFormDBFields0(7) = "country"
arFormValues0(7) = Request("country")
arFormFields0(8) = "source2"
arFormDBFields0(8) = "source2"
arFormValues0(8) = Request("source2")
arFormFields0(9) = "localizationtolls"
arFormDBFields0(9) = "localizationtolls"
arFormValues0(9) = Request("localizationtolls")
arFormFields0(10) = "yearfounded"
arFormDBFields0(10) = "yearfounded"
arFormValues0(10) = Request("yearfounded")
arFormFields0(11) = "source3"
arFormDBFields0(11) = "source3"
arFormValues0(11) = Request("source3")
arFormFields0(12) = "firstname"
arFormDBFields0(12) = "firstname"
arFormValues0(12) = Request("firstname")
arFormFields0(13) = "fax"
arFormDBFields0(13) = "fax"
arFormValues0(13) = Request("fax")
arFormFields0(14) = "clients"
arFormDBFields0(14) = "clients"
arFormValues0(14) = Request("clients")
arFormFields0(15) = "lastname"
arFormDBFields0(15) = "lastname"
arFormValues0(15) = Request("lastname")
arFormFields0(16) = "email"
arFormDBFields0(16) = "email"
arFormValues0(16) = Request("email")
arFormFields0(17) = "comments"
arFormDBFields0(17) = "comments"
arFormValues0(17) = Request("comments")
arFormFields0(18) = "phone"
arFormDBFields0(18) = "phone"
arFormValues0(18) = Request("phone")
arFormFields0(19) = "affiliations"
arFormDBFields0(19) = "affiliations"
arFormValues0(19) = Request("affiliations")
arFormFields0(20) = "zip"
arFormDBFields0(20) = "zip"
arFormValues0(20) = Request("zip")
arFormFields0(21) = "le"
arFormDBFields0(21) = "le"
arFormValues0(21) = Request("le")
arFormFields0(22) = "companyname"
arFormDBFields0(22) = "companyname"
arFormValues0(22) = Request("companyname")
arFormFields0(23) = "city"
arFormDBFields0(23) = "city"
arFormValues0(23) = Request("city")
arFormFields0(24) = "dtp"
arFormDBFields0(24) = "dtp"
arFormValues0(24) = Request("dtp")
arFormFields0(25) = "teprates"
arFormDBFields0(25) = "teprates"
arFormValues0(25) = Request("teprates")
arFormFields0(26) = "softwaretest"
arFormDBFields0(26) = "softwaretest"
arFormValues0(26) = Request("softwaretest")
arFormFields0(27) = "hourlyrates"
arFormDBFields0(27) = "hourlyrates"
arFormValues0(27) = Request("hourlyrates")
arFormFields0(28) = "webpage"
arFormDBFields0(28) = "webpage"
arFormValues0(28) = Request("webpage")
arFormFields0(29) = "target1"
arFormDBFields0(29) = "target1"
arFormValues0(29) = Request("target1")
arFormFields0(30) = "state"
arFormDBFields0(30) = "state"
arFormValues0(30) = Request("state")
arFormFields0(31) = "target2"
arFormDBFields0(31) = "target2"
arFormValues0(31) = Request("target2")
arFormFields0(32) = "pm"
arFormDBFields0(32) = "pm"
arFormValues0(32) = Request("pm")
arFormFields0(33) = "employees"
arFormDBFields0(33) = "employees"
arFormValues0(33) = Request("employees")
arFormFields0(34) = "domain1"
arFormDBFields0(34) = "domain1"
arFormValues0(34) = Request("domain1")
arFormFields0(35) = "target3"
arFormDBFields0(35) = "target3"
arFormValues0(35) = Request("target3")
arFormFields0(36) = "iht"
arFormDBFields0(36) = "iht"
arFormValues0(36) = Request("iht")
arFormFields0(37) = "domain2"
arFormDBFields0(37) = "domain2"
arFormValues0(37) = Request("domain2")
arFormFields0(38) = "domain3"
arFormDBFields0(38) = "domain3"
arFormValues0(38) = Request("domain3")
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
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
Response.Redirect "Registration/registration_confirmation.asp"
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
SourceTranslations: Translation Resources, Translation Agencies, Multilingual, Localization
|
|
 |
Add a New Translation & Localization Company
Please fill out the form to be listed on our database of translation companies.
? Copyright 2005 SouceTranslations.com
|
|
|