<!-- #include file="inc/begin.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/showerror.asp" -->
<!-- #include file="inc/newkey.asp" -->
<!-- #include file="inc/writelog.asp" -->
<!-- #include file="inc/connectdb.asp" -->
<!-- #include file="inc/EdLine.asp" -->
<%
'  ***********************************************************
' **
' **   633  04/25/07  add comaker employer information
' **   591  03/24/07  remove ability to change client codes  (invoice issues)
' **        01/09/07  corrected sql syntax for contactid
' **   614  10/29/06  Add StatusDate column to tCase table.
' **   589  10/15/06  Ability for collectors to logon to web site
' **  E502  09/22/05 remove commas from amount fields
' **
'  ***********************************************************

	Dim ConnStr
	Dim Conn
	Dim rs
	Dim SQL
	Dim SQL2
	Dim LogSQL
	Dim CaseID
	Dim UpdateFlag
	Dim fileTstamp
	Dim CoMakerID
	Dim strWrk

'  Updated Values
	Dim AddrID
	Dim AgentID
	Dim StatusID
	Dim AssignID
	Dim AcctNbr
	Dim Lname
	Dim Fname
	Dim Addr1
	Dim Addr2
	Dim City
	Dim State
	Dim Zip
	Dim Hphone
	Dim Wphone
	Dim SSN
	Dim BirthDate
	Dim Year
	Dim Make
	Dim Model
	Dim Color
	Dim Plate
	Dim PlateState
	Dim VIN
	Dim KeyIgn
	Dim EmpName
	Dim EmpAddr
	Dim EmpCity
	Dim EmpState
	Dim CoEmpName
	Dim CoEmpAddr
	Dim CoEmpCity
	Dim CoEmpState
	Dim AmtDue
	Dim DueDate
	Dim PymtAmt
	Dim Balance
	Dim Lienholder
	Dim Desc1Addr
	Dim Desc2Addr
	Dim SpecInstr
	Dim ContactID

	Dim CoLName
	Dim CoFName
	Dim CoAddr1
	Dim CoAddr2
	Dim CoCity
	Dim CoState
	Dim CoZip
	Dim CoWphone

	Dim A1Addr1
	Dim A1Addr2
	Dim A1City
	Dim A1State
	Dim A1Zip

	Dim A2Addr1
	Dim A2Addr2
	Dim A2City
	Dim A2State
	Dim A2Zip

'   Prior Values
	Dim PAgentID
	Dim PStatusID
	Dim PAssignID
	Dim PAcctNbr
	Dim PLname
	Dim PFname
	Dim PAddr1
	Dim PAddr2
	Dim PCity
	Dim PState
	Dim PZip
	Dim PHphone
	Dim PWphone
	Dim PSSN
	Dim PBirthDate
	Dim PYear
	Dim PMake
	Dim PModel
	Dim PColor
	Dim PPlate
	Dim PPlateState
	Dim PVIN
	Dim PKeyIgn
	Dim PEmpName
	Dim PEmpAddr
	Dim PEmpCity
	Dim PEmpState
	Dim PCoEmpName
	Dim PCoEmpAddr
	Dim PCoEmpCity
	Dim PCoEmpState
	Dim PAmtDue
	Dim PDueDate
	Dim PPymtAmt
	Dim PBalance
	Dim PLienholder
	Dim PDesc1Addr
	Dim PDesc2Addr
	Dim PSpecInstr
	Dim PContactID
	Dim PTstamp

	Dim PCoLName
	Dim PCoFName
	Dim PCoAddr1
	Dim PCoAddr2
	Dim PCoCity
	Dim PCoState
	Dim PCoZip
	Dim PCoWphone
	
	Dim PA1Addr1
	Dim PA1Addr2
	Dim PA1City
	Dim PA1State
	Dim PA1Zip

	Dim PA2Addr1
	Dim PA2Addr2
	Dim PA2City
	Dim PA2State
	Dim PA2Zip

	Dim strErrorMsg
	Dim ErrMsg

	On Error Resume Next
	strErrorMsg = ""

'  ***************************************
'   Set new values
'  ***************************************
	CaseID = Request.form("CaseID")
	CaseID = trim(CaseID)	 
	AgentID = Request.form("AgentID")
	AgentID = trim(AgentID)	 
	AssignID = Request.form("Assign")
	AssignID = trim(AssignID)	 
	StatusID = Request.form("StatusID")
	StatusID = trim(StatusID)	 
	AcctNbr = Request.form("AcctNbr")
	AcctNbr = EdLine(AcctNbr)
	Lname = Request.form("Lname")
	Lname = EdLine(Lname)
	Fname = Request.form("Fname")
	Fname = EdLine(Fname)
	Addr1 = Request.form("Addr1")
	Addr1 = EdLine(Addr1)
	Addr2 = Request.form("Addr2")
	Addr2 = EdLine(Addr2)
	City = Request.form("City")
	City = EdLine(City)
	State = Request.form("State")
	State = EdLine(State)
	Zip = Request.form("Zip")
	Zip = EdLine(Zip)
	Hphone = Request.form("Hphone")
	Hphone = EdLine(Hphone)
	Wphone = Request.form("Wphone")
	Wphone = EdLine(Wphone)
	SSN = Request.form("SSN")
	SSN = EdLine(SSN)
	BirthDate = Request.form("BirthDate")
	BirthDate = EdLine(BirthDate)
	Year = Request.form("Year")
	Year = EdLine(Year)
	Make = Request.form("Make")
	Make = EdLine(Make)
	Model = Request.form("Model")
	Model = EdLine(Model)

	Color = Request.form("Color")
	Color = EdLine(Color)
	Plate = Request.form("Plate")
	Plate = EdLine(Plate)
	PlateState = Request.form("PlateState")
	PlateState = EdLine(PlateState)

	VIN = Request.form("VIN")
	VIN = EdLine(VIN)
	KeyIgn = Request.form("KeyIgn")
	KeyIgn = EdLine(KeyIgn)
	EmpName = Request.form("EmpName")
	EmpName = EdLine(EmpName)
	EmpAddr = Request.form("EmpAddr")
	EmpAddr = EdLine(EmpAddr)
	EmpCity = Request.form("EmpCity")
	EmpCity = EdLine(EmpCity)
	EmpState = Request.form("EmpState")
	EmpState = EdLine(EmpState)
	CoEmpName = Request.form("CoEmpName")
	CoEmpName = EdLine(CoEmpName)
	CoEmpAddr = Request.form("CoEmpAddr")
	CoEmpAddr = EdLine(CoEmpAddr)
	CoEmpCity = Request.form("CoEmpCity")
	CoEmpCity = EdLine(CoEmpCity)
	CoEmpState = Request.form("CoEmpState")
	CoEmpState = EdLine(CoEmpState)
	AmtDue = Request.form("AmtDue")
	AmtDue = EdNum(AmtDue)
	DueDate = Request.form("DueDate")
	DueDate = EdLine(DueDate)
	PymtAmt = Request.form("PymtAmt")
	PymtAmt = EdNum(PymtAmt)
	Balance = Request.form("Balance")
	Balance = EdNum(Balance)
	Lienholder = Request.form("Lienholder")
	Lienholder = EdLine(Lienholder)

	Desc1Addr = Request.form("Desc1Addr")
	Desc1Addr = EdLine(Desc1Addr)
	Desc2Addr = Request.form("Desc2Addr")
	Desc2Addr = EdLine(Desc2Addr)

	SpecInstr = Request.form("SpecInstr")
	SpecInstr = EdLine(SpecInstr)

	ContactID = Request.form("ContactID")
	ContactID = trim(ContactID)	 


	CoLname = Request.form("CoLname")
	CoLname = EdLine(CoLname)
	CoFname = Request.form("CoFname")
	CoFname = EdLine(CoFname)
	CoAddr1 = Request.form("CoAddr1")
	CoAddr1 = EdLine(CoAddr1)
	CoAddr2 = Request.form("CoAddr2")
	CoAddr2 = EdLine(CoAddr2)
	CoCity = Request.form("CoCity")
	CoCity = EdLine(CoCity)
	CoState = Request.form("CoState")
	CoState = EdLine(CoState)
	CoZip = Request.form("CoZip")
	CoZip = EdLine(CoZip)
	CoWphone = Request.form("CoWphone")
	CoWphone = EdLine(CoWphone)

	A1Addr1 = Request.form("A1Addr1")
	A1Addr1 = EdLine(A1Addr1)
	A1Addr2 = Request.form("A1Addr2")
	A1Addr2 = EdLine(A1Addr2)
	A1City = Request.form("A1City")
	A1City = EdLine(A1City)
	A1State = Request.form("A1State")
	A1State = EdLine(A1State)
	A1Zip = Request.form("A1Zip")
	A1Zip = EdLine(A1Zip)

	A2Addr1 = Request.form("A2Addr1")
	A2Addr1 = EdLine(A2Addr1)
	A2Addr2 = Request.form("A2Addr2")
	A2Addr2 = EdLine(A2Addr2)
	A2City = Request.form("A2City")
	A2City = EdLine(A2City)
	A2State = Request.form("A2State")
	A2State = EdLine(A2State)
	A2Zip = Request.form("A2Zip")
	A2Zip = EdLine(A2Zip)

'  ***************************************
'   Set prior values
'  ***************************************
	PAgentID = Request.form("PAgentID")
	PAgentID = trim(PAgentID)	 
	PAssignID = Request.form("PAssign")
	PAssignID = trim(PAssignID)	 
	PStatusID = Request.form("PStatusID")
	PStatusID = trim(PStatusID)	 
	PAcctNbr = Request.form("PAcctNbr")
	PAcctNbr = trim(PAcctNbr)
	PAcctNbr = Replace(PAcctNbr, "'", "''")
	PLname = Request.form("PLname")
	PLname = trim(PLname)
	PLname = Replace(PLname, "'", "''")
	PFname = Request.form("PFname")
	PFname = trim(PFname)
	PFname = Replace(PFname, "'", "''")
	PAddr1 = Request.form("PAddr1")
	PAddr1 = trim(PAddr1)
	PAddr1 = Replace(PAddr1, "'", "''")
	PAddr2 = Request.form("PAddr2")
	PAddr2 = trim(PAddr2)
	PAddr2 = Replace(PAddr2, "'", "''")
	PCity = Request.form("PCity")
	PCity = trim(PCity)
	PCity = Replace(PCity, "'", "''")
	PState = Request.form("PState")
	PState = trim(PState)
	PState = Replace(PState, "'", "''")
	PZip = Request.form("PZip")
	PZip = trim(PZip)
	PZip = Replace(PZip, "'", "''")
	PHphone = Request.form("PHphone")
	PHphone = trim(PHphone)
	PHphone = Replace(PHphone, "'", "''")
	PWphone = Request.form("PWphone")
	PWphone = trim(PWphone)
	PWphone = Replace(PWphone, "'", "''")
	PSSN = Request.form("PSSN")
	PSSN = trim(PSSN)
	PSSN = Replace(PSSN, "'", "''")
	PBirthDate = Request.form("PBirthDate")
	PBirthDate = trim(PBirthDate)
	PBirthDate = Replace(PBirthDate, "'", "''")
	PYear = Request.form("PYear")
	PYear = trim(PYear)
	PYear = Replace(PYear, "'", "''")
	PMake = Request.form("PMake")
	PMake = trim(PMake)
	PMake = Replace(PMake, "'", "''")
	PModel = Request.form("PModel")
	PModel = trim(PModel)
	PModel = Replace(PModel, "'", "''")

	PColor = Request.form("PColor")
	PColor = trim(PColor)
	PColor = Replace(PColor, "'", "''")
	PPlate = Request.form("PPlate")
	PPlate = trim(PPlate)
	PPlate = Replace(PPlate, "'", "''")
	PPlateState = Request.form("PPlateState")
	PPlateState = trim(PPlateStatev)
	PPlateState = Replace(PPlateState, "'", "''")

	PVIN = Request.form("PVIN")
	PVIN = trim(PVIN)
	PVIN = Replace(PVIN, "'", "''")
	PKeyIgn = Request.form("PKeyIgn")
	PKeyIgn = trim(PKeyIgn)
	PKeyIgn = Replace(PKeyIgn, "'", "''")
	PEmpName = Request.form("PEmpName")
	PEmpName = trim(PEmpName)
	PEmpName = Replace(PEmpName, "'", "''")
	PEmpAddr = Request.form("PEmpAddr")
	PEmpAddr = trim(PEmpAddr)
	PEmpAddr = Replace(PEmpAddr, "'", "''")
	PEmpCity = Request.form("PEmpCity")
	PEmpCity = trim(PEmpCity)
	PEmpCity = Replace(PEmpCity, "'", "''")
	PEmpState = Request.form("PEmpState")
	PEmpState = trim(PEmpState)
	PEmpState = Replace(PEmpState, "'", "''")
	PCoEmpName = Request.form("PCoEmpName")
	PCoEmpName = trim(PCoEmpName)
	PCoEmpName = Replace(PCoEmpName, "'", "''")
	PCoEmpAddr = Request.form("PCoEmpAddr")
	PCoEmpAddr = trim(PCoEmpAddr)
	PCoEmpAddr = Replace(PCoEmpAddr, "'", "''")
	PCoEmpCity = Request.form("PCoEmpCity")
	PCoEmpCity = trim(PCoEmpCity)
	PCoEmpCity = Replace(PCoEmpCity, "'", "''")
	PCoEmpState = Request.form("PCoEmpState")
	PCoEmpState = trim(PCoEmpState)
	PCoEmpState = Replace(PCoEmpState, "'", "''")
	PAmtDue = Request.form("PAmtDue")
	PAmtDue = trim(PAmtDue)
	PAmtDue = Replace(PAmtDue, "'", "''")
	PDueDate = Request.form("PDueDate")
	PDueDate = trim(PDueDate)
	PDueDate = Replace(PDueDate, "'", "''")
	PPymtAmt = Request.form("PPymtAmt")
	PPymtAmt = trim(PPymtAmt)
	PPymtAmt = Replace(PPymtAmt, "'", "''")
	PBalance = Request.form("PBalance")
	PBalance = trim(PBalance)
	PBalance = Replace(PBalance, "'", "''")
	PLienholder = Request.form("PLienholder")
	PLienholder = trim(PLienholder)
	PLienholder = Replace(PLienholder, "'", "''")
	PDesc1Addr = Request.form("PDesc1Addr")
	PDesc1Addr = trim(PDesc1Addr)
	PDesc1Addr = Replace(PDesc1Addr, "'", "''")
	PDesc2Addr = Request.form("PDesc2Addr")
	PDesc2Addr = trim(PDesc2Addr)
	PDesc2Addr = Replace(PDesc2Addr, "'", "''")

	PSpecInstr = Request.form("PSpecInstr")
	PSpecInstr = trim(PSpecInstr)
	PSpecInstr = Replace(PSpecInstr, "'", "''")

	PContactID = Request.form("PContactID")
	PContactID = trim(PContactID)	 

	PCoLname = Request.form("PCoLname")
	PCoLname = trim(PCoLname)
	PCoLname = Replace(PCoLname, "'", "''")
	PCoFname = Request.form("PCoFname")
	PCoFname = trim(PCoFname)
	PCoFname = Replace(PCoFname, "'", "''")
	PCoAddr1 = Request.form("PCoAddr1")
	PCoAddr1 = trim(PCoAddr1)
	PCoAddr1 = Replace(PCoAddr1, "'", "''")
	PCoAddr2 = Request.form("PCoAddr2")
	PCoAddr2 = trim(PCoAddr2)
	PCoAddr2 = Replace(PCoAddr2, "'", "''")
	PCoCity = Request.form("PCoCity")
	PCoCity = trim(PCoCity)
	PCoCity = Replace(PCoCity, "'", "''")
	PCoState = Request.form("PCoState")
	PCoState = trim(PCoState)
	PCoState = Replace(PCoState, "'", "''")
	PCoZip = Request.form("PCoZip")
	PCoZip = trim(PCoZip)
	PCoZip = Replace(PCoZip, "'", "''")
	PCoWphone = Request.form("PCoWphone")
	PCoWphone = trim(PCoWphone)
	PCoWphone = Replace(PCoWphone, "'", "''")

	PA1Addr1 = Request.form("PA1Addr1")
	PA1Addr1 = trim(PA1Addr1)
	PA1Addr1 = Replace(PA1Addr1, "'", "''")
	PA1Addr2 = Request.form("PA1Addr2")
	PA1Addr2 = trim(PA1Addr2)
	PA1Addr2 = Replace(PA1Addr2, "'", "''")
	PA1City = Request.form("PA1City")
	PA1City = trim(PA1City)
	PA1City = Replace(PA1City, "'", "''")
	PA1State = Request.form("PA1State")
	PA1State = trim(PA1State)
	PA1State = Replace(PA1State, "'", "''")
	PA1Zip = Request.form("PA1Zip")
	PA1Zip = trim(PA1Zip)
	PA1Zip = Replace(PA1Zip, "'", "''")

	PA2Addr1 = Request.form("PA2Addr1")
	PA2Addr1 = trim(PA2Addr1)
	PA2Addr1 = Replace(PA2Addr1, "'", "''")
	PA2Addr2 = Request.form("PA2Addr2")
	PA2Addr2 = trim(PA2Addr2)
	PA2Addr2 = Replace(PA2Addr2, "'", "''")
	PA2City = Request.form("PA2City")
	PA2City = trim(PA2City)
	PA2City = Replace(PA2City, "'", "''")
	PA2State = Request.form("PA2State")
	PA2State = trim(PA2State)
	PA2State = Replace(PA2State, "'", "''")
	PA2Zip = Request.form("PA2Zip")
	PA2Zip = trim(PA2Zip)
	PA2Zip = Replace(PA2Zip, "'", "''")

	PTstamp = Request.form("PTstamp")
	PTstamp = trim(PTstamp)
	

'  ***************************************
'   Validate Data
'  ***************************************
'   SSN
	If SSN > "" Then
		strWrk = SSN
	        If Mid(strWrk, 4, 1) = "-" And Mid(strWrk, 7, 1) = "-" Then
            		SSN = Mid(strWrk, 1, 3) & Mid(strWrk, 5, 2) & Mid(strWrk, 8, 4)
        	Else
            		SSN = strWrk
        	End If
        	If Not IsNumeric(SSN) Then
            		strErrorMsg = strErrorMsg & "Error:  Invalid social security number.<br>"
        	End If
    	Else
        	SSN = "0"
    	End If
'  ***************************************
'   Connect to Database
'  ***************************************
	connectdb

	If Err.number <> 0 Then
		strErrorMsg = strErrorMsg & "305. Error Unable to connect to database. <br> " 
		Err.Clear
	End If

'  ***************************************
'   Check TimeStamp
'  ***************************************
	SQL = "SELECT Tstamp "
	SQL = SQL & "FROM tCase "
	SQL = SQL & "WHERE CaseID = " & CaseID & " "
	set rs = Conn.Execute (SQL)
	if NOT rs.EOF then
		if NOT IsNull(rs.fields("Tstamp")) then
			fileTstamp = rs.fields("Tstamp")
		end if
	else
		strErrorMsg = "Error::updcase2.  Case read error."
	end if
	rs.close
	set rs = Nothing

'	if PTstamp <> fileTstamp then
'		strErrorMsg = "Error::updcase2.  Record has been modified from another source." & _
'		"  fileTstamp= " & filetstamp & _
'		"  PTstamp= " & Ptstamp 
'	end if
'	if strErrorMsg > "" then
'		ShowError(strErrorMsg)
'	end if
			
'  ***************************************
'   Update Address Table (Rdex)
'  ***************************************
	UpdateFlag = False
	SQL = "UPDATE Rdex SET "

	if PLname <> Lname then
		UpdateFlag = True
		SQL = SQL & "Lname = '" & Lname & "', "
		WriteLog CaseID,"Rdex", "Lname","S", Lname,PTstamp
	end if
	if PFname <> Fname then
		UpdateFlag = True
		SQL = SQL & "Fname = '" & Fname & "', "
		WriteLog CaseID,"Rdex", "Fname","S", Fname,PTstamp
	end if  
	if PAddr1 <> Addr1 then
		UpdateFlag = True
		SQL = SQL & "Addr1 = '" & Addr1 & "', "
		WriteLog CaseID,"Rdex", "Addr1","S", Addr1,PTstamp
	end if  
	if PAddr2 <> Addr2 then
		UpdateFlag = True
		SQL = SQL & "Addr2 = '" & Addr2 & "', "
		WriteLog CaseID,"Rdex", "Addr2","S", Addr2,PTstamp
	end if  
	if PCity <> City then
		UpdateFlag = True
		SQL = SQL & "City = '" & City & "', "
		WriteLog CaseID,"Rdex", "City","S", City ,PTstamp 
	end if  
	if PState <> State then
		UpdateFlag = True
		SQL = SQL & "State = '" & State & "', "
		WriteLog CaseID,"Rdex", "State","S", State ,PTstamp
	end if  
	if PZip <> Zip then
		UpdateFlag = True
		SQL = SQL & "Zip = '" & Zip & "', "
		WriteLog CaseID,"Rdex", "Zip","S", Zip ,PTstamp
	end if  
	if PHphone <> Hphone then
		UpdateFlag = True
		SQL = SQL & "Hphone = '" & Hphone & "', "
		WriteLog CaseID,"Rdex", "Hphone","S", Hphone ,PTstamp
	end if  
	if PWphone <> Wphone then
		UpdateFlag = True
		SQL = SQL & "Wphone = '" & Wphone & "', "
		WriteLog CaseID,"Rdex", "Wphone","S", Wphone ,PTstamp
	end if  
	if UpdateFlag = True then
		SQL = SQL & "Tstamp = '" & Now & "'  "
		SQL = SQL & "WHERE ID = " & CaseID & " "
		Conn.execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "304. Error occurred attempting to modify an address.<br> " & SQL & err.description
			Err.Clear
		End If
	end if


'  ***************************************
'   Update Case Table 
'  ***************************************
	UpdateFlag = False
	SQL = "UPDATE tCase SET "
	if PAssignID <> AssignID then
	IF Session("UserType") = 1 then 
		UpdateFlag = True
		SQL = SQL & "AssignType = " & AssignID & ", "
		WriteLog CaseID,"tCase", "AssignType","N", AssignID,PTstamp   
	end if  
	end if  
	if PSSN <> SSN then
		UpdateFlag = True
		SQL = SQL & "SSN = '" & SSN & "', "
		WriteLog CaseID,"tCase", "SSN","S", SSN,PTstamp  
	end if  
	if PBirthDate <> BirthDate then
		UpdateFlag = True
		SQL = SQL & "BirthDate = '" & BirthDate & "', "
		WriteLog CaseID,"tCase", "BirthDate","S", BirthDate,PTstamp  
	end if  

	if PYear <> Year then
		Year = trim(Year)
		if IsNumeric(Year) then
			UpdateFlag = True
			SQL = SQL & "Year = " & Year & ", "
			WriteLog CaseID,"tCase", "Year","N", Year,PTstamp  
		end if
	end if
	if PMake <> Make then
		UpdateFlag = True
		SQL = SQL & "Make = '" & Make & "', "
		WriteLog CaseID,"tCase", "Make","S", Make,PTstamp  
	end if  

	if PColor <> Color then
		UpdateFlag = True
		SQL = SQL & "Color = '" & Color & "', "
		WriteLog CaseID,"tCase", "Color","S", Color,PTstamp  
	end if  
	if PPlate <> Plate then
		UpdateFlag = True
		SQL = SQL & "Plate = '" & Plate & "', "
		WriteLog CaseID,"tCase", "Plate","S", Plate,PTstamp  
	end if  
	if PPlateState <> PlateState then
		UpdateFlag = True
		SQL = SQL & "PlateState = '" & PlateState & "', "
		WriteLog CaseID,"tCase", "PlateState","S", PlateState,PTstamp  
	end if  

	if PAgentID <> AgentID then
		UpdateFlag = True
		SQL = SQL & "Agent = " & AgentID & ", "
		WriteLog CaseID,"tCase", "Agent","N", AgentID, PTstamp  
	end if  
	if PModel <> Model then
		UpdateFlag = True
		SQL = SQL & "Model = '" & Model & "', "
		WriteLog CaseID,"tCase", "Model","S", Model,PTstamp    
	end if  
	if PVIN <> VIN then
		UpdateFlag = True
		SQL = SQL & "VIN = '" & VIN & "', "
		WriteLog CaseID,"tCase", "VIN","S", VIN,PTstamp  
	end if  
	if PKeyIgn <> KeyIgn then
		UpdateFlag = True
		SQL = SQL & "KeyIgn = '" & KeyIgn & "', "
		WriteLog CaseID,"tCase", "KeyIgn","S", KeyIgn,PTstamp  
	end if  
	if PEmpName <> EmpName then
		UpdateFlag = True
		SQL = SQL & "EmpName = '" & EmpName & "', "
		WriteLog CaseID,"tCase", "EmpName","S", EmpName,PTstamp  
	end if  
	if PEmpAddr <> EmpAddr then
		UpdateFlag = True
		SQL = SQL & "EmpAddr = '" & EmpAddr & "', "
		WriteLog CaseID,"tCase", "EmpAddr","S", EmpAddr,PTstamp  
	end if  
	if PEmpCity <> EmpCity then
		UpdateFlag = True
		SQL = SQL & "EmpCity = '" & EmpCity & "', "
		WriteLog CaseID,"tCase", "EmpCity","S", EmpCity,PTstamp  
	end if  
	if PEmpState <> EmpState then
		UpdateFlag = True
		SQL = SQL & "EmpState = '" & EmpState & "', "
		WriteLog CaseID,"tCase", "EmpState","S", EmpState,PTstamp  
	end if  
	if PCoEmpName <> CoEmpName then
		UpdateFlag = True
		SQL = SQL & "CoEmpName = '" & CoEmpName & "', "
		WriteLog CaseID,"tCase", "CoEmpName","S", CoEmpName,PTstamp  
	end if  
	if PCoEmpAddr <> CoEmpAddr then
		UpdateFlag = True
		SQL = SQL & "CoEmpAddr = '" & CoEmpAddr & "', "
		WriteLog CaseID,"tCase", "CoEmpAddr","S", CoEmpAddr,PTstamp  
	end if  
	if PCoEmpCity <> CoEmpCity then
		UpdateFlag = True
		SQL = SQL & "CoEmpCity = '" & CoEmpCity & "', "
		WriteLog CaseID,"tCase", "CoEmpCity","S", CoEmpCity,PTstamp  
	end if  
	if PCoEmpState <> CoEmpState then
		UpdateFlag = True
		SQL = SQL & "CoEmpState = '" & CoEmpState & "', "
		WriteLog CaseID,"tCase", "CoEmpState","S", CoEmpState,PTstamp  
	end if  
	if PAmtDue <> AmtDue then
		if IsNumeric(AmtDue) then
			UpdateFlag = True
			SQL = SQL & "AmtDue = " & AmtDue & ", "
			WriteLog CaseID,"tCase", "AmtDue","N", AmtDue,PTstamp  
		end if
	end if
	if PDueDate <> DueDate then
		UpdateFlag = True
		SQL = SQL & "DueDate = '" & DueDate & "', "
		WriteLog CaseID,"tCase", "DueDate","S", DueDate,PTstamp  
	end if  
	if PPymtAmt <> PymtAmt then
		if IsNumeric(PymtAmt) then
			UpdateFlag = True
			SQL = SQL & "PymtAmt = " & PymtAmt & ", "
			WriteLog CaseID,"tCase", "PymtAmt","N", PymtAmt,PTstamp  
		end if
	end if
	if PBalance <> Balance then
		if IsNumeric(Balance) then
			UpdateFlag = True
			SQL = SQL & "Balance = " & Balance & ", "
			WriteLog CaseID,"tCase", "Balance","N", Balance,PTstamp  
		end if
	end if
	if PLienholder <> Lienholder then
		UpdateFlag = True
		SQL = SQL & "Lienholder = '" & Lienholder & "', "
		WriteLog CaseID,"tCase", "Lienholder","S", Lienholder,PTstamp  
	end if  

	if PDesc1Addr <> Desc1Addr then
		UpdateFlag = True
		SQL = SQL & "Desc1Addr = '" & Desc1Addr & "', "
		WriteLog CaseID,"tCase", "Desc1Addr","S", Desc1Addr,PTstamp  
	end if  
	if PDesc2Addr <> Desc2Addr then
		UpdateFlag = True
		SQL = SQL & "Desc2Addr = '" & Desc2Addr & "', "
		WriteLog CaseID,"tCase", "Desc2Addr","S", Desc2Addr,PTstamp  
	end if  

	if PSpecInstr <> SpecInstr then
		UpdateFlag = True
		SQL = SQL & "SpecInstr = '" & SpecInstr & "', "
		WriteLog CaseID,"tCase", "SpecInstr","L", SpecInstr, PTstamp  
	end if  
	if PACCTNBR <> ACCTNBR then
		UpdateFlag = True
		SQL = SQL & "ClientAcct = '" & ACCTNBR & "', "
		WriteLog CaseID,"tCase", "ClientAcct","S", ACCTNBR,PTstamp   
	end if  
	if PStatusID <> StatusID then
		UpdateFlag = True
		SQL = SQL & "Status = " & StatusID & ", "
		WriteLog CaseID,"tCase", "Status","N", StatusID,PTstamp 
  
		SQL = SQL & "StatusDate = " & Format(Date(),"mm/dd/yy")  & ", "
		WriteLog CaseID,"tCase", "StatusDate","D", Date(),PTstamp   
	end if  

	if PContactID <> ContactID then
		if IsNumeric(ContactID) then
			UpdateFlag = True
			SQL = SQL & "ContactID = " & ContactID & ", "
			WriteLog CaseID,"tCase", "ContactID","N", ContactID, PTstamp  
		end if
	end if  


	if UpdateFlag = True then
		SQL = SQL & "Tstamp = '" & Now & "' "
		SQL = SQL & "WHERE CaseID = " & CaseID & " "
		Conn.execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "304. Error occurred attempting to modify a case.<br> " & SQL & err.description
			Err.Clear
		End If
	end if
'  ***************************************
'   Update CoMaker (Rdex)
'  ***************************************
	UpdateFlag = False
	SQL = "UPDATE Rdex SET "

	if PCoLname <> CoLname then
		UpdateFlag = True
	end if
	if PCoFname <> CoFname then
		UpdateFlag = True
	end if  
	if PCoAddr1 <> CoAddr1 then
		UpdateFlag = True
	end if  
	if PCoAddr2 <> CoAddr2 then
		UpdateFlag = True
	end if  
	if PCoCity <> CoCity then
		UpdateFlag = True
	end if  
	if PCoState <> CoState then
		UpdateFlag = True
	end if  
	if PCoZip <> CoZip then
		UpdateFlag = True
	end if  
	if PCoWphone <> CoWphone then
		UpdateFlag = True
	end if  
	if UpdateFlag = True then
		'  read CoMaker ID
		SQL2 = "Select ID from Rdex " 
		SQL2 = SQL2 & "Where MasterID = " & CaseID & " "
		SQL2 = SQL2 & "And Type = '5' "
		Set rs = Conn.Execute (SQL2)
		if rs.EOF then
		'  Create New Comaker record
			rs.close
			set rs = nothing
			CoMakerID = NewKey("Rdex")
			SQL2 = "INSERT INTO Rdex ( "
			SQL2 = SQL2 & "ID, "
			SQL2 = SQL2 & "Type, "
			SQL2 = SQL2 & "MasterID "
			SQL2 = SQL2 & ") VALUES ("
			SQL2 = SQL2 & CoMakerID & ", "
			SQL2 = SQL2 & "'5', "
			SQL2 = SQL2 & CaseID & ") "
			Conn.Execute SQL2
			WriteLog CoMakerID,"Rdex", "Type","S", "5",PTstamp
			WriteLog CoMakerID,"Rdex", "MasterID","N", CaseID,PTstamp
		else
			CoMakerID = rs.fields("ID")
			rs.close
			set rs = nothing
		end if

	end if

	if PCoLname <> CoLname then
		UpdateFlag = True
		SQL = SQL & "Lname = '" & CoLname & "', "
		WriteLog CoMakerID,"Rdex", "Lname","S", CoLname,PTstamp
	end if
	if PCoFname <> CoFname then
		UpdateFlag = True
		SQL = SQL & "Fname = '" & CoFname & "', "
		WriteLog CoMakerID,"Rdex", "Fname","S", CoFname,PTstamp
	end if  
	if PCoAddr1 <> CoAddr1 then
		UpdateFlag = True
		SQL = SQL & "Addr1 = '" & CoAddr1 & "', "
		WriteLog CoMakerID,"Rdex", "Addr1","S", CoAddr1,PTstamp
	end if  
	if PCoAddr2 <> CoAddr2 then
		UpdateFlag = True
		SQL = SQL & "Addr2 = '" & CoAddr2 & "', "
		WriteLog CoMakerID,"Rdex", "Addr2","S", CoAddr2,PTstamp
	end if  
	if PCoCity <> CoCity then
		UpdateFlag = True
		SQL = SQL & "City = '" & CoCity & "', "
		WriteLog CoMakerID,"Rdex", "City","S", CoCity ,PTstamp 
	end if  
	if PCoState <> CoState then
		UpdateFlag = True
		SQL = SQL & "State = '" & CoState & "', "
		WriteLog CoMakerID,"Rdex", "State","S", CoState ,PTstamp
	end if  
	if PCoZip <> CoZip then
		if CoZip = "" then
			CoZip = " "
		end if
		UpdateFlag = True
		SQL = SQL & "Zip = '" & CoZip & "', "
		WriteLog CoMakerID,"Rdex", "Zip","S", CoZip ,PTstamp
	end if  
	if PCoWphone <> CoWphone then
		if CoWphone = "" then
			CoWphone = " "
		end if
		UpdateFlag = True
		SQL = SQL & "Wphone = '" & CoWphone & "', "
		WriteLog CoMakerID,"Rdex", "Wphone","S", CoWphone ,PTstamp
	end if  
	if UpdateFlag = True then

		' Update Comaker
		SQL = SQL & "Tstamp = '" & Now & "'  "
		SQL = SQL & "WHERE ID = " & CoMakerID & " "
		Conn.execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "Error occurred attempting to modify CoMaker.<br> " & SQL & err.description
			Err.Clear
		End If
	end if

'  ***************************************
'   Update Address 1 (Rdex)
'  ***************************************
	UpdateFlag = False


	if PA1Addr1 <> A1Addr1 then
		UpdateFlag = True
	end if  
	if PA1Addr2 <> A1Addr2 then
		UpdateFlag = True
	end if  
	if PA1City <> A1City then
		UpdateFlag = True
	end if  
	if PA1State <> A1State then
		UpdateFlag = True
	end if  
	if PA1Zip <> A1Zip then
		UpdateFlag = True
	end if  
	if UpdateFlag = True then
		'  read Address 1 ID
		SQL2 = "Select ID from Rdex " 
		SQL2 = SQL2 & "Where MasterID = " & CaseID & " "
		SQL2 = SQL2 & "And Type = '6' "
		Set rs = Conn.Execute (SQL2)
		if rs.EOF then
		'  Create New Comaker record
			rs.close
			set rs = nothing
			AddrID = NewKey("Rdex")
			SQL2 = "INSERT INTO Rdex ( "
			SQL2 = SQL2 & "ID, "
			SQL2 = SQL2 & "Type, "
			SQL2 = SQL2 & "MasterID "
			SQL2 = SQL2 & ") VALUES ("
			SQL2 = SQL2 & AddrID & ", "
			SQL2 = SQL2 & "'6', "
			SQL2 = SQL2 & CaseID & ") "
			Conn.Execute SQL2
			WriteLog AddrID,"Rdex", "Type","S", "6",PTstamp
			WriteLog AddrID,"Rdex", "MasterID","N", CaseID,PTstamp
		else
			AddrID = rs.fields("ID")
			rs.close
			set rs = nothing
		end if

	end if

	SQL = "UPDATE Rdex SET "

	if PA1Addr1 <> A1Addr1 then
		UpdateFlag = True
		SQL = SQL & "Addr1 = '" & A1Addr1 & "', "
		WriteLog AddrID,"Rdex", "Addr1","S", A1Addr1,PTstamp
	end if  
	if PA1Addr2 <> A1Addr2 then
		UpdateFlag = True
		SQL = SQL & "Addr2 = '" & A1Addr2 & "', "
		WriteLog AddrID,"Rdex", "Addr2","S", A1Addr2,PTstamp
	end if  
	if PA1City <> A1City then
		UpdateFlag = True
		SQL = SQL & "City = '" & A1City & "', "
		WriteLog AddrID,"Rdex", "City","S", A1City ,PTstamp 
	end if  
	if PA1State <> A1State then
		UpdateFlag = True
		SQL = SQL & "State = '" & A1State & "', "
		WriteLog AddrID,"Rdex", "State","S", A1State ,PTstamp
	end if  
	if PA1Zip <> A1Zip then
		UpdateFlag = True
		if A1Zip = "" then
			A1Zip = " "
		end if
		SQL = SQL & "Zip = '" & A1Zip & "', "
		WriteLog AddrID,"Rdex", "Zip","S", A1Zip ,PTstamp
	end if  
	if UpdateFlag = True then

		' Update Comaker
		SQL = SQL & "Tstamp = '" & Now & "'  "
		SQL = SQL & "WHERE ID = " & AddrID & " "
		Conn.execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "Error occurred attempting to modify Address 1.<br> " & SQL & err.description
			Err.Clear
		End If
	end if

'  ***************************************
'   Update Address 2 (Rdex)
'  ***************************************
	UpdateFlag = False
	SQL = "UPDATE Rdex SET "


	if PA2Addr1 <> A2Addr1 then
		UpdateFlag = True
	end if  
	if PA2Addr2 <> A2Addr2 then
		UpdateFlag = True
	end if  
	if PA2City <> A2City then
		UpdateFlag = True
	end if  
	if PA2State <> A2State then
		UpdateFlag = True
	end if  
	if PA2Zip <> A2Zip then
		UpdateFlag = True
	end if  
	if UpdateFlag = True then
		'  read Address 1 ID
		SQL2 = "Select ID from Rdex " 
		SQL2 = SQL2 & "Where MasterID = " & CaseID & " "
		SQL2 = SQL2 & "And Type = '7' "
		Set rs = Conn.Execute (SQL2)
		if rs.EOF then
		'  Create New Comaker record
			rs.close
			set rs = nothing
			AddrID = NewKey("Rdex")
			SQL2 = "INSERT INTO Rdex ( "
			SQL2 = SQL2 & "ID, "
			SQL2 = SQL2 & "Type, "
			SQL2 = SQL2 & "MasterID "
			SQL2 = SQL2 & ") VALUES ("
			SQL2 = SQL2 & AddrID & ", "
			SQL2 = SQL2 & "'7', "
			SQL2 = SQL2 & CaseID & ") "
			Conn.Execute SQL2
			WriteLog AddrID,"Rdex", "Type","S", "7",PTstamp
			WriteLog AddrID,"Rdex", "MasterID","N", CaseID,PTstamp
		else
			AddrID = rs.fields("ID")
			rs.close
			set rs = nothing
		end if

	end if


	if PA2Addr1 <> A2Addr1 then
		UpdateFlag = True
		SQL = SQL & "Addr1 = '" & A2Addr1 & "', "
		WriteLog AddrID,"Rdex", "Addr1","S", A2Addr1,PTstamp
	end if  
	if PA2Addr2 <> A2Addr2 then
		UpdateFlag = True
		SQL = SQL & "Addr2 = '" & A2Addr2 & "', "
		WriteLog AddrID,"Rdex", "Addr2","S", A2Addr2,PTstamp
	end if  
	if PA2City <> A2City then
		UpdateFlag = True
		SQL = SQL & "City = '" & A2City & "', "
		WriteLog AddrID,"Rdex", "City","S", A2City ,PTstamp 
	end if  
	if PA2State <> A2State then
		UpdateFlag = True
		SQL = SQL & "State = '" & A2State & "', "
		WriteLog CaseID,"Rdex", "State","S", A2State ,PTstamp
	end if  
	if PA2Zip <> A2Zip then
		UpdateFlag = True
		if A2Zip = "" then
			A2Zip = " "
		end if
		SQL = SQL & "Zip = '" & A2Zip & "', "
		WriteLog AddrID,"Rdex", "Zip","S", A2Zip ,PTstamp
	end if  
	if UpdateFlag = True then

		' Update Comaker
		SQL = SQL & "Tstamp = '" & Now & "'  "
		SQL = SQL & "WHERE ID = " & AddrID & " "
		Conn.execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "Error occurred attempting to modify Address 2.<br> " & SQL & err.description
			Err.Clear
		End If
	end if


	conn.close
	set conn = nothing

	if strErrorMsg = "" then		
		response.redirect("openinv.asp")
	else
		ShowError(strErrorMsg)
	end if
%>