<!-- #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 Empolyer information
' **   614  10/29/06  Add StatusDate column to tCase table.
' **   589  10/15/06  Ability for collectors to logon to web site
'  05/29/06 E599 SSN corrected to preserve last two digits
'  09/22/05 E504 SSN corrected to save in the database
'  09/22/05 E502 remove commas from amount fields
'
'  ***********************************************************

	Dim ConnStr
	Dim Conn
	Dim rs
	Dim SQL
	Dim SQL2
	Dim UpdateFlag
	Dim strWrk

'    New Values
	Dim CaseID
	Dim AddrID
	Dim ClientID
	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 EmpZip
	Dim CoEmpName
	Dim CoEmpAddr
	Dim CoEmpCity
	Dim CoEmpState
	Dim CoEmpZip
	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

	Dim Tstamp

	Dim ErrMsg
	Dim StrErrorMsg
	Dim URL


	On Error Resume Next
	Tstamp = Now()
	strErrorMsg = ""
	ErrMsg = ""

'  ***************************************
'   Set new values
'  ***************************************
	ClientID = Request.QueryString("ClientID")
	ClientID = trim(ClientID)	 
	AgentID = Request.QueryString("AgentID")
	AgentID = trim(AgentID)	 
	StatusID = Request.QueryString("StatusID")
	StatusID = trim(StatusID)	 
	AssignID = Request.QueryString("AssignID")
	AssignID = trim(AssignID)	 
	AcctNbr = Request.QueryString("AcctNbr")
	AcctNbr = EdLine(AcctNbr)
	Lname = Request.QueryString("Lname")
	Lname = EdLine(Lname)
	Fname = Request.QueryString("Fname")
	Fname = EdLine(Fname)
	Addr1 = Request.QueryString("Addr1")
	Addr1 = EdLine(Addr1)
	Addr2 = Request.QueryString("Addr2")
	Addr2 = EdLine(Addr2)
	City = Request.QueryString("City")
	City = EdLine(City)
	State = Request.QueryString("State")
	State = EdLine(State)
	Zip = Request.QueryString("Zip")
	Zip = EdLine(Zip)
	Hphone = Request.QueryString("Hphone")
	Hphone = EdLine(Hphone)
	Wphone = Request.QueryString("Wphone")
	Wphone = EdLine(Wphone)
	SSN = Request.QueryString("SSN")
	'SSN = EdLine(SSN)
	BirthDate = Request.QueryString("BirthDate")
	BirthDate = EdLine(BirthDate)

	Year = Request.QueryString("Year")
	Year = EdLine(Year)
	Make = Request.QueryString("Make")
	Make = EdLine(Make)
	Model = Request.QueryString("Model")
	Model = EdLine(Model)

	Color = Request.QueryString("Color")
	Color = EdLine(Color)
	Plate = Request.QueryString("Plate")
	Plate = EdLine(Plate)
	PlateState = Request.QueryString("PlateState")
	PlateState = EdLine(PlateState)

	VIN = Request.QueryString("VIN")
	VIN = EdLine(VIN)
	KeyIgn = Request.QueryString("KeyIgn")
	KeyIgn = EdLine(KeyIgn)
	KeyIgn = Replace(KeyIgn, "'", "''")
	EmpName = Request.QueryString("EmpName")
	EmpName = EdLine(EmpName)
	EmpAddr = Request.QueryString("EmpAddr")
	EmpAddr = EdLine(EmpAddr)
	EmpCity = Request.QueryString("EmpCity")
	EmpCity = EdLine(EmpCity)
	EmpState = Request.QueryString("EmpState")
	EmpState = EdLine(EmpState)
	EmpZip = Request.QueryString("EmpZip")
	EmpZip = EdLine(EmpZip)
	CoEmpName = Request.QueryString("CoEmpName")
	CoEmpName = EdLine(CoEmpName)
	CoEmpAddr = Request.QueryString("CoEmpAddr")
	CoEmpAddr = EdLine(CoEmpAddr)
	CoEmpCity = Request.QueryString("CoEmpCity")
	CoEmpCity = EdLine(CoEmpCity)
	CoEmpState = Request.QueryString("CoEmpState")
	CoEmpState = EdLine(CoEmpState)
	CoEmpZip = Request.QueryString("CoEmpZip")
	CoEmpZip = EdLine(CoEmpZip)
	AmtDue = Request.QueryString("AmtDue")
	AmtDue = EdNum(AmtDue)
	DueDate = Request.QueryString("DueDate")
	DueDate = EdLine(DueDate)
	PymtAmt = Request.QueryString("PymtAmt")
	PymtAmt = EdNum(PymtAmt)
	Balance = Request.QueryString("Balance")
	Balance = EdNum(Balance)
	Lienholder = Request.QueryString("Lienholder")
	Lienholder = EdLine(Lienholder)

	Desc1Addr = Request.QueryString("Desc1Addr")
	Desc1Addr = EdLine(Desc1Addr)
	Desc2Addr = Request.QueryString("Desc2Addr")
	Desc2Addr = EdLine(Desc2Addr)

	SpecInstr = Request.QueryString("SpecInstr")
	SpecInstr = EdLine(SpecInstr)

	ContactID = Request.QueryString("ContactID")
	ContactID = trim(ContactID)	 


	CoLname = Request.QueryString("CoLname")
	CoLname = EdLine(CoLname)
	CoFname = Request.QueryString("CoFname")
	CoFname = EdLine(CoFname)
	CoAddr1 = Request.QueryString("CoAddr1")
	CoAddr1 = EdLine(CoAddr1)
	CoAddr2 = Request.QueryString("CoAddr2")
	CoAddr2 = EdLine(CoAddr2)
	CoCity = Request.QueryString("CoCity")
	CoCity = EdLine(CoCity)
	CoState = Request.QueryString("CoState")
	CoState = EdLine(CoState)
	CoZip = Request.QueryString("CoZip")
	CoZip = EdLine(CoZip)
	CoWphone = Request.QueryString("CoWphone")
	CoWphone = EdLine(CoWphone)


	A1Addr1 = Request.QueryString("A1Addr1")
	A1Addr1 = EdLine(A1Addr1)
	A1Addr2 = Request.QueryString("A1Addr2")
	A1Addr2 = EdLine(A1Addr2)
	A1City = Request.QueryString("A1City")
	A1City = EdLine(A1City)
	A1State = Request.QueryString("A1State")
	A1State = EdLine(A1State)
	A1Zip = Request.QueryString("A1Zip")
	A1Zip = EdLine(A1Zip)

	A2Addr1 = Request.QueryString("A2Addr1")
	A2Addr1 = EdLine(A2Addr1)
	A2Addr2 = Request.QueryString("A2Addr2")
	A2Addr2 = EdLine(A2Addr2)
	A2City = Request.QueryString("A2City")
	A2City = EdLine(A2City)
	A2State = Request.QueryString("A2State")
	A2State = EdLine(A2State)
	A2Zip = Request.QueryString("A2Zip")
	A2Zip = EdLine(A2Zip)
'  ***************************************
'   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

'  ***************************************
'   Update Address Table (Rdex)
'  ***************************************
	Tstamp = Now()

	CaseID = NewKey("Rdex")
	if CaseID = 0 then
		showError(strErrorMsg)
	end if
' line 98

	if strErrorMsg = "" then
		SQL = "INSERT INTO Rdex ("
		SQL = SQL & "ID "
		SQL = SQL & ") VALUES ("
		SQL = SQL & CaseID
		SQL = SQL & ") "
		Conn.Execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "304. Error occurred attempting to add a new address.<br> " 
			Err.Clear
		else
			WriteLog CaseID,"Rdex", "ID", "N", CaseID, Tstamp, ErrMsg  
		End If
	end if

	if strErrorMsg = "" then
		SQL = "UPDATE Rdex SET "
		SQL = SQL & "Type = '3', "
		WriteLog CaseID,"Rdex", "Type","S", "3", Tstamp

		SQL = SQL & "MasterID = " & ClientID & ", "
		WriteLog CaseID,"Rdex", "MasterID","N", ClientID, Tstamp
  
		if Lname > "" then
			SQL = SQL & "Lname = '" & Lname & "', "
			WriteLog CaseID,"Rdex", "Lname","S", Lname, Tstamp
		end if

		if Fname > "" then
			SQL = SQL & "Fname = '" & Fname & "', "
			WriteLog CaseID,"Rdex", "Fname","S", Fname, Tstamp
		end if

		if Addr1 > "" then
			SQL = SQL & "Addr1 = '" & Addr1 & "', "
			WriteLog CaseID,"Rdex", "Addr1","S", Addr1, Tstamp
		end if

		if Addr2 > "" then
			SQL = SQL & "Addr2 = '" & Addr2 & "', "
			WriteLog CaseID,"Rdex", "Addr2","S", Addr2, Tstamp
		end if

		if City > "" then
			SQL = SQL & "City = '" & City & "', "
			WriteLog CaseID,"Rdex", "City","S", City, Tstamp
		end if

		if State > "" then
			SQL = SQL & "State = '" & State & "', "
			WriteLog CaseID,"Rdex", "State","S", State, Tstamp
		end if

		if Zip > "" then
			SQL = SQL & "Zip = '" & Zip & "', "
			WriteLog CaseID,"Rdex", "Zip","S", Zip, Tstamp
		end if

		if Zip > "" then
			SQL = SQL & "Hphone = '" & Hphone & "', "
			WriteLog CaseID,"Rdex", "Hphone","S", Hphone, Tstamp
		end if

		if Zip > "" then
			SQL = SQL & "Wphone = '" & Wphone & "', "
			WriteLog CaseID,"Rdex", "Wphone","S", Wphone, Tstamp
		end if

		SQL = SQL & "Active = 'Y', "
		WriteLog CaseID,"Rdex", "Active", "S", "Y", Tstamp

		SQL = SQL & "Tstamp = '" & Now() & "' "
		SQL = SQL & "WHERE ID = " & CaseID & " "
		Conn.Execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "304. Error occurred attempting to update new address.<br> " & sql & err.description
			Err.Clear
		End If
	end if

'  ***************************************
'	   Update Case Table
'  ***************************************
	if strErrorMsg = "" then
		SQL = "INSERT INTO tCase ("
		SQL = SQL & "CaseID "
		SQL = SQL & ") VALUES ("
		SQL = SQL & CaseID
		SQL = SQL & ") "
		Conn.Execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "304. Error occurred attempting to add a new case.<br> " 
			Err.Clear
		else
			WriteLog CaseID,"tCase", "CaseID","N", CaseID, Tstamp  
		End If
	end if
	if strErrorMsg = "" then
		SQL = "Update tCase SET "

		if ACCTNBR > "" then
			SQL = SQL & "ClientAcct = '" & ACCTNBR & "', "
			WriteLog CaseID,"tCase", "ClientAcct","S", ACCTNBR, Tstamp
		end if

		if SSN > "" then
			SQL = SQL & "SSN = " & SSN & ", "
			WriteLog CaseID,"tCase", "SSN","S", SSN,PTstamp  
		end if  
		if BirthDate > "" then
			SQL = SQL & "BirthDate = '" & BirthDate & "', "
			WriteLog CaseID,"tCase", "BirthDate","S", BirthDate,PTstamp  
		end if  
		if Year > "" then
			Year = trim(Year)
			if IsNumeric(Year) then
				SQL = SQL & "Year = " & Year & ", "
				WriteLog CaseID,"tCase", "Year","N", Year, Tstamp
			end if
		end if

		if Make > "" then
			SQL = SQL & "Make = '" & Make & "', "
			WriteLog CaseID,"tCase", "Make","S", Make, Tstamp
		end if

		if Model > "" then
			SQL = SQL & "Model = '" & Model & "', "
			WriteLog CaseID,"tCase", "Model","S", Model, Tstamp
		end if

		if Color > "" then
			SQL = SQL & "Color = '" & Color & "', "
			WriteLog CaseID,"tCase", "Color","S", Color, Tstamp
		end if

		if Plate > "" then
			SQL = SQL & "Plate = '" & Plate & "', "
			WriteLog CaseID,"tCase", "Plate","S", Plate, Tstamp
		end if

		if PlateState > "" then
			SQL = SQL & "PlateState = '" & PlateState & "', "
			WriteLog CaseID,"tCase", "PlateState","S", PlateState, Tstamp
		end if

		if VIN > "" then
			SQL = SQL & "VIN = '" & VIN & "', "
			WriteLog CaseID,"tCase", "VIN","S", VIN, Tstamp
			SQL = SQL & "VIN4 = '" & Right(VIN,4) & "', "
			WriteLog CaseID,"tCase", "VIN4","S", Right(VIN,4), Tstamp
		end if
		if KeyIgn > "" then
			SQL = SQL & "KeyIgn = '" & KeyIgn & "', "
			WriteLog CaseID,"tCase", "KeyIgn","S", KeyIgn, Tstamp
		end if

		if EmpName > "" then
			SQL = SQL & "EmpName = '" & EmpName & "', "
			WriteLog CaseID,"tCase", "EmpName","S", EmpName, Tstamp
		end if
		if EmpAddr > "" then
			SQL = SQL & "EmpAddr = '" & EmpAddr & "', "
			WriteLog CaseID,"tCase", "EmpAddr","S", EmpAddr, Tstamp
		end if
		if EmpCity > "" then
			SQL = SQL & "EmpCity = '" & EmpCity & "', "
			WriteLog CaseID,"tCase", "EmpCity","S", EmpCity, Tstamp
		end if
		if EmpState > "" then
			SQL = SQL & "EmpState = '" & EmpState & "', "
			WriteLog CaseID,"tCase", "EmpState","S", EmpState, Tstamp
		end if
		if EmpZip > "" then
			SQL = SQL & "EmpZip = '" & EmpZip & "', "
			WriteLog CaseID,"tCase", "EmpZip","S", EmpZip, Tstamp
		end if


		if CoEmpName > "" then
			SQL = SQL & "CoEmpName = '" & CoEmpName & "', "
			WriteLog CaseID,"tCase", "CoEmpName","S", CoEmpName, Tstamp
		end if
		if CoEmpAddr > "" then
			SQL = SQL & "CoEmpAddr = '" & CoEmpAddr & "', "
			WriteLog CaseID,"tCase", "CoEmpAddr","S", CoEmpAddr, Tstamp
		end if
		if CoEmpCity > "" then
			SQL = SQL & "CoEmpCity = '" & CoEmpCity & "', "
			WriteLog CaseID,"tCase", "CoEmpCity","S", CoEmpCity, Tstamp
		end if
		if CoEmpState > "" then
			SQL = SQL & "CoEmpState = '" & CoEmpState & "', "
			WriteLog CaseID,"tCase", "CoEmpState","S", CoEmpState, Tstamp
		end if
		if CoEmpZip > "" then
			SQL = SQL & "CoEmpZip = '" & CoEmpZip & "', "
			WriteLog CaseID,"tCase", "CoEmpZip","S", CoEmpZip, Tstamp
		end if

		if Lienholder > "" then
			SQL = SQL & "Lienholder = '" & Lienholder & "', "
			WriteLog CaseID,"tCase", "Lienholder","S", Lienholder, Tstamp
		end if

		if Desc1Addr > "" then
			SQL = SQL & "Desc1Addr = '" & Desc1Addr & "', "
			WriteLog CaseID,"tCase", "Desc1Addr","S", Desc1Addr, Tstamp
		end if
		if Desc2Addr > "" then
			SQL = SQL & "Desc2Addr = '" & Desc2Addr & "', "
			WriteLog CaseID,"tCase", "Desc2Addr","S", Desc2Addr, Tstamp
		end if

		if Specinstr > "" then
			SQL = SQL & "SpecInstr = '" & Specinstr & "', "
			WriteLog CaseID,"tCase", "SpecInstr","L", SpecInstr, Tstamp
		end if
		if AmtDue > "" then
			if IsNumeric(AmtDue) then
				SQL = SQL & "AmtDue = " & AmtDue & ", "
				WriteLog CaseID,"tCase", "AmtDue","N", AmtDue, Tstamp
			end if
		end if
		if DueDate > "" then
			SQL = SQL & "DueDate = '" & DueDate & "', "
			WriteLog CaseID,"tCase", "DueDate","S", DueDate, Tstamp
		end if
		if PymtAmt > "" then
			if IsNumeric(PymtAmt) then
				SQL = SQL & "PymtAmt = " & PymtAmt & ", "
				WriteLog CaseID,"tCase", "PymtAmt","N", PymtAmt, Tstamp
			end if
		end if
		if Balance > "" then
			if IsNumeric(Balance) then
				SQL = SQL & "Balance = " & Balance & ", "
				WriteLog CaseID,"tCase", "Balance","N", Balance, Tstamp
			end if
		end if

		if AGENTID > "" then
			SQL = SQL & "Agent = " & AGENTID & ", "
			WriteLog CaseID,"tCase", "Agent","N", AGENTID, Tstamp
		end if

		if STATUSID > "" then
			SQL = SQL & "Status = " & STATUSID & ", "
			WriteLog CaseID,"tCase", "Status","N", STATUSID, Tstamp
			SQL = SQL & "StatusDate = '" & Format(date(),"mm/dd/yyyy") & "', "
			WriteLog CaseID,"tCase", "StatusDate","D", Date(), Tstamp
		end if

		if ASSIGNID > "" then
			SQL = SQL & "Assigntype = " & ASSIGNID & ", "
			WriteLog CaseID,"tCase", "Assigntype","N", ASSIGNID, Tstamp
		end if

		if ContactID > 0 then
			SQL = SQL & "ContactID = " & ContactID & ", "
			WriteLog CaseID,"tCase", "ContactID","N", ContactID, Tstamp
		end if

		SQL = SQL & "AssignDate = '" & Date() & "', "
		WriteLog CaseID,"tCase", "AssignDate","D", Date(), Tstamp

		SQL = SQL & "StatusDate = '" & Date() & "', "
		WriteLog CaseID,"tCase", "StatusDate","D", Date(), Tstamp

		SQL = SQL & "Tstamp = '" & Now() & "' "
		SQL = SQL & "WHERE CaseID = " & CaseID & " "

		Conn.Execute SQL
		If Err.number <> 0 Then
			strErrorMsg = strErrorMsg & "304. Error occurred attempting to add a new case.<br> " 
			strErrorMsg = strErrorMsg & err.description & "<br> " 
			Err.Clear
		else
			WriteLog CaseID,"tCase", "CaseID","N", CaseID, Tstamp 
		End If
	end if

'  ***************************************
'   Update CoMaker (Rdex)
'  ***************************************
	UpdateFlag = False
	SQL = "UPDATE Rdex SET "


	if CoLname > "" then
		UpdateFlag = True
	end if
	if CoFname > "" then
		UpdateFlag = True
	end if  
	if CoAddr1 > "" then
		UpdateFlag = True
	end if  
	if CoAddr2 > "" then
		UpdateFlag = True
	end if  
	if CoCity > "" then
		UpdateFlag = True
	end if  
	if CoState > "" then
		UpdateFlag = True
	end if  
	if CoZip > "" then
		UpdateFlag = True
	end if  
	if CoWphone > "" then
		UpdateFlag = True
	end if  
	if UpdateFlag = True then
		'  Create New Comaker record
			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
	end if


	if CoLname  > "" then
		UpdateFlag = True
		SQL = SQL & "Lname = '" & CoLname & "', "
		WriteLog CoMakerID,"Rdex", "Lname","S", CoLname,PTstamp
	end if
	if CoFname  > "" then
		UpdateFlag = True
		SQL = SQL & "Fname = '" & CoFname & "', "
		WriteLog CoMakerID,"Rdex", "Fname","S", CoFname,PTstamp
	end if  
	if CoAddr1 > "" then
		UpdateFlag = True
		SQL = SQL & "Addr1 = '" & CoAddr1 & "', "
		WriteLog CoMakerID,"Rdex", "Addr1","S", CoAddr1,PTstamp
	end if  
	if CoAddr2  > "" then
		UpdateFlag = True
		SQL = SQL & "Addr2 = '" & CoAddr2 & "', "
		WriteLog CoMakerID,"Rdex", "Addr2","S", CoAddr2,PTstamp
	end if  
	if CoCity > "" then
		UpdateFlag = True
		SQL = SQL & "City = '" & CoCity & "', "
		WriteLog CoMakerID,"Rdex", "City","S", CoCity ,PTstamp 
	end if  
	if CoState > "" then
		UpdateFlag = True
		SQL = SQL & "State = '" & CoState & "', "
		WriteLog CoMakerID,"Rdex", "State","S", CoState ,PTstamp
	end if  
	if  CoZip > "" then
		UpdateFlag = True
		SQL = SQL & "Zip = '" & CoZip & "', "
		WriteLog CoMakerID,"Rdex", "Zip","S", CoZip ,PTstamp
	end if  
	if  CoWphone > "" then
		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
	SQL = "UPDATE Rdex SET "

	if A1Addr1 > "" then
		UpdateFlag = True
	end if  
	if A1Addr2 > "" then
		UpdateFlag = True
	end if  
	if A1City > "" then
		UpdateFlag = True
	end if  
	if A1State > "" then
		UpdateFlag = True
	end if  
	if A1Zip > "" then
		UpdateFlag = True
	end if  

'  find address 1 ID 
	if UpdateFlag = True then
		'  read Address 1
		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 Address 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

	if A1Addr1 > "" then
		UpdateFlag = True
		SQL = SQL & "Addr1 = '" & A1Addr1 & "', "
		WriteLog AddrID,"Rdex", "Addr1","S", A1Addr1,PTstamp
	end if  
	if A1Addr2 > "" then
		UpdateFlag = True
		SQL = SQL & "Addr2 = '" & A1Addr2 & "', "
		WriteLog AddrID,"Rdex", "Addr2","S", A1Addr2,PTstamp
	end if  
	if A1City > "" then
		UpdateFlag = True
		SQL = SQL & "City = '" & A1City & "', "
		WriteLog AddrID,"Rdex", "City","S", A1City ,PTstamp 
	end if  
	if A1State > "" then
		UpdateFlag = True
		SQL = SQL & "State = '" & A1State & "', "
		WriteLog AddrID,"Rdex", "State","S", A1State ,PTstamp
	end if  
	if A1Zip > "" then
		UpdateFlag = True
		SQL = SQL & "Zip = '" & A1Zip & "', "
		WriteLog AddrID,"Rdex", "Zip","S", A1Zip ,PTstamp
	end if  
	if UpdateFlag = True then

		' Update Address 1
		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 A2Addr1 > "" then
		UpdateFlag = True
	end if  
	if A2Addr2 > "" then
		UpdateFlag = True
	end if  
	if A2City > "" then
		UpdateFlag = True
	end if  
	if A2State > "" then
		UpdateFlag = True
	end if  
	if A2Zip > "" then
		UpdateFlag = True
	end if  
	if UpdateFlag = True then
		'  read Address 2
		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 Address 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 A2Addr1 > "" then
		UpdateFlag = True
		SQL = SQL & "Addr1 = '" & A2Addr1 & "', "
		WriteLog AddrID,"Rdex", "Addr1","S", A2Addr1,PTstamp
	end if  
	if A2Addr2 > "" then
		UpdateFlag = True
		SQL = SQL & "Addr2 = '" & A2Addr2 & "', "
		WriteLog AddrID,"Rdex", "Addr2","S", A2Addr2,PTstamp
	end if  
	if A2City > "" then
		UpdateFlag = True
		SQL = SQL & "City = '" & A2City & "', "
		WriteLog AddrID,"Rdex", "City","S", A2City ,PTstamp 
	end if  
	if A2State > "" then
		UpdateFlag = True
		SQL = SQL & "State = '" & A2State & "', "
		WriteLog AddrID,"Rdex", "State","S", A2State ,PTstamp
	end if  
	if A2Zip > "" then
		UpdateFlag = True
		SQL = SQL & "Zip = '" & A2Zip & "', "
		WriteLog AddrID,"Rdex", "Zip","S", A2Zip ,PTstamp
	end if  
	if UpdateFlag = True then

		' Update Address 2
		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
		URL = "case.asp?CaseID=" & CaseID
		response.redirect(URL)
	else
		ShowError(strErrorMsg)
	end if
%>