% ' 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("joint_online1_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(32) Dim arFormDBFields0(32) arFormFields0(0) = "home2" arFormDBFields0(0) = "home2" arFormFields0(1) = "worktel" arFormDBFields0(1) = "worktel" arFormFields0(2) = "missing_fields_redirect" arFormDBFields0(2) = "missing_fields_redirect" arFormFields0(3) = "new address?" arFormDBFields0(3) = "new_address?" arFormFields0(4) = "mobileph" arFormDBFields0(4) = "mobileph" arFormFields0(5) = "title" arFormDBFields0(5) = "title1" arFormFields0(6) = "companyzip" arFormDBFields0(6) = "companyzip" arFormFields0(7) = "firstname" arFormDBFields0(7) = "firstname" arFormFields0(8) = "fax" arFormDBFields0(8) = "fax" arFormFields0(9) = "lastname" arFormDBFields0(9) = "lastname" arFormFields0(10) = "Department" arFormDBFields0(10) = "Department" arFormFields0(11) = "hometel" arFormDBFields0(11) = "hometel" arFormFields0(12) = "email" arFormDBFields0(12) = "email" arFormFields0(13) = "comments" arFormDBFields0(13) = "comments" arFormFields0(14) = "permission" arFormDBFields0(14) = "permission" arFormFields0(15) = "companycity" arFormDBFields0(15) = "companycity" arFormFields0(16) = "url" arFormDBFields0(16) = "url" arFormFields0(17) = "companycountry" arFormDBFields0(17) = "companycountry" arFormFields0(18) = "required" arFormDBFields0(18) = "required" arFormFields0(19) = "company1" arFormDBFields0(19) = "company1" arFormFields0(20) = "degree" arFormDBFields0(20) = "degree1" arFormFields0(21) = "company" arFormDBFields0(21) = "company" arFormFields0(22) = "company2" arFormDBFields0(22) = "company2" arFormFields0(23) = "advisor" arFormDBFields0(23) = "advisor" arFormFields0(24) = "homezip" arFormDBFields0(24) = "homezip" arFormFields0(25) = "nickname" arFormDBFields0(25) = "nickname" arFormFields0(26) = "year" arFormDBFields0(26) = "year" arFormFields0(27) = "sex" arFormDBFields0(27) = "sex" arFormFields0(28) = "homecity" arFormDBFields0(28) = "homecity" arFormFields0(29) = "homecountry" arFormDBFields0(29) = "homecountry" arFormFields0(30) = "home1" arFormDBFields0(30) = "home1" arFormFields0(31) = "companystate" arFormDBFields0(31) = "companystate" 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 FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "joint_online1.html",_ "Return to the form." End If End If %>
| news |
Message Board EVENT INFO IMMET
MetalFTUI Event
Calendar
ALUMNI LINKS I L U N I FTUI (Faculty of Engineering University of Indonesia Alumni Association I L U N I UI (University of Indonesia Alumni Association) I L U N I UI JAKARTA (University of Indonesia Alumni Association Jakarta) |
Keep In TouchPlease use this form to let us know about address/address changes , career changes, honors, awards, or to ask us questions. We just might have the answers you are looking for.
Only the fields marked with (*) are required MetalFTUIalumni Webmaster | Home | Metallurgical Department Home Page |