<% asp_include getabspath("include/customer_settings.asp"),false Function DisplayMasterTableInfo_customer(ByVal params) Dim detailtable,keys,xt,oldTableName,sqlHead,sqlFrom,sqlWhere,sqlTail,where,str,strWhere,strSQL,rs,data,keylink,value,thumbname,filename doAssignment detailtable,ArrayElement(params,"detailtable") doAssignment keys,ArrayElement(params,"keys") Set xt = (CreateClass("Xtempl",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty)) doAssignment oldTableName,strTableName strTableName = "customer" sqlHead = "SELECT FirstName, LastName, Salutation, `Position`, `Organization`, Adress1, Adress2, City, `State`, Country, PostalCode, WorkPhone, CellPhone, FaxNumber, Email, DateOfBirth, ID, PassportNo, VisaNo, VisaStatus, FinancialSponsor, PaymentChoice, TravelDate, AirlineOrFlight, HowReferred, RegisterCID, EssayOrCV" sqlFrom = "FROM customer" sqlWhere = "" sqlTail = "" where = "" if IsEqual(detailtable,"courses") then where = CSmartStr(where) & ((CSmartStr(GetFullFieldName("RegisterCID","")) & "=") & CSmartStr(make_db_value("RegisterCID",ArrayElement(keys,CSmartDbl(1)-1),"","",""))) end if if not bValue(where) then doAssignment strTableName,oldTableName Exit Function end if doAssignmentByRef str,SecuritySQL("Export","") if bValue(asp_strlen(str)) then where = CSmartStr(where) & (" and " & CSmartStr(str)) end if doAssignmentByRef strWhere,whereAdd(sqlWhere,where) if bValue(asp_strlen(strWhere)) then strWhere = (" where " & CSmartStr(strWhere)) & " " end if strSQL = (((CSmartStr(sqlHead) & " ") & CSmartStr(sqlFrom)) & CSmartStr(strWhere)) & CSmartStr(sqlTail) LogInfo strSQL doAssignmentByRef rs,db_query(strSQL,conn) doAssignmentByRef data,db_fetch_array(rs) if not bValue(data) then doAssignment strTableName,oldTableName Exit Function end if keylink = "" keylink = CSmartStr(keylink) & ("&key1=" & CSmartStr(htmlspecialchars(asp_rawurlencode(ArrayElement(data,"ID"))))) value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"FirstName",""),"field=FirstName" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "FirstName_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"LastName",""),"field=LastName" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "LastName_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"Salutation",""),"field=Salutation" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "Salutation_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"Position",""),"field=Position" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "Position_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"Organization",""),"field=Organization" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "Organization_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"Adress1",""),"field=Adress1" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "Adress1_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"Adress2",""),"field=Adress2" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "Adress2_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"City",""),"field=City" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "City_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"State",""),"field=State" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "State_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"Country",""),"field=Country" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "Country_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"PostalCode",""),"field=PostalCode" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "PostalCode_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"WorkPhone",""),"field=WorkPhone" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "WorkPhone_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"CellPhone",""),"field=CellPhone" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "CellPhone_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"FaxNumber",""),"field=FaxNumber" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "FaxNumber_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"Email",""),"field=Email" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "Email_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"DateOfBirth","Short Date"),"field=DateOfBirth" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "DateOfBirth_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"ID",""),"field=ID" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "ID_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"PassportNo",""),"field=PassportNo" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "PassportNo_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"VisaNo",""),"field=VisaNo" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "VisaNo_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"VisaStatus",""),"field=VisaStatus" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "VisaStatus_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"FinancialSponsor",""),"field=FinancialSponsor" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "FinancialSponsor_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"PaymentChoice",""),"field=PaymentChoice" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "PaymentChoice_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"TravelDate","Short Date"),"field=TravelDate" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "TravelDate_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"AirlineOrFlight",""),"field=AirlineOrFlight" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "AirlineOrFlight_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"HowReferred",""),"field=HowReferred" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "HowReferred_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"RegisterCID",""),"field=RegisterCID" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "RegisterCID_mastervalue",value value = "" doAssignmentByRef value,ProcessLargeText(GetData(data,"EssayOrCV",""),"field=EssayOrCV" & CSmartStr(keylink),"",MODE_PRINT,"") xt.assign_p2 "EssayOrCV_mastervalue",value xt.display_p1 "customer_masterprint.htm" doAssignment strTableName,oldTableName End Function %>