% if IsObject(getSQLConnection()) then set objConn=getSQLConnection() else Response.Redirect("error/?id=1") end if lngResumeID=Session("URT_RESUME_ID") strIDNum=Session("URT_ID_NUM") if IsInteger32(lngResumeID) and IsIDCardNo(strIDNum) then strSQL="SELECT * FROM URT_RESUME WHERE RESUME_ID=" & lngResumeID & " AND ID_NUM='" & strIDNum & "'" set objRS=objConn.Execute(strSQL) if not objRS.eof then strIDNum=objRS("ID_NUM") strPassword=getEncodedText(objRS("PASSWORD"),false) strLastName=getEncodedText(objRS("LAST_NAME"),false) strFirstName=getEncodedText(objRS("FIRST_NAME"),false) Session("URT_RESUME_FULL_NAME")=strLastName & strFirstName strUserInfo="
" & strLastName & strFirstName & ",您好:" & vbcrlf strUserInfo=strUserInfo & " 歡迎您登入使用本系統。 " & vbcrlf strUserInfo=strUserInfo & " " & vbcrlf strUserInfo=strUserInfo & "
" & vbcrlf strBodyHeight=objRS("BODY_HEIGHT") strBodyWeight=objRS("BODY_WEIGHT") if not IsNull(objRS("BIRTH_DATE")) then strBirthDate=objRS("BIRTH_DATE") strBirthDateArg="," & Year(strBirthDate) & "," & Month(strBirthDate) & "," & Day(strBirthDate) end if strMarriage=objRS("MARRIAGE") strDisablityCat=objRS("DISABILITY_CAT") strMilitaryDuty=objRS("MILITARY_DUTY") if not IsNull(objRS("RFM_DATE")) then strRFMDate=objRS("RFM_DATE") strRFMDateArg="," & Year(strRFMDate) & "," & Month(strRFMDate) & "," & Day(strRFMDate) end if strOwnedVehicle=objRS("OWNED_VEHICLES") strTel=getEncodedText(objRS("TEL"),false) strTelExt=getEncodedText(objRS("TEL_EXT"),false) strCellphone=getEncodedText(objRS("CELLPHONE"),false) strEmail=getEncodedText(objRS("EMAIL"),false) strAddress=getEncodedText(objRS("ADDRESS"),false) if not IsNull(objRS("AVAIL_DATE")) then strAvailDate=objRS("AVAIL_DATE") strAvailDateArg="," & Year(strAvailDate) & "," & Month(strAvailDate) & "," & Day(strAvailDate) end if strJobStatus=objRS("JOB_STATUS") strApplyCapacity=objRS("APPLY_CAPACITY") end if end if %>