<% ' 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("staffquizzes_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(11) Dim arFormDBFields0(11) Dim arFormValues0(11) arFormFields0(0) = "dept" arFormDBFields0(0) = "dept" arFormValues0(0) = Request("dept") arFormFields0(1) = "location" arFormDBFields0(1) = "location" arFormValues0(1) = Request("location") arFormFields0(2) = "email" arFormDBFields0(2) = "email" arFormValues0(2) = Request("email") arFormFields0(3) = "phone" arFormDBFields0(3) = "phone" arFormValues0(3) = Request("phone") arFormFields0(4) = "QZ3Q1" arFormDBFields0(4) = "QZ3Q1" arFormValues0(4) = Request("QZ3Q1") arFormFields0(5) = "QZ3Q2" arFormDBFields0(5) = "QZ3Q2" arFormValues0(5) = Request("QZ3Q2") arFormFields0(6) = "uclaemployeeid" arFormDBFields0(6) = "uclaemployeeid" arFormValues0(6) = Request("uclaemployeeid") arFormFields0(7) = "QZ3Q3" arFormDBFields0(7) = "QZ3Q3" arFormValues0(7) = Request("QZ3Q3") arFormFields0(8) = "QZ3Q4" arFormDBFields0(8) = "QZ3Q4" arFormValues0(8) = Request("QZ3Q4") arFormFields0(9) = "name" arFormDBFields0(9) = "name" arFormValues0(9) = Request("name") arFormFields0(10) = "QZ3Q5" arFormDBFields0(10) = "QZ3Q5" arFormValues0(10) = Request("QZ3Q5") 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 "staffquizsubmitted.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> UCLA Medical Center - 50 years

 
 HOME|TIMELINE|PHOTO GALLERY|VIDEO GALLERY|STORIES|JUST FOR FUN


Quiz 1 Answers

Quiz 2 Answers

 

 Facts from 1955  |  Newspaper articles from 1955  |  Staff Quizzes

Quiz 3
 

<% 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_EncodeOutput(str) FP_EncodeOutput = str FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^") FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput) FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&") End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) On Error Resume Next 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 & "" & ": " & FP_EncodeOutput(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues) On Error Resume Next 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 j = 0 To UBound(rgDBFields) - 1 Response.Write "" & rgDBFields(j) & "" & ": " & FP_EncodeOutput(rgDBValues(j)) & "
" & vbCrLf Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) On Error Resume Next Dim fp_Debug fp_Debug = False If Err.Number <> 0 Then fp_conn.Close Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & 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 %>

1.  All of the following surgeries were first performed in the western United States at UCLA Medical Center. Which procedure was also the first in the world?
Total shoulder replacement
Open-heart surgery
Mother-to-daughter kidney transplant
Implantable Replaceable Heart

2.  The first major expansion of UCLA Medical Center increased the number of floors from four to how many?
5
8
9
10

3.  Which of the following names has never been associated with the UCLA Medical Center?
UCLA Medical Enterprise
UCLA Hospital and Clinics
UCLA Healthcare
UCLA University Hospital

4.  Who was the first dean of the UCLA School of Medicine?
Dr. Stafford L. Warren
Dr. Gerald S. Levey
David Geffen
Kenneth Eastmen

5What popular TV series chose UCLA Medical Center as a shooting location?
Dr. Kildare, with Richard Chamberlain, in the 1960s
Medical Center with Chad Everett, in the 1970s
Quincy, with Jack Klugman, in the mid 1970s to early 1980s
St. Elsewhere, with Denzel Washington and Howie Mandel, in the 1980s

To be entered into a prize drawing please provide the following:
Name
UCLA Employee ID
Department
Location
E-mail
Phone Number


 

   
UCLA Healthcare  : :  Contact Us  : :  Sponsors  : :  Giving  : :  © 2005 UC Regents