ASP

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/con1.asp" -->
<SCRIPT LANGUAGE=vbscript>
<!--
DIM ValidForm
Sub ValidateEmployee
	'If Document.form1.ppiloan.value <> "" then
	
	If Document.form1.ppiloan.value <> "matb" and Document.form1.ppiloan.value <> "jackc" and Document.form1.ppiloan.value <> "ruthv" and Document.form1.ppiloan.value <> "bradm" Then
	MsgBox "Enter the Proper Verifier Code"	
	Else 
		SET Add = document.form1
	    ValidForm = True
	End If

	'If Document.form1.ppiloan.value <> "" then
	'SET Add = document.form1
	'ValidForm = True
	'Else 
	'	MsgBox "Enter the Verifier Code"
	'End If

	
	'call checkfield(add.Phone.value, "Please Enter the Customer's Phone No",50)
	
	'sdate = add.smonth(add.smonth.selectedindex).text & "/" & add.sday(add.sday.selectedindex).text & "/" & add.sYear(add.sYear.selectedindex).text
	'Call CheckDate(sdate, "Please Select the Valid Sale Date")
	IF ValidForm THEN
		Add.submit
	END IF
END Sub

Sub SubmitPhone
	if document.form1.SrPhone.value <> "" then
		document.form1.status.value = ""
		document.form1.submit
	else
		msgbox "Enter the Phone No. to Find"
	end if
END Sub

sub window_onload()
	radionchange
	Shipto_onClick
	Ship1_onClick
	Ship2_onClick
end sub


SUB radionchange
HideFrame(form1.all.DivCredit)
HideFrame(form1.all.DivBank)
	if form1.PayMode(0).checked = true then
		ShowFrame(form1.all.DivCredit)
	else
		ShowFrame(form1.all.DivBank)		
	end if	
end sub

sub ProductAmt_onkeypress()
	if not isnumeric(form1.ProductAmt.value & chr(window.event.keyCode)) then window.event.keyCode = 0
end sub

sub Shipping_onkeypress()
	if not isnumeric(form1.Shipping.value & chr(window.event.keyCode)) then window.event.keyCode = 0
end sub
sub Tax_onkeypress()
	if not isnumeric(form1.Tax.value & chr(window.event.keyCode)) then window.event.keyCode = 0
end sub


sub Shipto_onClick()
	if form1.shipto.checked = true then 
		ShowFrame(form1.all.DivShipto)
	else
		HideFrame(form1.all.DivShipto)
	end if
end sub

sub Ship1_onClick()
	if form1.ship1.checked = true then 
		ShowFrame(form1.all.DivShip1)
	else
		HideFrame(form1.all.DivShip1)
	end if
end sub

sub Ship2_onClick()
	if form1.ship2.checked = true then 
		ShowFrame(form1.all.DivShip2)
	else
		HideFrame(form1.all.DivShip2)
	end if
end sub

sub ShowFrame(FrameName)
	framename.style.visibility = "visible"
	framename.style.position = ""
end sub

sub HideFrame(FrameName)
	FrameName.style.visibility = "hidden"
	FrameName.style.position = "absolute"
end sub

//-->
</SCRIPT>

<SCRIPT LANGUAGE=javascript type="text/JavaScript">

function ddl()
	{
		var x = document.all("cavitywalls");
		var y = x.options[x.selectedIndex].text;
		if(y == "Yes")
		{
			document.form1.Ship1.disabled = true;
			alert("No more Cavity Questions");
		}
		if(y == "No")
		{
			document.form1.Ship1.disabled = false;
		}	
	}
	
	function ddr()
	{
		var x = document.all("Insutenyrs");
		var y = x.options[x.selectedIndex].text;
		if(y == "Yes")
		{
			document.form1.paymode[0].disabled = true;
			alert("No more Loft Questions");
		}
		if(y == "No")
		{
			document.form1.paymode[0].disabled = false;
		}
	}
	
	function dds()
	{
		var x = document.all("InsuJoist");
		var y = x.options[x.selectedIndex].text;
		if(y == "Above")
		{
			document.form1.paymode[0].disabled = true;
			document.form1.InsuLoftTen.disabled = true;
			document.form1.InsuJoist.disabled = true;
			document.form1.InsuLoftBoard.disabled = true;
			document.form1.InsuLoftEmp.disabled = true;
			document.form1.InsuWorkLoft.disabled = true;
			document.form1.InsuLoftConv.disabled = true;
			document.form1.paymode[1].checked = true;
			alert("No more Loft Questions");
		}
		else
		{
			document.form1.paymode[0].disabled = false;
		}
	}

	function ddsss()
	{
		var x = document.all("disposition");
		var y = x.options[x.selectedIndex].text;
		if(y == "DGI Insulation")
		{
			if((document.getElementById("ziparea").value == "B")||(document.getElementById("ziparea").value == "BA")||(document.getElementById("ziparea").value == "BS")||(document.getElementById("ziparea").value == "CF")||(document.getElementById("ziparea").value == "CH")||(document.getElementById("ziparea").value == "CV")||(document.getElementById("ziparea").value == "CW")||(document.getElementById("ziparea").value == "DE")||(document.getElementById("ziparea").value == "DY")||(document.getElementById("ziparea").value == "GL")||(document.getElementById("ziparea").value == "HR")||(document.getElementById("ziparea").value == "LE")||(document.getElementById("ziparea").value == "MK")||(document.getElementById("ziparea").value == "NG")||(document.getElementById("ziparea").value == "NN")||(document.getElementById("ziparea").value == "NP")||(document.getElementById("ziparea").value == "OX")||(document.getElementById("ziparea").value == "PE")||(document.getElementById("ziparea").value == "SA")||(document.getElementById("ziparea").value == "SN")||(document.getElementById("ziparea").value == "ST")||(document.getElementById("ziparea").value == "SY")||(document.getElementById("ziparea").value == "TA")||(document.getElementById("ziparea").value == "TF")||(document.getElementById("ziparea").value == "WA")||(document.getElementById("ziparea").value == "WR")||(document.getElementById("ziparea").value == "WS")||(document.getElementById("ziparea").value == "WV")||(document.getElementById("ziparea").value == "LD")||(document.getElementById("ziparea").value == "LN")||(document.getElementById("ziparea").value == "SK")||(document.getElementById("ziparea").value == "SP")||(document.getElementById("ziparea").value == "S"))
			{
			document.form1.Submitform.disabled = false;
			}
			else
			{
			document.form1.Submitform.disabled = true;
			alert("You Can't Take this Postcode for DGI Insulation");
			}

		}

		if(y == "WarmGen Insulation")
		{
			if((document.getElementById("ziparea").value == "L")||(document.getElementById("ziparea").value == "M")||(document.getElementById("ziparea").value == "WA")||(document.getElementById("ziparea").value == "CF")||(document.getElementById("ziparea").value == "CH")||(document.getElementById("ziparea").value == "WN"))
			{
			document.form1.Submitform.disabled = false;
			}
			else
			{
			document.form1.Submitform.disabled = true;
			alert("You Can't Take this Postcode for WarmGen Insulation");
			}

		}

		if(y == "IntellyGen")
		{
			if((document.getElementById("ziparea").value == "B")||(document.getElementById("ziparea").value == "WS")||(document.getElementById("ziparea").value == "WV")||(document.getElementById("ziparea").value == "CV")||(document.getElementById("ziparea").value == "DE")||(document.getElementById("ziparea").value == "LE")||(document.getElementById("ziparea").value == "LE"))
			{
			document.form1.Submitform.disabled = false;
			}
			else
			{
			document.form1.Submitform.disabled = true;
			alert("You Can't Take this Postcode for IntellyGen");
			}

		}
		if(y == "Crest Surveying")
		{
			if((document.getElementById("ziparea").value == "GU")||(document.getElementById("ziparea").value == "SO")
			{
			document.form1.Submitform.disabled = false;
			}
			else
			{
			document.form1.Submitform.disabled = true;
			alert("You Can't Take this Postcode for Crest Surveying");
			}

		}
		
	}
	
	function ddssw()
	{
		var x = document.all("disposition");
		var y = x.options[x.selectedIndex].text;

		var xsw = document.all("Location");
		var ysw = xsw.options[xsw.selectedIndex].text;

		if(y == "" || ysw == "")
		{
			document.form1.Submitform.disabled = false;
		}

		if(y == "DGI Insulation" && ysw == "Solid Walls")
		{
			if((document.getElementById("ziparea").value == "B")||(document.getElementById("ziparea").value == "BA")||(document.getElementById("ziparea").value == "BS")||(document.getElementById("ziparea").value == "CF")||(document.getElementById("ziparea").value == "CV")||(document.getElementById("ziparea").value == "DE")||(document.getElementById("ziparea").value == "DY")||(document.getElementById("ziparea").value == "GL")||(document.getElementById("ziparea").value == "HR")||(document.getElementById("ziparea").value == "LE")||(document.getElementById("ziparea").value == "NP")||(document.getElementById("ziparea").value == "SA")||(document.getElementById("ziparea").value == "SN")||(document.getElementById("ziparea").value == "SY")||(document.getElementById("ziparea").value == "TF")||(document.getElementById("ziparea").value == "WS")||(document.getElementById("ziparea").value == "WV"))
			{
			document.form1.Submitform.disabled = false;
			}
			else
			{
			document.form1.Submitform.disabled = true;
			alert("You Can't Take this Postcode for DGI Insulation Solid Walls");
			}

		}

		if(y == "DGI Insulation" && ysw == "Boiler")
		{
			if((document.getElementById("ziparea").value == "B")||(document.getElementById("ziparea").value == "BS")||(document.getElementById("ziparea").value == "CF")||(document.getElementById("ziparea").value == "CV")||(document.getElementById("ziparea").value == "DY")||(document.getElementById("ziparea").value == "GL")||(document.getElementById("ziparea").value == "HR")||(document.getElementById("ziparea").value == "NP")||(document.getElementById("ziparea").value == "OX")||(document.getElementById("ziparea").value == "SA")||(document.getElementById("ziparea").value == "S")||(document.getElementById("ziparea").value == "ST")||(document.getElementById("ziparea").value == "TF")||(document.getElementById("ziparea").value == "WR")||(document.getElementById("ziparea").value == "WS")||(document.getElementById("ziparea").value == "WV"))
			{
			document.form1.Submitform.disabled = false;
			}
			else
			{
			document.form1.Submitform.disabled = true;
			alert("You Can't Take this Postcode for DGI Insulation Boiler");
			}

		}

		if(y == "DGI Insulation" && ysw == "Lead Qualified")
		{
			if((document.getElementById("ziparea").value == "B")||(document.getElementById("ziparea").value == "BA")||(document.getElementById("ziparea").value == "BS")||(document.getElementById("ziparea").value == "CF")||(document.getElementById("ziparea").value == "CH")||(document.getElementById("ziparea").value == "CV")||(document.getElementById("ziparea").value == "DY")||(document.getElementById("ziparea").value == "GL")||(document.getElementById("ziparea").value == "HR")||(document.getElementById("ziparea").value == "LD")||(document.getElementById("ziparea").value == "MK")||(document.getElementById("ziparea").value == "NP")||(document.getElementById("ziparea").value == "OX")||(document.getElementById("ziparea").value == "SA")||(document.getElementById("ziparea").value == "SN")||(document.getElementById("ziparea").value == "SP")||(document.getElementById("ziparea").value == "ST")||(document.getElementById("ziparea").value == "SY")||(document.getElementById("ziparea").value == "TA")||(document.getElementById("ziparea").value == "TF")||(document.getElementById("ziparea").value == "WR")||(document.getElementById("ziparea").value == "WS")||(document.getElementById("ziparea").value == "WV"))
			{
			document.form1.Submitform.disabled = false;
			}
			else
			{
			document.form1.Submitform.disabled = true;
			alert("You Can't Take this Postcode for DGI Insulation Free Cavity Leads");
			}

		}

		if(y == "EuroEngeryServices Insulation" && ysw == "Boiler")
		{
			if((document.getElementById("boiler_Type").value == "Gas-Wall Mounted Boiler"))
			{
			document.form1.Submitform.disabled = false;
			}
			else
			{
			document.form1.Submitform.disabled = true;
			alert("You Can't Take this Type of Boiler for EuroEngeryServices");
			}

		}
		
	}

	function ddsub()
	{
		var x = document.all("OwnProper");
		var y = x.options[x.selectedIndex].text;
		if(y == "No")		{
			document.form1.Submitform.disabled = true;
			alert("This is Invalid Record");
		}
		if(y == "Yes") 
		{
			document.form1.Submitform.disabled = false;
			alert("This is Valid Lead Proceed");
		}
	}
	function ddQsix()
	{
		var x = document.all("InsuCustAllow");
		var y = x.options[x.selectedIndex].text;
		if(y == "No")
		{
			document.form1.InsuBenefits.disabled = true;
			document.form1.InsuBenefits2.disabled = true;
			document.form1.InsuBenefits3.disabled = true;
		}
		if(y == "Yes")
		{
			document.form1.InsuBenefits.disabled = false;
			document.form1.InsuBenefits2.disabled = false;
			document.form1.InsuBenefits3.disabled = false;
		}
	}

	function ddLeadtype()
	{
		var x = document.all("InsuInterest");
		var y = x.options[x.selectedIndex].text;
		if(y == "Solid Walls")
		{
			document.form1.SWalls.disabled = false;
			document.form1.SWalls1.disabled = false;
			document.form1.SWalls2.disabled = false;
		}
		else
		{
			document.form1.SWalls.disabled = true;
			document.form1.SWalls1.disabled = true;
			document.form1.SWalls2.disabled = true;
		}
	}
	
	function ddQsix1()
	{
		var x = document.all("InsuBenefits");
		var y = x.options[x.selectedIndex].text;
		if(y == "State Pension Credit")
		{
			document.form1.InsuBenefits2.disabled = true;
			document.form1.InsuBenefits3.disabled = true;
		}
		if(y == "Child Tax Credit - Income Less Than £ 15,860")
		{
			document.form1.InsuBenefits2.disabled = true;
			document.form1.InsuBenefits3.disabled = true;
		}
		
		if(y == "Income-based job seeker's allowance")
		{
			document.form1.InsuBenefits3.disabled = true;
			document.form1.InsuBenefits2.disabled = false;
		}
		
		if(y == "Income related employment and support allowance")
		{
			document.form1.InsuBenefits3.disabled = true;
			document.form1.InsuBenefits2.disabled = false;
		}
		
		if(y == "Income support")
		{
			document.form1.InsuBenefits3.disabled = true;
			document.form1.InsuBenefits2.disabled = false;
		}

		if(y == "Working tax credit with a relevant income below £15860")
		{
			document.form1.InsuBenefits2.disabled = true;
			document.form1.InsuBenefits3.disabled = false;
		}
	}
	function ddbuilt()
	{
		var x = document.all("InsuBuiltYear");
		var y = x.options[x.selectedIndex].text;
		if(y == "Yes")
		{
			
			document.form1.InsuBuiltBefo.disabled = true;
			document.form1.InsuHaveCavity.disabled = true;			
			document.form1.InsuTimFra.disabled = true;
			document.form1.InsuTileCla.disabled = true;
			document.form1.InsuDampWall.disabled = true;			
			alert("Dont ask cavity questions");
		}
	}
	
	function ddbefo()
	{
		var x = document.all("InsuBuiltBefo");
		var y = x.options[x.selectedIndex].text;
		if(y == "Yes")
		{
			document.form1.InsuHaveCavity.disabled = true;
			document.form1.InsuTimFra.disabled = true;
			document.form1.InsuTileCla.disabled = true;
			document.form1.InsuDampWall.disabled = true;			
			alert("Dont ask cavity questions");
		}
	}
	function ddcav()
	{
		var x = document.all("InsuHaveCavity");
		var y = x.options[x.selectedIndex].text;
		if(y == "No")
		{
			document.form1.InsuTimFra.disabled = true;
			document.form1.InsuTileCla.disabled = true;
			document.form1.InsuDampWall.disabled = true;
			alert("Dont ask cavity questions");
		}
	}
	function ddfra()
	{
		var x = document.all("InsuTimFra");
		var y = x.options[x.selectedIndex].text;
		if(y == "Yes")
		{
			
			document.form1.InsuTileCla.disabled = true;
			document.form1.InsuDampWall.disabled = true;			
			alert("Dont ask cavity questions");
		}
	}
	function ddcla()
	{
		var x = document.all("InsuTileCla");
		var y = x.options[x.selectedIndex].text;
		if(y == "Yes")
		{
			
			document.form1.InsuDampWall.disabled = true;			
			alert("Dont ask cavity questions");
		}
	}
	
	function ddwall()
	{
		var x = document.all("InsuDampWall");
		var y = x.options[x.selectedIndex].text;
		if(y == "Yes")
		{
			alert("Dont ask cavity questions");
		}
	}
	
	
	function valid()
	{
		if(document.form1.Shipto.checked==false &&	document.form1.Ship1.checked==false && document.form1.paymode[0].checked == false && document.form1.Ship2.checked==false)
			{
			alert("Please Fill the Form Completely");
			}
		else if(document.form1.Shipto.checked==true)
			{
				var msg="";
				if((document.getElementById("OwnProper").value =="")||(document.getElementById("Tenure").value == "")||(document.getElementById("InsuInterest").value =="")||(document.getElementById("InsuProp").value == "")||(document.getElementById("InsuPropBuilt").value =="")||(document.getElementById("InsuCustAllow").value == "")||(document.getElementById("Insucert").value =="")||(document.getElementById("stonew").value ==""))
				{
					if(document.getElementById("OwnProper").value == "")
					
					msg = msg + "1. Does the Customer Own the Property?\n";
					
					if(document.getElementById("Tenure").value == "")
						
					msg = msg + "2. Tenure\n";
						
					if(document.getElementById("InsuInterest").value == "")
						
					msg = msg + "3. What type of Insulation are you Interested In?\n";
						
					if(document.getElementById("InsuProp").value == "")
						
					msg = msg + "4. what type of Property?\n";
						
					if(document.getElementById("InsuPropBuilt").value == "")
					
					msg = msg + "5. When was the Property Built?\n";
						
					if(document.getElementById("InsuCustAllow").value == "")
						
					msg = msg + "6. Is the Customer on any Benefits Allowances Or Credits?\n";
						
					if(document.getElementById("Insucert").value == "")
						
					msg = msg + "9. CERT 70\n";
						
					if(document.getElementById("stonew").value == "")
						
					msg = msg + "12. Does your property have stone walls?\n";
						
				    alert(msg);
				    return false;
				}
				else if(document.form1.Ship1.checked==true)
				{
					var msg="";
						if((document.getElementById("InsuBuiltYear").value =="")||(document.getElementById("InsuBuiltBefo").value == "")||(document.getElementById("InsuHaveCavity").value =="")||(document.getElementById("InsuTimFra").value == "")||(document.getElementById("InsuTileCla").value =="")||(document.getElementById("InsuDampWall").value == ""))
							{
								if(document.getElementById("InsuBuiltYear").value == "")
								
								msg = msg + "Please Select Property Built Year After 1985\n";
								
								if(document.getElementById("InsuBuiltBefo").value == "")
									
								msg = msg + "Please Select Property Built Year Before 1900\n";
									
								if(document.getElementById("InsuHaveCavity").value == "")
									
								msg = msg + "Please Select Cavity wall present or not\n";
									
								if(document.getElementById("InsuTimFra").value == "")
									
								msg = msg + "Please Select Property Structure Timber Frame / Steel\n";
									
								if(document.getElementById("InsuTileCla").value == "")
								
								msg = msg + "Please Select Property ties details\n";
									
								if(document.getElementById("InsuDampWall").value == "")
									
								msg = msg + "Please Select Property damp wall details\n";
											
							    alert(msg);
							    return false;
							}
							else
							{
								document.form1.submit();
							}
				}
				else if(form1.paymode[0].checked == true)
				{
					var msg="";
					if((document.getElementById("InsuLoftTen").value == "")||(document.getElementById("InsuLoftBoard").value == "")||(document.getElementById("InsuLoftEmp").value == "")||(document.getElementById("InsuWorkLoft").value == "")||(document.getElementById("InsuLoftConv").value == ""))
					{
						if(document.getElementById("InsuLoftTen").value == "")
							
						msg=msg+"Please Select the Question number 16.\n";
							
						if(document.getElementById("InsuLoftBoard").value == "")
							
						msg=msg+"Please Select the Question number 18.\n";
				
						if(document.getElementById("InsuLoftEmp").value == "")
							
						msg=msg+"Please Select the Question number 19.\n";
							
						if(document.getElementById("InsuWorkLoft").value == "")
							
						msg=msg+"Please Select the Question number 20.\n";
							
						if(document.getElementById("InsuLoftConv").value == "")
							
						msg=msg+"Please Select the Question number 21.\n";
							
						alert(msg);
						return false;												     
					}
					else
					{
						document.form1.submit();
					}
				}
				else
				{
					document.form1.submit();
				}
			}
			else if(document.form1.Ship1.checked==true)
			{
				var msg="";
				if((document.getElementById("InsuBuiltYear").value =="")||(document.getElementById("InsuBuiltBefo").value == "")||(document.getElementById("InsuHaveCavity").value =="")||(document.getElementById("InsuTimFra").value == "")||(document.getElementById("InsuTileCla").value =="")||(document.getElementById("InsuDampWall").value == ""))
				{
					if(document.getElementById("InsuBuiltYear").value == "")
					
					msg = msg + "Please Select Question number 23.\n";
					
					if(document.getElementById("InsuBuiltBefo").value == "")
						
					msg = msg + "Please Select Question number 24.\n";
						
					if(document.getElementById("InsuHaveCavity").value == "")
						
					msg = msg + "Please Select Question number 25.\n";
						
					if(document.getElementById("InsuTimFra").value == "")
						
					msg = msg + "Please Select Question number 26.\n";
						
					if(document.getElementById("InsuTileCla").value == "")
					
					msg = msg + "Please Select Question number 27.\n";
						
					if(document.getElementById("InsuDampWall").value == "")
						
					msg = msg + "Please Select Question number 28.\n";
								
				    alert(msg);
				    return false;
				}
				else
				{
					document.form1.submit();
				}
			}
			else if(form1.paymode[0].checked == true)
			{
				var msg="";
				if((document.getElementById("InsuLoftTen").value == "")||(document.getElementById("InsuLoftBoard").value == "")||(document.getElementById("InsuLoftEmp").value == "")||(document.getElementById("InsuWorkLoft").value == "")||(document.getElementById("InsuLoftConv").value == ""))
				{
				if(document.getElementById("InsuLoftTen").value == "")
					
				msg=msg+"Please Select Question number 16.\n";
					
				if(document.getElementById("InsuLoftBoard").value == "")
					
				msg=msg+"Please Select Question number 18.\n";
				
				if(document.getElementById("InsuLoftEmp").value == "")
					
				msg=msg+"Please Select Question number 19.\n";
					
				if(document.getElementById("InsuWorkLoft").value == "")
					
				msg=msg+"Please Select Question number 20.\n";
					
				if(document.getElementById("InsuLoftConv").value == "")
					
				msg=msg+"Please Select Question number 21.\n";
					
				alert(msg);
				return false;												     
				}
				else
				{
					document.form1.submit();
				}
			}
			
			else if(form1.Ship2.checked == true)
			{
				var msg="";
				if((document.getElementById("InsuBedRoom").value == "")||(document.getElementById("InsuPrice").value == "")||(document.getElementById("InsuPInterest").value == ""))
				{
				if(document.getElementById("InsuBedRoom").value == "")
					
				msg=msg+"How Many Bedrooms are there in the Property?\n";
					
				if(document.getElementById("InsuPrice").value == "")
					
				msg=msg+"Price Quoted?\n";
				
				if(document.getElementById("InsuPInterest").value == "")
					
				msg=msg+"Would you be interested to have the property insulted\n";					
				
					
				alert(msg);
				return false;												     
				}
				else
				{
					document.form1.submit();
				}
			}
			
			else
			{
				document.form1.submit();
			}
	}


</SCRIPT>


<%if session("agentid") = "" then
	Response.Redirect("logout.asp")
end if
mess = Request.querystring("mess")
actype = Request.querystring("type")
CustId = trim(Request.querystring("CustId"))
if Request.Form("status")="" then
	agentid = session("agentid")
	set r1 = Server.CreateObject("ADODB.Recordset")
	r1.Open "select * from dialer_agent where agent_uid = '"& agentid &"'",con,adOpenDynamic
	if not r1.eof then
		name = r1("agent_uid")
	end if
	r1.Close

	if CustId <> "" then
		set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open "select * from Insu where CustId='"& CustId &"'",con,2,2
		if not rs.EOF then			
			Title = rs("Title")
			Fname = rs("FName")
			Mname = rs("MName")
			Lname = rs("LName")
			Address1 = rs("Address1")
			Address2 = rs("Address2")
			Address3 = rs("Address3")
			City = rs("City")
			State = rs("State")
			Zip = rs("Zip")		
			ZipArea = rs("ZipArea")		
			ZipAreaN = rs("ZipAreaN")		
			LeadID = rs("LeadID")
			SupplierBatchNo = rs("SupplierBatchNo")	
			hPhone = rs("hPhone")
			AhPhone = rs("AhPhone")	
			mobile = rs("mobile")			
			CusEmail = rs("CusEmail")						
			CavityWalls = rs("CavityWalls")
			'Insutenyrs = rs("Insutenyrs")
			InsuJoist = rs("InsuJoist")
			
			sday = day(rs("made_at"))
			smon = month(rs("made_at"))
			syear = year(rs("made_at"))
			EstTime = rs("EstTime")
			
			if rs("shipto") = true then
				shipto = true
				OwnProper = rs("OwnProper")
				Tenure = rs("Tenure")
				InsuInterest = rs("InsuInterest")
				InsuProp = rs("InsuProp")
				InsuPropBuilt = rs("InsuPropBuilt")
				InsuCustAllow = rs("InsuCustAllow")
				InsuBenefits = rs("InsuBenefits")
				InsuBenefits2 = rs("InsuBenefits2")
				InsuBenefits3 = rs("InsuBenefits3")
				'InsuHomeIncome = rs("InsuHomeIncome")
				Insucert = rs("Insucert")
				InsuAgeProof = rs("InsuAgeProof")
				InsuUtilBill = rs("InsuUtilBill")
				stonew = rs("stonew")
				CDigNews1 = rs("CDigNews1")
				CDigNews2 = rs("CDigNews2")
				CDigNews3 = rs("CDigNews3")
				CDigNews4 = rs("CDigNews4")
				CDigNews5 = rs("CDigNews5")
				boiler_Type = rs("boiler_Type")
				boiler_life = rs("boiler_life")
				boiler_replace = rs("boiler_replace")
				''InsuGas = rs("InsuGas")
				''InsuUtilProv = rs("InsuUtilProv")
				'InsuUtilProvOth = rs("InsuUtilProvOth")
				''InsuElecSub = rs("InsuElecSub")
				InsuElecSub1 = rs("InsuElecSub1")
				'InsuElecSubOth = rs("InsuElecSubOth")
			end if
			paymode = rs("paymode")
			if paymode = "C" then
				InsuLoftTen = rs("InsuLoftTen")
				'InsuDeep = rs("InsuDeep")
				InsuLoftBoard = rs("InsuLoftBoard")
				InsuLoftEmp = rs("InsuLoftEmp")
				InsuWorkLoft = rs("InsuWorkLoft")
				InsuLoftConv = rs("InsuLoftConv")
				'InsuRInfo = rs("InsuRInfo")
			end if
			
			if rs("ship1") = true then
				ship1 = true
				InsuBuiltYear = rs("InsuBuiltYear")
				InsuBuiltBefo = rs("InsuBuiltBefo")
				InsuHaveCavity = rs("InsuHaveCavity")
				InsuTimFra = rs("InsuTimFra")
				InsuTileCla = rs("InsuTileCla")
				InsuDampWall = rs("InsuDampWall")
			end if
			
			if rs("ship2") = true then
				ship2 = true
				''CProducts1 = rs("CProducts1")
				''CProducts2 = rs("CProducts2")
				InsuBedRoom = rs("InsuBedRoom")
				''InsuBedRoom1 = rs("InsuBedRoom1")
				InsuPrice = rs("InsuPrice")
				InsuPInterest = rs("InsuPInterest")
				'InsuShower = rs("InsuShower")
				InsuPwd = rs("InsuPwd")
				InsuBTCall = rs("InsuBTCall")
				InsuBTCall1 = rs("InsuBTCall1")
				cday2 = day(rs("Demo2"))
				cmon2 = month(rs("Demo2"))
				cyear2 = year(rs("Demo2"))
				CTime2 = rs("CTime2")
			end if
			disposition = rs("disposition")
			ppiloan = rs("ppiloan")
			Location = rs("Location")
			Verified = rs("Verified")
			madeby = rs("made_by")
			remarks = rs("remarks")
			'SpeciTime = rs("SpeciTime")
			Qremarks = rs("Qremarks")						
			Pending= rs("Pending")
		end if
		rs.close
	else
		if Request.Form("SrPhone") <> "" then
		set rs = Server.CreateObject("ADODB.Recordset")
			rs.Open "select * from Insu where hphone <> '' and hphone='"& Request.Form("SrPhone") &"'",con,2,2
			if not rs.EOF then
				'SaleRec = True
				Title = rs("Title")
			Fname = rs("FName")
			Mname = rs("MName")
			Lname = rs("LName")
			Address1 = rs("Address1")
			Address2 = rs("Address2")
			Address3 = rs("Address3")
			City = rs("City")
			State = rs("State")
			Zip = rs("Zip")			
			ZipArea = rs("ZipArea")	
			ZipAreaN = rs("ZipAreaN")	
			LeadID = rs("LeadID")
			SupplierBatchNo = rs("SupplierBatchNo")	
			hPhone = rs("hPhone")
			AhPhone = rs("AhPhone")	
			mobile = rs("mobile")		
			CusEmail = rs("CusEmail")									
			CavityWalls = rs("CavityWalls")
			'Insutenyrs = rs("Insutenyrs")
			InsuJoist = rs("InsuJoist")
			
			sday = day(rs("made_at"))
			smon = month(rs("made_at"))
			syear = year(rs("made_at"))
			EstTime = rs("EstTime")
			'EstTime = hour(rs("EstTime")) & ":" & minute(rs("EstTime"))
			'right("00" & hour(now)+5,2) & ":" & right("00" & minute(now)+15,2)
			
			if rs("shipto") = true then
				shipto = true
				OwnProper = rs("OwnProper")
				Tenure = rs("Tenure")
				InsuInterest = rs("InsuInterest")
				InsuProp = rs("InsuProp")
				InsuPropBuilt = rs("InsuPropBuilt")
				InsuCustAllow = rs("InsuCustAllow")
				InsuBenefits = rs("InsuBenefits")
				InsuBenefits2 = rs("InsuBenefits2")
				InsuBenefits3 = rs("InsuBenefits3")
				'InsuHomeIncome = rs("InsuHomeIncome")
				Insucert = rs("Insucert")
				InsuAgeProof = rs("InsuAgeProof")
				InsuUtilBill = rs("InsuUtilBill")
				stonew = rs("stonew")
				CDigNews1 = rs("CDigNews1")
				CDigNews2 = rs("CDigNews2")
				CDigNews3 = rs("CDigNews3")
				CDigNews4 = rs("CDigNews4")
				CDigNews5 = rs("CDigNews5")
				boiler_Type = rs("boiler_Type")
				boiler_life = rs("boiler_life")
				boiler_replace = rs("boiler_replace")
				''InsuGas = rs("InsuGas")
				''InsuUtilProv = rs("InsuUtilProv")
				'InsuUtilProvOth = rs("InsuUtilProvOth")
				''InsuElecSub = rs("InsuElecSub")
				InsuElecSub1 = rs("InsuElecSub1")
				'InsuElecSubOth = rs("InsuElecSubOth")
			end if
			paymode = rs("paymode")
			if paymode = "C" then
				InsuLoftTen = rs("InsuLoftTen")
				'InsuDeep = rs("InsuDeep")
				InsuLoftBoard = rs("InsuLoftBoard")
				InsuLoftEmp = rs("InsuLoftEmp")
				InsuWorkLoft = rs("InsuWorkLoft")
				InsuLoftConv = rs("InsuLoftConv")
				'InsuRInfo = rs("InsuRInfo")
			end if
			
			if rs("ship1") = true then
				ship1 = true
				InsuBuiltYear = rs("InsuBuiltYear")
				InsuBuiltBefo = rs("InsuBuiltBefo")
				InsuHaveCavity = rs("InsuHaveCavity")
				InsuTimFra = rs("InsuTimFra")
				InsuTileCla = rs("InsuTileCla")
				InsuDampWall = rs("InsuDampWall")
			end if
			
			if rs("ship2") = true then
				ship2 = true
				''CProducts1 = rs("CProducts1")
				''CProducts2 = rs("CProducts2")
				InsuBedRoom = rs("InsuBedRoom")
				''InsuBedRoom1 = rs("InsuBedRoom1")
				InsuPrice = rs("InsuPrice")
				InsuPInterest = rs("InsuPInterest")
				'InsuShower = rs("InsuShower")
				InsuPwd = rs("InsuPwd")
				InsuBTCall = rs("InsuBTCall")
				InsuBTCall1 = rs("InsuBTCall1")
				cday2 = day(rs("Demo2"))
				cmon2 = month(rs("Demo2"))
				cyear2 = year(rs("Demo2"))
				CTime2 = rs("CTime2")
			end if
			
			disposition = rs("disposition")
			ppiloan = rs("ppiloan")
			Location = rs("Location")
			Verified = rs("Verified")
			madeby = rs("made_by")
			remarks = rs("remarks")
			'SpeciTime = rs("SpeciTime")
			Qremarks = rs("Qremarks")						
			Pending= rs("Pending")
				
			else
				SaleRec = False
			end if
			rs.close
			set rs = Server.CreateObject("ADODB.Recordset")
			rs.Open "select * from dhans..Insulation_data where cust_offtelno1='"& trim(Request.Form("SrPhone")) &"'",con,2,2
			if not rs.EOF Then%>
				<TABLE align=center cellPadding=0 cellSpacing=0 border=1 bordercolor="White" width="90%" style="COLOR: Black; FONT-FAMILY: Georgia; FONT-SIZE: 12pt" ID="clsTable">
					<TR bgcolor=Black height=25>
						<TH width="30%"><FONT color=Orange size=2>Postcode</FONT></TH>	
						<TH width="40%"><FONT color=Orange size=2>Campaign</FONT></TH>		
						<TH width="30%"><FONT color=Orange size=2>You can take for</FONT></TH>
			  	   </TR>
				<%set rst = Server.CreateObject("ADODB.Recordset")
			    rst.Open "select * from Insu_Campaign_Postcodes where Active='Yes' and Ziparea='"& trim(rs("Custom8")) &"'",con,adOpenDynamic
				if not rst.EOF Then
				i = 1
				do while not rst.eof%>
				
				  <TR bgColor=Orange height=25>
					<TD width="30%" align=middle><FONT color=Black size=2><%=rst("Ziparea")%></FONT></TD>	
					<TD width="40%" align=middle><FONT color=Black size=2><%=rst("Campaign")%></FONT></TD>	
					<TD width="30%" align=middle><FONT color=Black size=2><%=rst("Lead_type")%></FONT></TD>
				 </TR>
				<%i = i + 1
				rst.movenext
				loop%>
				</Table>
				<%end if
				rst.close
				Fname = trim(rs("cust_FName"))
				Mname = trim(rs("cust_MidName"))
				Lname = trim(rs("cust_LName"))
				title = trim(rs("cust_title"))
				Address1 = trim(rs("cust_ResidenceAdd"))
				Address2 = trim(rs("cust_Address1"))
				Address3 = trim(rs("cust_Address2"))
				City = trim(rs("cust_ResPincode"))
				State = trim(rs("cust_Orgpincode"))
				Zip = trim(rs("cust_City1"))
				ZipArea = trim(rs("Custom8"))
				ZipAreaN = trim(rs("Custom9"))
				hPhone = trim(rs("cust_offtelno1"))				
				AhPhone = trim(rs("cust_offtelno2"))				
				mobile = trim(rs("Cust_ResTelno2"))				
				remarks = trim(rs("cust_remarks"))
				'LeadID = trim(rs("custom13"))
				'SupplierBatchNo = trim(rs("custom12"))	
				
			end if
			rs.close
		end if

		Sday = day(date() + time)
		Smon = month(date + time)
		Syear = year(date + time)
		
		hr = left(hour(now),2)
		min = left(minute(now),2)
		
		hru = 4
		hr1 = hr + hru
		
		esttime = right("00" & hr1,2) & ":" & right("00" & min,2)


	end if
%>
<HTML><HEAD><TITLE>SCTL - Call Center Operations</TITLE>
<marquee bgcolor=orange width=900 height=20 direction=right>24-7 LEADS SOLUTIONS PVT LTD </marquee>
</HEAD>

<link rel="stylesheet" href="button.css" type="text/css">
<link rel="stylesheet" href="nssa.css" type="text/css">
<BODY background="" bgProperties=fixed topmargin=0 bgcolor=Gainsboro>

<TABLE align=center cellPadding=0 cellSpacing=0 border=0 width="100%">
<TR bgColor=#666666>
<TD class=titlebar height=25 vAlign=center width="80%"><FONT color=greenyellow>&nbsp;&nbsp;</FONT><FONTCOLOR=LIGHTBLUE><STRONG><FONT face="Century Gothic" size=4><%=name%></FONT></STRONG></FONT></TD>
<TD align=right bgColor=#666666 class=txt-gray vAlign=center><B>
<SCRIPT language=JavaScript>
	var d=new Date();
	var c=new String(d);
	var a=c.substring(c.length-4,c.length);
	var b=c.substring(0,10);document.write(b+",  "+ a);
</SCRIPT>
&nbsp;&nbsp;</B></TD>
</TR>
</TABLE>

<P align=center><strong><FONT face="serif" color="#7799aa"  size=5 align="center"> Insulation </FONT></strong></P>

<P align=center><strong><FONT face="serif" color="red"  size=3 align="left"> DGI Solid Walls TF, WV, DY, HR, WS, B, SY, LD, CF, NP, GL, BS, SN, BA, CV</FONT></strong></P>
<P align=center><strong><FONT face="serif" color="red"  size=3 align="left"> DGI Boiler B, BS, CF, CV, DY, GL, HR, NP, OX, SA, ST, TF, WR, WS, WV </FONT></strong></P>

<!--<P align=center><strong><FONT face="serif" color="red"  size=5 align="left"> Only This Postcodes we can Take for Insurance AL, CM, CO, CR, GU, LU, SG, OX, PE, NN, MK, RG, SL, SG, RH, HP </FONT></strong></P>
<P align=center><strong><FONT face="serif" color="red"  size=5 align="left"> Only These Postcodes we can Take for Solid Walls <br>TF, WV, WS, DY, HR, WR, CV, NP, LD, GL, BS, B </FONT></strong></P>-->

<P align=center><strong><FONT face="serif" color="#7799aa"  size=5 align="center"> <A href="HTT.doc" style="color:blue">HTT Criteria</a> </FONT></strong></P>

<form method="post" action="InsulationHHCRO.asp" name="form1" onKeyUp="javascript:highlight(event)" onClick="javascript:highlight(event)">
<input type="hidden" name="CustId" value="<%=CustId%>">
<input type="hidden" name="actype" value="<%=actype%>">
<br>

<TABLE align=center cellPadding=0 cellSpacing=0 border=1 bordercolor="SteelBlue" width="90%" style="COLOR: Black; FONT-FAMILY: Georgia; FONT-SIZE: 12pt" ID="clsTable">
<%if Request.Form("SrPhone") = "" and custid = "" then%>
<TR valign=top height=50 valign=middle>
	<TD width=100% colspan=2  valign=center>&nbsp;&nbsp;&nbsp;
		Enter the Phone No. to Search 
		&nbsp;&nbsp;<INPUT maxLength=20 name=SrPhone style="HEIGHT: 20px; TEXT-TRANSFORM: uppercase; WIDTH: 150px" class="IB">
		&nbsp;&nbsp;&nbsp;&nbsp;
	    <input type="button" name="SearchPhone" value="Find" onclick="vbscript:SubmitPhone" class="butn">
	</TD>
</TR>
<%end if%>

<%set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from Insu where hphone='"& SrPhone &"' and hphone <> ''",con,2,2
if not rs.EOF  then%>
<TR valign=top>
	<TD width=100% colspan=2  valign=center align=center>
		<font size=2 color=red>This is a Sale Record (<%=rs("hphone")%>)  made on <b><%=formatdatetime(rs("made_at"),2)%></b> by <b><i><%=ucase(rs("made_by"))%></i></b></font>
	</TD>
</TR>
<%end if
rs.close%>


<TR valign=top bgcolor=SteelBlue>
	<TD width=50% >&nbsp;&nbsp;&nbsp;<font  face=bangle color=Lavender>Customer Details</font></TD>
	<TD width=50% align=right>&nbsp;&nbsp;&nbsp;<font face=bangle color=Lavender>
		<%if actype="" then Response.Write("Addition")
		if actype="MOD" then Response.Write("Updation")
		if actype="QC" then Response.Write("Quality Check")
		if actype="DEL" then Response.Write("Deletion")%>&nbsp;&nbsp;&nbsp;
	</font></TD>
</TR>
  <TR valign=top><TD colspan=2 width=44%>
	<TABLE align=center cellPadding=0 cellSpacing=0 width="95%" border=0 background="" style="COLOR: Black; COLOR: BLACK; FONT-FAMILY: Georgia; FONT-SIZE: 10pt" ID="clsTable">
	
	  <TR height=50 valign=center>
		<TD width="30%" align=Right>Name : </TD>
		<TD width="70%" align=left>&nbsp;
		<SELECT name=Title class="IB">
			<option <%if Title="" then Response.Write("selected")%>></option>
			<option <%if Title="Mr" then Response.Write("selected")%>>Mr</option>
			<option <%if Title="Mrs" then Response.Write("selected")%>>Mrs</option>
			<option <%if Title="Ms" then Response.Write("selected")%>>Ms</option>
			<option <%if Title="Miss" then Response.Write("selected")%>>Miss</option>
			<option <%if Title="Dr" then Response.Write("selected")%>>Dr</option>
			<option <%if Title="Sir" then Response.Write("selected")%>>Sir</option>
			<option <%if Title="Prof" then Response.Write("selected")%>>Prof</option>
			<option <%if Title="Rev" then Response.Write("selected")%>>Rev</option>
		</SELECT>			
		&nbsp;<INPUT maxLength=50 name=Fname style="HEIGHT: 22px;TEXT-TRANSFORM: uppercase; WIDTH: 160px" value="<%=Fname%>" class="IB">
		&nbsp;<INPUT maxLength=50  name=Mname style="HEIGHT: 22px;TEXT-TRANSFORM: uppercase; WIDTH: 50px" value="<%=Mname%>" class="IB">		
		&nbsp;<INPUT maxLength=50  name=Lname style="HEIGHT: 22px;TEXT-TRANSFORM: uppercase; WIDTH: 155px" value="<%=Lname%>" class="IB">
		</TD>
	  </TR>
	  <TR height=30 valign=center>
		<TD width="30%" align=Right>Phone # : </TD>
		<TD width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=20 readonly=true name=hPhone style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 110px" value="<%=hPhone%>" class="IB"></TD>
	  </TR>
	  <TR height=30 valign=center>
		<TD width="30%" align=Right>Alternative Phone # : </TD>
		<TD width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=20 readonly=true name=AhPhone style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 110px" value="<%=AhPhone%>" class="IB"></TD>
	  </TR>
	  <TR height=30 valign=center>
		<TD width="30%" align=Right>Mobile # : </TD>
		<TD width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=20 name=Mobile style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 110px" value="<%=Mobile%>" class="IB"></TD>
	  </TR>
	  <TR height=30 valign=bottom>
		<td width="30%" align=Right valign=middle>Email : </td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 readonly=true name=CusEmail style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 200px" value="<%=CusEmail%>" class="IB"><br></td>
	  </TR>	  	  	  
	  <TR height=30 valign=bottom>
		<td width="30%" align=Right valign=middle>Address : </td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 name=Address1 style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 200px" value="<%=Address1%>" class="IB"><br></td>
	  </TR>
	  <TR height=30 valign=top>
		<td width="30%" align=Right>&nbsp;</td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=50  name=Address2 style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 200px" value="<%=Address2%>" class="IB"><br></td>
	  </TR>	  
	  <TR height=30 valign=top>
		<td width="30%" align=Right>&nbsp;</td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 name=Address3 style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 200px" value="<%=Address3%>" class="IB"><br></td>
	  </TR>	  
	  <TR height=30 valign=top>
		<td width="30%" align=Right>Town  : </td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 readonly=true name=City style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 180px" value="<%=City%>" class="IB"><br></td>
	  </TR>
	  <TR height=30 valign=top>
		<td width="30%" align=Right>County  : </td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 readonly=true name=State style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 180px" value="<%=State%>" class="IB">
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		Post Code&nbsp;&nbsp;&nbsp;<INPUT maxLength=15 readonly=true name=Zip style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 100px" value="<%=Zip%>" class="IB">
		</td>		
	  </TR>
	  <TR height=30 valign=top>
		<td width="30%" align=Right>Area  : </td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 readonly=true name=ZipArea style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 180px" value="<%=ZipArea%>" class="IB">
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		Area Code&nbsp;&nbsp;&nbsp;<INPUT maxLength=15 readonly=true name=ZipAreaN style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 100px" value="<%=ZipAreaN%>" class="IB">
		</td>		
	  </TR>
	  <TR height=30 valign=top>
		<td width="30%" align=Right>Lead ID  : </td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=10 name=LeadID style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 80px" value="<%=LeadID%>" class="IB"><br></td>
	  </TR>
	  <TR height=30 valign=top>
		<td width="30%" align=Right>Supplier Batch No  : </td>
		<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=10 name=SupplierBatchNo style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 80px" value="<%=SupplierBatchNo%>" class="IB"><br></td>
	  </TR>
<tr>&nbsp;
</tr>
	</TABLE>
</td></tr>

</Table>
<br>
<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="" bordercolor=SteelBlue>
	<TR>
	  <TD width=60% colspan=3>
		<TABLE align=center cellPadding=0 cellSpacing=0 width="100%" border=1 background="" bordercolor=SteelBlue>
		  <tr height=20  bgcolor=SteelBlue><TD><font  color=Lavender>&nbsp;&nbsp;General Questions for Insu</font></TD></tr>
		  <tr height=50>
		    <TD>&nbsp;
			<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					<TR height=40 valign=center>
						<TD width="70%" align=Right>1) Are your cavity walls insulated?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="CavityWalls" onchange="javascript:ddl()">
						<option value=""<%if CavityWalls="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if CavityWalls="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if CavityWalls="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					
					<!--<TR height=40 valign=center>
						<TD width="70%" align=Right>2) Has your loft been insulated in the last ten years?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="Insutenyrs" onchange="javascript:ddr()">
						<option value=""<%if Insutenyrs="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if Insutenyrs="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if Insutenyrs="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>			
					
					<TR height=40 valign=center>
						<TD width="70%" align=Right> 3) Is the insulation in level with the joist or below/above the joist?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuJoist" onchange="javascript:dds()">
						<option value=""<%if InsuJoist="" then Response.Write("Selected")%>></option>
						<option value="Below"<%if InsuJoist="Below" then Response.Write("Selected")%>>Below</option>
						<option value="In Line"<%if InsuJoist="In Line" then Response.Write("Selected")%>>In Line</option>																																		
						<option value="Above"<%if InsuJoist="Above" then Response.Write("Selected")%>>Above</option>																																		
						</select> 
						</TD>
					</TR>	-->					
					
			</TABLE>
		   &nbsp;</TD>
		  </tr>
		</Table>
	  </TD>
	</TR>
</TABLE>
<br>
<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="" bordercolor=SteelBlue>
	<TR>
	  <TD COLSPAN=3><INPUT type="checkbox" name=Shipto <%if shipto=true then Response.Write("checked")%> ><b>General Criteria</b><br><br>
		<DIV id="divShipto" style="position: absolute; VISIBILITY: Hidden">
		<TABLE align=center cellPadding=0 cellSpacing=0 width="100%" border=1 background="" bordercolor=SteelBlue>
			<tr height=20  bgcolor=SteelBlue><TD><font  color=Lavender>&nbsp;&nbsp;Change of Address</font></TD>
			</tr>			
			<TD>
					<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					  
					  <TR height=30 valign=center>
						</TD>
					</TR>		
					
					<TR height=20 valign=center>
						<TD width="100%" align=right nowrap colspan="2">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
                          <tr>
                            <td width="45%">1. Does the Customer Own the Property?
                            
						<select name="OwnProper">
						<option value=""<%if OwnProper="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if OwnProper="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if OwnProper="No" then Response.Write("Selected")%>>No</option>																												
						</select></td>
                            <td width="45%">2. Tenure
                            
						<select name="Tenure">
						<option value=""<%if Tenure="" then Response.Write("Selected")%>></option>
						<option value="Owner Occupier"<%if Tenure="Owner Occupier" then Response.Write("Selected")%>>Owner Occupier</option>																																		
						</select></td>
                          </tr>
                        </table>
                        </TD>
					  </TR>
					<TD>
					<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					  
					  <TR height=30 valign=center>
						<TD width="70%" align=left>3. What type of Insulation are you Interested In?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuInterest" onchange="javascript:ddLeadtype()">
						<option value=""<%if InsuInterest="" then Response.Write("Selected")%>></option>
						<option value="Loft"<%if InsuInterest="Loft" then Response.Write("Selected")%>>Loft</option>
						<option value="cavity"<%if InsuInterest="cavity" then Response.Write("Selected")%>>cavity</option>
						<option value="Both"<%if InsuInterest="Both" then Response.Write("Selected")%>>Both</option>												<option value="Boiler"<%if InsuInterest="Boiler" then Response.Write("Selected")%>>Boiler</option>											<option value="HTT"<%if InsuInterest="HTT" then Response.Write("Selected")%>>HTT</option>	<option value="Solid Walls"<%if InsuInterest="Solid Walls" then Response.Write("Selected")%>>Solid Walls</option>										</select> 
						</TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="70%" align=left>4. What type of Property?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuProp">
						<option value=""<%if InsuProp="" then Response.Write("Selected")%>></option>
						<option value="Mid Terrace"<%if InsuProp="Mid Terrace" then Response.Write("Selected")%>>Mid Terrace</option>
						<option value="Detached House"<%if InsuProp="Detached House" then Response.Write("Selected")%>>Detached House</option>
						<option value="Flat"<%if InsuProp="Flat" then Response.Write("Selected")%>>Flat</option>
						<option value="Detached Bungalow"<%if InsuProp="Detached Bungalow" then Response.Write("Selected")%>>Detached Bungalow</option>																												
						<option value="Semi-Detached House"<%if InsuProp="Semi-Detached House" then Response.Write("Selected")%>>Semi-Detached House</option>																												
						<option value="Semi-Detached Bungalow"<%if InsuProp="Semi-Detached Bungalow" then Response.Write("Selected")%>>Semi-Detached Bungalow</option>																																		
						<option value="End Terrace"<%if InsuProp="End Terrace" then Response.Write("Selected")%>>End Terrace</option>					
						</select> 
						</TD>
					</TR>

					<TR height=30 valign=center>
						<TD width="70%" align=left>4a) Is there Shared alleyway - Civil issues between the access?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="SWalls">
						<option value=""<%if SWalls="" then Response.Write("Selected")%>></option>
						<option value="No"<%if SWalls="No" then Response.Write("Selected")%>>No</option>	</select> 
						</TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="70%" align=left>4b) Is your wall directly on to footpath - Highway issue?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="SWalls1">
						<option value=""<%if SWalls1="" then Response.Write("Selected")%>></option>
						<option value="No"<%if SWalls1="No" then Response.Write("Selected")%>>No</option>	</select> 
						</TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="70%" align=left>4c) Are all the walls accessible?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="SWalls2">
						<option value=""<%if SWalls2="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if SWalls2="Yes" then Response.Write("Selected")%>>Yes</option>
						</select> 
						</TD>
					</TR>

					<TR height=30 valign=center>
						<TD width="70%" align=left>5. When was the Property Built?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuPropBuilt">
						<option value=""<%if InsuPropBuilt="" then Response.Write("Selected")%>></option>
						<option value="Before 1900"<%if InsuPropBuilt="Before 1900" then Response.Write("Selected")%>>Before 1900</option>
						<option value="1910's"<%if InsuPropBuilt="1910's" then Response.Write("Selected")%>>1910's</option>
						<option value="1920's"<%if InsuPropBuilt="1920's" then Response.Write("Selected")%>>1920's</option>
						<option value="1930's"<%if InsuPropBuilt="1930's" then Response.Write("Selected")%>>1930's</option>
						<option value="1940's"<%if InsuPropBuilt="1940's" then Response.Write("Selected")%>>1940's</option>
						<option value="1950's"<%if InsuPropBuilt="1950's" then Response.Write("Selected")%>>1950's</option>
						<option value="1960's"<%if InsuPropBuilt="1960's" then Response.Write("Selected")%>>1960's</option>
						<option value="1970's"<%if InsuPropBuilt="1970's" then Response.Write("Selected")%>>1970's</option>
						<option value="1980's"<%if InsuPropBuilt="1980's" then Response.Write("Selected")%>>1980's</option>
						<option value="1990's"<%if InsuPropBuilt="1990's" then Response.Write("Selected")%>>1990's</option>
						<option value="2000's"<%if InsuPropBuilt="2000's" then Response.Write("Selected")%>>2000's</option>
						</select> 
						</TD>
					</TR>	
					<TR height=30 valign=center>
						<TD width="70%" align=left>6. Is the Customer on any Benefits Allowances Or Credits?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuCustAllow" onchange="javascript:ddQsix()">
						<option value=""<%if InsuCustAllow="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuCustAllow="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuCustAllow="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					<TR height=30 valign=center>
						<TD width="35%" align=left>7.Benefits</TD>
						<TD width="65%" align=left>&nbsp;
						<select name="InsuBenefits" onchange="javascript:ddQsix1()">
						<option value=""<%if InsuBenefits="" then Response.Write("Selected")%>></option>
						<option value="State Pension Credit"<%if InsuBenefits="State Pension Credit" then Response.Write("Selected")%>>State Pension Credit</option>																												
						<option value="Child Tax Credit - Income Less Than £ 15,860"<%if InsuBenefits="Child Tax Credit - Income Less Than £ 15,860" then Response.Write("Selected")%>>Child Tax Credit - Income Less Than £ 15,860</option>																												
						<option value="Income-based job seeker's allowance"<%if InsuBenefits="Income-based job seeker's allowance" then Response.Write("Selected")%>>Income-based job seeker's allowance</option>
						<option value="Income related employment and support allowance"<%if InsuBenefits="Income related employment and support allowance" then Response.Write("Selected")%>>Income related employment and support allowance</option>
						<option value="Income support"<%if InsuBenefits="Income support" then Response.Write("Selected")%>>Income support</option>
						<option value="Working tax credit with a relevant income below £15860"<%if InsuBenefits="Working tax credit with a relevant income below £15860" then Response.Write("Selected")%>>Working tax credit with a relevant income below £15860</option>						
																	
						</select> 
						</TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="30%" align=left></TD>
						<TD width="70%" align=left>&nbsp;
						<select name="InsuBenefits2">
						<option value=""<%if InsuBenefits2="" then Response.Write("Selected")%>></option>
						<option value="A) Disabled child premium"<%if InsuBenefits2="A) Disabled child premium" then Response.Write("Selected")%>>A) Disabled child premium</option>																												
						<option value="B) Parental responsibility for a child under 16 that lives at the property"<%if InsuBenefits2="B) Parental responsibility for a child under 16 that lives at the property" then Response.Write("Selected")%>>B) Parental responsibility for a child under 16 that lives at the property</option>						
						<option value="C) Parental responsibility for a child who is 16 to 20, and in full time education other than higher education"<%if InsuBenefits2="C) Parental responsibility for a child who is 16 to 20, and in full time education other than higher education" then Response.Write("Selected")%>>C) Parental responsibility for a child who is 16 to 20, and in full time education other than higher education</option>
						<option value="D) Pension premium,higher pension premium or enhanced pension premium"<%if InsuBenefits2="D) Pension premium,higher pension premium or enhanced pension premium" then Response.Write("Selected")%>>D) Pension premium,higher pension premium or enhanced pension premium</option>
						<option value="E) In receipt of child tax credit which includes a disability or severe disability element"<%if InsuBenefits2="E) In receipt of child tax credit which includes a disability or severe disability element" then Response.Write("Selected")%>>E) In receipt of child tax credit which includes a disability or severe disability element</option>
						<option value="F) Disability premium,enhanced pension premium or severe disability premium"<%if InsuBenefits2="F) Disability premium,enhanced pension premium or severe disability premium" then Response.Write("Selected")%>>F) Disability premium,enhanced pension premium or severe disability premium</option>
						<option value="G) Receving a work related activity or support companent(only with number 2) "<%if InsuBenefits2="G) Receving a work related activity or support companent(only with number 2) " then Response.Write("Selected")%>>G) Receving a work related activity or support companent(only with number 2) </option>						
																	
						</select> 
						</TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="30%" align=left></TD>
						<TD width="70%" align=left>&nbsp;
						<select name="InsuBenefits3">
						<option value=""<%if InsuBenefits3="" then Response.Write("Selected")%>></option>
						<option value="A) Parental responsibility for a child under 16 that lives at the property"<%if InsuBenefits3="A) Parental responsibility for a child under 16 that lives at the property" then Response.Write("Selected")%>>A) Parental responsibility for a child under 16 that lives at the property</option>																												
						<option value="B) Parental responsibility for a child who is 16 to 20, and in full time education other than higher education"<%if InsuBenefits3="B) Parental responsibility for a child who is 16 to 20, and in full time education other than higher education" then Response.Write("Selected")%>>B) Parental responsibility for a child who is 16 to 20, and in full time education other than higher education</option>																												
						<option value="C) In receipt of a disabled worker element or severe disability element"<%if InsuBenefits3="C) In receipt of a disabled worker element or severe disability element" then Response.Write("Selected")%>>C) In receipt of a disabled worker element or severe disability element</option>
						<option value="D) Aged 60 or over"<%if InsuBenefits3="D) Aged 60 or over" then Response.Write("Selected")%>>D) Aged 60 or over</option>
																	
						</select> 
						</TD>
					</TR>
					</TABLE>
					<!--<TR height=30 valign=center>
						<TD width="70%" align=left>11. Is Your Home Income Less Than £ 15,860?
						
						<select name="InsuHomeIncome">
						<option value=""<%if InsuHomeIncome="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuHomeIncome="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuHomeIncome="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>	
					<TR height=30 valign=center>
						<TD width="70%" align=left>9. CERT 70</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="Insucert"  onchange="javascript:ddQsix1()">
						<option Value=""<%if Insucert="" then Response.Write("Selected")%>></option>
						<option Value="ATP"<%if Insucert="ATP" then Response.Write("Selected")%>>ATP</option>						
						<option Value="Yes"<%if Insucert="Yes" then Response.Write("Selected")%>>Yes</option>
						<option Value="No"<%if Insucert="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>	
					 
					<TR height=30 valign=center>
						<TD width="70%" align=left>10. Age Proof?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuAgeProof">
						<option value=""<%if InsuAgeProof="" then Response.Write("Selected")%>></option>
						<option value="Passport"<%if InsuAgeProof="Passport" then Response.Write("Selected")%>>Passport</option>
						<option value="Driving Licence"<%if InsuAgeProof="Driving Licence" then Response.Write("Selected")%>>Driving Licence</option>
						<option value="Birth Certificate"<%if InsuAgeProof="Birth Certificate" then Response.Write("Selected")%>>Birth Certificate</option>																																																														
						</select> 
						</TD>
					</TR>	
					
					<TR height=30 valign=center>
						<TD width="70%" align=left>11. Do You Receive Your utility bills with your current Address?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuUtilBill">
						<option value=""<%if InsuUtilBill="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuUtilBill="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuUtilBill="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>-->
					<TR height=30 valign=center>
						<TD width="70%" align=left>11. Does Your Property have Stone Walls?
						<select name="stonew">
						<option value=""<%if stonew="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if stonew="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if stonew="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					<TR valign=center>
					<TD width="100%" align=Right colspan="2" >
                    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber4">
                      <tr>
                        <td width="100%" style="border-style: none; border-width: medium" colspan="3">12. What type of fuel do you Use?</td>
                      </tr>
                      <tr><td width="100%" style="border-style: none; border-width: medium" colspan="3">&nbsp;&nbsp;</TD>
                      </tr>
                      <tr>
                        <td width="35%" style="border-style: none; border-width: medium"><INPUT name="CDigNews1" <%if CDigNews1 = "Gas" then Response.Write("Checked")%> type="checkbox" value="Gas">Gas</td>
                        <td width="35%" style="border-style: none; border-width: medium"><INPUT name="CDigNews2" <%if CDigNews2 = "Oil" then Response.Write("Checked")%> type="checkbox" value="Oil">Oil</td>
                        <td width="30%" style="border-style: none; border-width: medium"><INPUT name="CDigNews3" <%if CDigNews3 = "Electric" then Response.Write("Checked")%> type="checkbox" value="Electric">Electric</td>                        
                      </tr>
                      <tr>
                        <td width="35%" style="border-style: none; border-width: medium"><INPUT name="CDigNews4" <%if CDigNews4 = "Gas and Electric" then Response.Write("Checked")%> type="checkbox" value="Gas and Electric">Gas and Electric</td>
                        <td width="35%" style="border-style: none; border-width: medium"><INPUT name="CDigNews5" <%if CDigNews5 = "Solid Fuel" then Response.Write("Checked")%> type="checkbox" value="Solid Fuel">Solid Fuel</td>                        
                      </tr>                      
                      </tr>
                      <tr><td width="100%" style="border-style: none; border-width: medium" colspan="3">&nbsp;&nbsp;</TD>
                      </tr>
                    </table>
                    </TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="70%" align=left>12(A). What Type of Boiler Do you have?
						<select name="boiler_Type">
						<option value=""<%if boiler_Type="" then Response.Write("Selected")%>></option>
						<option value="Combi Boiler"<%if boiler_Type="Combi Boiler" then Response.Write("Selected")%>>Combi Boiler</option>
						<option value="Regular Boiler"<%if boiler_Type="Regular Boiler" then Response.Write("Selected")%>>Regular Boiler</option>	
						<option value="System Boiler"<%if boiler_Type="System Boiler" then Response.Write("Selected")%>>System Boiler</option>	
						<option value="Gas Boiler"<%if boiler_Type="Gas Boiler" then Response.Write("Selected")%>>Gas Boiler</option>	
						<option value="Back Boiler"<%if boiler_Type="Back Boiler" then Response.Write("Selected")%>>Back Boiler</option>	
						<option value="Floor Standing Boiler"<%if boiler_Type="Floor Standing Boiler" then Response.Write("Selected")%>>Floor Standing Boiler</option>	
						<option value="Gas-Wall Mounted Boiler"<%if boiler_Type="Gas-Wall Mounted Boiler" then Response.Write("Selected")%>>Gas-Wall Mounted Boiler</option>	
						</select> 
						</TD>
					</TR>
					<tr><td width="100%" style="border-style: none; border-width: medium; color:red" colspan="3">Floor Standing Boiler – Pre 2002 with permanent pilot light ignition</TD>
					<tr><td width="100%" style="border-style: none; border-width: medium; color:red" colspan="3">Wall Mounted Boiler – Pre 2002 with cast iron heat exchanger and permanent pilot ignition</TD>
					<tr><td width="100%" style="border-style: none; border-width: medium; color:red" colspan="3">Combi Boiler – Pre 1998</TD>
				<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					<TR height=30 valign=bottom>
						<td width="70%" align=left>12(B). How old is your Boiler ? </td>
						<td width="30%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 name=boiler_life style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 90px" value="<%=boiler_life%>" class="IB"> <br>  </td> 
					</TR>

					<TR height=30 valign=center>
						<TD width="70%" align=left>12(C). Would you be interested in replacing the Boiler? </TD>
						<TD width="30%" align=left>&nbsp;
						<select name="boiler_replace">
						<option value=""<%if boiler_replace="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if boiler_replace="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if boiler_replace="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>

					</table>
					<!--<TR height=30 valign=center>
						<TD width="70%" align=left>13. Number of Gas Appliances</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuGas">
						<option value=""<%if InsuGas="" then Response.Write("Selected")%>></option>
						<option value="1"<%if InsuGas="0" then Response.Write("Selected")%>>0</option>						
						<option value="1"<%if InsuGas="1" then Response.Write("Selected")%>>1</option>
						<option value="2"<%if InsuGas="2" then Response.Write("Selected")%>>2</option>
						<option value="3"<%if InsuGas="3" then Response.Write("Selected")%>>3</option>																												
						<option value="4"<%if InsuGas="4" then Response.Write("Selected")%>>4</option>																												
						<option value="4+"<%if InsuGas="5" then Response.Write("Selected")%>>5</option>																																																								
						</select> 
						</TD>
					</TR>			
					<TR height=30 valign=center>
						<TD width="100%" align=left colspan="2">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
                          <tr>
						<TD width="53%" align=left>14. Who is your Utility Provider?</TD>
						<TD width="26%" align=left>&nbsp;
						<select name="InsuUtilProv">
						<option value=""<%if InsuUtilProv="" then Response.Write("Selected")%>></option>
						<option value="None"<%if InsuUtilProv="None" then Response.Write("Selected")%>>None</option>
						<option value="Atlantic Electric and Gas"<%if InsuUtilProv="Atlantic Electric and Gas" then Response.Write("Selected")%>>Atlantic Electric and Gas</option>						
						<option value="British Gas"<%if InsuUtilProv="British Gas" then Response.Write("Selected")%>>British Gas</option>
						<option value="Countrywide Energy"<%if InsuUtilProv="Countrywide Energy" then Response.Write("Selected")%>>Countrywide Energy</option>
						<option value="EDF Energy"<%if InsuUtilProv="EDF Energy" then Response.Write("Selected")%>>EDF Energy</option>
						<option value="E.On Energy"<%if InsuUtilProv="E.On Energy" then Response.Write("Selected")%>>E.On Energy</option>
						<option value="npower"<%if InsuUtilProv="npower" then Response.Write("Selected")%>>npower</option>						
						<option value="Powergen"<%if InsuUtilProv="Powergen" then Response.Write("Selected")%>>Powergen</option>
						<option value="Sainsbury's Energy"<%if InsuUtilProv="Sainsbury's Energy" then Response.Write("Selected")%>>Sainsbury's Energy</option>
						<option value="Scottish and Southern Energy"<%if InsuUtilProv="Scottish and Southern Energy" then Response.Write("Selected")%>>Scottish and Southern Energy</option>						
						<option value="Scottish Power"<%if InsuUtilProv="Scottish Power" then Response.Write("Selected")%>>Scottish Power</option>						
						<option value="Southern Electric"<%if InsuUtilProv="Southern Electric" then Response.Write("Selected")%>>Southern Electric</option>						
						<option value="Spark Energy"<%if InsuUtilProv="Spark Energy" then Response.Write("Selected")%>>Spark Energy</option>
						<option value="Staywarm"<%if InsuUtilProv="Staywarm" then Response.Write("Selected")%>>Staywarm</option>
						<option value="SWALEC"<%if InsuUtilProv="SWALEC" then Response.Write("Selected")%>>SWALEC</option>						
						<option value="SWEB Energy"<%if InsuUtilProv="SWEB Energy" then Response.Write("Selected")%>>SWEB Energy</option>						
						<option value="Telecom Plus"<%if InsuUtilProv="Telecom Plus" then Response.Write("Selected")%>>Telecom Plus</option>						
						<option value="Union Energy"<%if InsuUtilProv="Union Energy" then Response.Write("Selected")%>>Union Energy</option>						
						<option value="Utilita"<%if InsuUtilProv="Utilita" then Response.Write("Selected")%>>Utilita</option>						
						<option value="Utility Warehouse"<%if InsuUtilProv="Utility Warehouse" then Response.Write("Selected")%>>Utility Warehouse</option>
						<option value="Other"<%if InsuUtilProv="Other" then Response.Write("Selected")%>>Other</option>																																																																																																																						
						</select> </td>						
						</tr>
                        </table>
                        </TD>
					</TR>
					
					<TR height=30 valign=center>
						<TD width="100%" align=left colspan="2">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
                          <tr>
                            <td width="53%">15. Who is your Electricity Supplier?</td>
                            <td width="26%">
						<select name="InsuElecSub">						
						<option value=""<%if InsuElecSub="" then Response.Write("Selected")%>></option>
						<option value="None"<%if InsuElecSub="None" then Response.Write("Selected")%>>None</option>
						<option value="Atlantic Electric and Gas"<%if InsuElecSub="Atlantic Electric and Gas" then Response.Write("Selected")%>>Atlantic Electric and Gas</option>						
						<option value="British Gas"<%if InsuElecSub="British Gas" then Response.Write("Selected")%>>British Gas</option>
						<option value="Countrywide Energy"<%if InsuElecSub="Countrywide Energy" then Response.Write("Selected")%>>Countrywide Energy</option>
						<option value="EDF Energy"<%if InsuElecSub="EDF Energy" then Response.Write("Selected")%>>EDF Energy</option>
						<option value="E.On Energy"<%if InsuElecSub="E.On Energy" then Response.Write("Selected")%>>E.On Energy</option>
						<option value="npower"<%if InsuElecSub="npower" then Response.Write("Selected")%>>npower</option>						
						<option value="Powergen"<%if InsuElecSub="Powergen" then Response.Write("Selected")%>>Powergen</option>
						<option value="Sainsbury's Energy"<%if InsuElecSub="Sainsbury's Energy" then Response.Write("Selected")%>>Sainsbury's Energy</option>
						<option value="Scottish and Southern Energy"<%if InsuElecSub="Scottish and Southern Energy" then Response.Write("Selected")%>>Scottish and Southern Energy</option>						
						<option value="Scottish Power"<%if InsuElecSub="Scottish Power" then Response.Write("Selected")%>>Scottish Power</option>						
						<option value="Southern Electric"<%if InsuElecSub="Southern Electric" then Response.Write("Selected")%>>Southern Electric</option>						
						<option value="Spark Energy"<%if InsuElecSub="Spark Energy" then Response.Write("Selected")%>>Spark Energy</option>
						<option value="Staywarm"<%if InsuElecSub="Staywarm" then Response.Write("Selected")%>>Staywarm</option>
						<option value="SWALEC"<%if InsuElecSub="SWALEC" then Response.Write("Selected")%>>SWALEC</option>						
						<option value="SWEB Energy"<%if InsuElecSub="SWEB Energy" then Response.Write("Selected")%>>SWEB Energy</option>						
						<option value="Telecom Plus"<%if InsuElecSub="Telecom Plus" then Response.Write("Selected")%>>Telecom Plus</option>						
						<option value="Union Energy"<%if InsuElecSub="Union Energy" then Response.Write("Selected")%>>Union Energy</option>						
						<option value="Utilita"<%if InsuElecSub="Utilita" then Response.Write("Selected")%>>Utilita</option>						
						<option value="Utility Warehouse"<%if InsuElecSub="Utility Warehouse" then Response.Write("Selected")%>>Utility Warehouse</option>
						<option value="Other"<%if InsuElecSub="Other" then Response.Write("Selected")%>>Other</option>							
						</select></td>
						<td width="70%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 name=InsuElecSub1 style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 100px" value="<%=InsuElecSub1%>" class="IB"><br></td>						
                          </tr>
                        </table>
                        </TD>
					</TR>	-->				
					</TABLE>
				</TD>
			</tr>
		</Table>
		</div>
	  </TD>
	</TR>
</TABLE></TABLE>
<br>
<br>
<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="" bordercolor=SteelBlue>
	<TR>
		<TD COLSPAN=2><b>Loft</b>&nbsp;&nbsp;&nbsp;<input type="radio" name="paymode" value="C" <%if paymode="C" then Response.Write("checked")%> onclick="vbscript:call radionchange">Yes</strong>
		&nbsp;&nbsp;&nbsp;<input type="radio" name="paymode" <%if paymode="A" OR paymode="" then Response.Write("checked")%> value="A" onclick="vbscript:call radionchange">NO		
		<br><br>
		<DIV id="DivCredit" style="position: absolute; VISIBILITY: Hidden">
		<TABLE align=center cellPadding=0 cellSpacing=0 width="95%" border=1 background="" bordercolor=SteelBlue>
			<tr height=20 bgcolor=SteelBlue><TD><font  color=Lavender>&nbsp;&nbsp;Details</font></TD>
			</tr>
			<tr height=140>
				<TD>
					<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					  <TR height=30 valign=center>
						<TD width="70%" align=left>13. Has your loft been Insulated In the Last 10 Years? </TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuLoftTen">
						<option value=""<%if InsuLoftTen="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuLoftTen="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuLoftTen="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					
					<TR height=40 valign=center>
						<TD width="70%" align=Right> 14. How Deep is the Present Insulation?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuJoist" onchange="javascript:dds()">
						<option value=""<%if InsuJoist="" then Response.Write("Selected")%>></option>
						<option value="50 mm"<%if InsuJoist="25 mm" then Response.Write("Selected")%>>25 mm</option>						
						<option value="50 mm"<%if InsuJoist="50 mm" then Response.Write("Selected")%>>50 mm</option>						
						<option value="50 mm"<%if InsuJoist="75 mm" then Response.Write("Selected")%>>75 mm</option>						
						<option value="75 mm"<%if InsuJoist="100 mm" then Response.Write("Selected")%>>100 mm</option>						
						<option value="Above"<%if InsuJoist="Above" then Response.Write("Selected")%>>Above</option>																																		
						</select> 
						</TD>
					</TR>
					
					<!--<TR height=30 valign=center>
						<TD width="70%" align=left>14. How Deep is the Present Insulation?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuDeep">
						<option value=""<%if InsuDeep="" then Response.Write("Selected")%>></option>
						<option value="None"<%if InsuDeep="None" then Response.Write("Selected")%>>None</option>												
						<option value="50 mm"<%if InsuDeep="25 mm" then Response.Write("Selected")%>>25 mm</option>						
						<option value="50 mm"<%if InsuDeep="50 mm" then Response.Write("Selected")%>>50 mm</option>						
						<option value="50 mm"<%if InsuDeep="75 mm" then Response.Write("Selected")%>>75 mm</option>						
						<option value="75 mm"<%if InsuDeep="100 mm" then Response.Write("Selected")%>>100 mm</option>						
						<option value="50 mm"<%if InsuDeep="Above 100mm" then Response.Write("Selected")%>>Above 100mm</option>																																																																				
						</select> 
						</TD>
					</TR>-->
					
					<TR height=30 valign=center>
						<TD width="70%" align=left>15. Has the loft been boarded</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuLoftBoard">
						<option value=""<%if InsuLoftBoard="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuLoftBoard="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuLoftBoard="No" then Response.Write("Selected")%>>No</option>						
						<option value="Partly"<%if InsuLoftBoard="Partly" then Response.Write("Selected")%>>Partly</option>																												
						
						</select> 
						</TD>
					</TR>
					
					
					<TR height=30 valign=center>
						<TD width="70%" align=left>16. Is the loft empty or can it be emptied?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuLoftEmp">
						<option value=""<%if InsuLoftEmp="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuLoftEmp="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuLoftEmp="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					
					<TR height=30 valign=center>
						<TD width="70%" align=left>17. Is there room for someone to work in loft</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuWorkLoft">
						<option value=""<%if InsuWorkLoft="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuWorkLoft="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuWorkLoft="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					
					<TR height=30 valign=center>
						<TD width="70%" align=left>18. Has the loft been converted</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuLoftConv">
						<option value=""<%if InsuLoftConv="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuLoftConv="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuLoftConv="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					
					  <!--<TR height=30 valign=center>
						<TD width="40%" align=Right>19. Any other Relevant Information?</FONT></strong></TD>
						<TD width="60%" align=left>&nbsp;&nbsp;<TEXTAREA name=InsuRInfo rows=3 style="HEIGHT: 70px; WIDTH: 275px" class="IB"><%=InsuRInfo%></TEXTAREA>
					  </TR>-->
					</TABLE>
				</TD>
			</tr>
		</Table>
		</DIV>
<br>
<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="" bordercolor=SteelBlue>
	<TR>
	  <TD COLSPAN=3><INPUT type="checkbox" name=Ship1 <%if ship1=true then Response.Write("checked")%> ><b>Cavity</b><br><br>
		<DIV id="divShip1" style="position: absolute; VISIBILITY: Hidden">
		<TABLE align=center cellPadding=0 cellSpacing=0 width="100%" border=1 background="" bordercolor=SteelBlue>
			<tr height=20  bgcolor=SteelBlue><TD><font  color=Lavender>&nbsp;&nbsp;Cavity</font></TD>
			</tr>
			<tr height=130>
			<TD>
					<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					  
					  <TR height=30 valign=center>
						</TD>
					</TR>		
									
					<TD>
					<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					  
					  <TR height=30 valign=center>
						<TD width="70%" align=left>20. Was the property built after 1985?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuBuiltYear">
						<option value=""<%if InsuBuiltYear="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuBuiltYear="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuBuiltYear="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="70%" align=left>21. was the property built before 1900?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuBuiltBefo">
						<option value=""<%if InsuBuiltBefo="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuBuiltBefo="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuBuiltBefo="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="70%" align=left>22. Does the property have cavity walls?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuHaveCavity">
						<option value=""<%if InsuHaveCavity="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuHaveCavity="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuHaveCavity="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="70%" align=left>23. Is the Structure Timber Frame / Steel?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuTimFra">
						<option value=""<%if InsuTimFra="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuTimFra="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuTimFra="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					
					<TR height=30 valign=center>
						<TD width="70%" align=left>24. Does the Property Have Tiles or Cladding on the Walls?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuTileCla">
						<option value=""<%if InsuTileCla="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuTileCla="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuTileCla="No" then Response.Write("Selected")%>>No</option>																										
						<option value="Partly"<%if InsuTileCla="Partly" then Response.Write("Selected")%>>Partly</option>		
																											
						</select> 
						</TD>
					</TR>
					
					<TR height=30 valign=center>
						<TD width="70%" align=left>25. Do you have damp walls?</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuDampWall">
						<option value=""<%if InsuDampWall="" then Response.Write("Selected")%>></option>
						<option value="Yes"<%if InsuDampWall="Yes" then Response.Write("Selected")%>>Yes</option>
						<option value="No"<%if InsuDampWall="No" then Response.Write("Selected")%>>No</option>																												
						</select> 
						</TD>
					</TR>
					</TABLE>
				</TD>
			</tr>
		</Table>
		</div>
	  </TD>
	</TR>
</TABLE>
<br>

<tr>

<br>
<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="" bordercolor=SteelBlue>
	<TR>
	  <TD COLSPAN=3><INPUT type="checkbox" name=Ship2 <%if ship2=true then Response.Write("checked")%> ><b>Closing Questions</b><br><br>
		<DIV id="divShip2" style="position: absolute; VISIBILITY: Hidden">
		<TABLE align=center cellPadding=0 cellSpacing=0 width="100%" border=1 background="" bordercolor=SteelBlue>
			<tr height=20  bgcolor=SteelBlue><TD><font  color=Lavender>&nbsp;&nbsp;Change of Address</font></TD>
			</tr>
			<tr height=130>
			<TD>
					<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					  
					  <TR height=30 valign=center>
						</TD>
					</TR>		
									
					<TD>
					<TABLE align=center cellPadding=0 cellSpacing=0 width="90%" border=0 background="">
					  
                       <!--<TR height=30 valign=center>
						<TD width="100%" align=left colspan="2">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
                          <tr>
                            <td width="80%">Are you Interested to do your double glazing in the next 6 months?</td>
                            <td width="10%"><INPUT name="CProducts1" <%if CProducts1 = "Yes" then Response.Write("Checked")%> type="radio" value="Yes"> Yes</td>
                            <td width="10%"><INPUT name="CProducts1" <%if CProducts1 = "No" then Response.Write("Checked")%> type="radio" value="No"> No</td>
                          </tr>
                        </table>
                        </TD>
					</TR>
					<TR height=30 valign=center>
						<TD width="100%" align=left colspan="2">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
                          <tr>
                            <td width="80%">Would you like us to get an Energy Supplier to call you to try and reduce your bill for you?</td>
                            <td width="10%"><INPUT name="CProducts2" <%if CProducts2 = "Yes" then Response.Write("Checked")%> type="radio" value="Yes"> Yes</td>
                            <td width="10%"><INPUT name="CProducts2" <%if CProducts2 = "No" then Response.Write("Checked")%> type="radio" value="No"> No</td>
                          </tr>
                        </table>
                        </TD>
					</TR>
					
					<TR height=30 valign=center>
						<TD width="80%" align=left>Energy Payment Type?</TD>
						<TD width="20%" align=left>&nbsp;
						<select name="InsuBedRoom1">
						<option <%if InsuBedRoom1="" then Response.Write("Selected")%>></option>
						<option <%if InsuBedRoom1="On Demand Payment (cash or cheque)" then Response.Write("Selected")%>>On Demand Payment (cash or cheque)</option>
						<option <%if InsuBedRoom1="On Demand Unmonitored Payment Card" then Response.Write("Selected")%>>On Demand Unmonitored Payment Card</option>
						<option <%if InsuBedRoom1="Fixed Direct Debit" then Response.Write("Selected")%>>Fixed Direct Debit</option>																	<option <%if InsuBedRoom1="Variable Direct Debit" then Response.Write("Selected")%>>Variable Direct Debit</option>								<option <%if InsuBedRoom1="Regular Cash Payment" then Response.Write("Selected")%>>Regular Cash Payment</option>																	<option <%if InsuBedRoom1="Standing Order" then Response.Write("Selected")%>>Standing Order</option>
						<option <%if InsuBedRoom1="Pre Payment" then Response.Write("Selected")%>>Pre Payment</option>																		</select> 
						</TD>
					</TR>-->
					  
					  <TR height=30 valign=center>
						<TD width="80%" align=left>How Many Bedrooms are there in the Property?</TD>
						<TD width="20%" align=left>&nbsp;
						<select name="InsuBedRoom">
						<option <%if InsuBedRoom="" then Response.Write("Selected")%>></option>
						<option <%if InsuBedRoom="1" then Response.Write("Selected")%>>1</option>
						<option <%if InsuBedRoom="2" then Response.Write("Selected")%>>2</option>
						<option <%if InsuBedRoom="3" then Response.Write("Selected")%>>3</option>				<option <%if InsuBedRoom="4" then Response.Write("Selected")%>>4</option>				<option <%if InsuBedRoom="5" then Response.Write("Selected")%>>5</option>				<option <%if InsuBedRoom="6" then Response.Write("Selected")%>>6</option>				</select> 
						</TD>
					</TR>

					<TR height=30 valign=bottom>
						<td width="80%" align=left valign=middle>Price Quoted ? </td>
						<td width="20%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 name=InsuPrice style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 90px" value="<%=InsuPrice%>" class="IB"> <br>  </td> 
					</TR>

					<!--<TR height=30 valign=center>
						<TD width="80%" align=left>Price Quoted?</TD>
						<TD width="20%" align=left>&nbsp;
						<select name="InsuPrice">
						<option <%if InsuPrice="" then Response.Write("Selected")%>></option>
						<option <%if InsuPrice="Yes" then Response.Write("Selected")%>>Yes</option>
						<option <%if InsuPrice="No" then Response.Write("Selected")%>>No</option>				</select> <A href="ATP.jpg" style="color:blue">ATP Pricing </a>
						</TD>
					</TR>-->
					
					<TR height=30 valign=center>
						<TD width="80%" align=left>Would you be interested to have the property insulted</TD>
						<TD width="20%" align=left>&nbsp;
						<select name="InsuPInterest">
						<option <%if InsuPInterest="" then Response.Write("Selected")%>></option>
						<option <%if InsuPInterest="Yes" then Response.Write("Selected")%>>Yes</option>
						<option <%if InsuPInterest="No" then Response.Write("Selected")%>>No</option>			</select> 
						</TD>
					</TR>
					
					
					<TR height=30 valign=bottom>
						<td width="80%" align=Right valign=middle>Customer Password : </td>
						<td width="20%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 name=InsuPwd style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 200px" value="<%=InsuPwd%>" class="IB"><br></td>
					</TR>
					
					<TR height=30 valign=center>
				<TD width="100%" align=left colspan="2">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
                <TR height=30 valign=center>
						<TD width="30%" align=left>Best Time to Call :</TD>
						<TD width="30%" align=left>&nbsp;
						<select name="InsuBTCall">
						<option <%if InsuBTCall="" then Response.Write("Selected")%>></option>
						<option <%if InsuBTCall="Morning" then Response.Write("Selected")%>>Morning</option>
						<option <%if InsuBTCall="Afternoon" then Response.Write("Selected")%>>Afternoon</option>
						<option <%if InsuBTCall="Evening" then Response.Write("Selected")%>>Evening</option>	<option <%if InsuBTCall="Any Time" then Response.Write("Selected")%>>Any Time</option>	</select> </TD>

							<td width="10%" align=left valign=middle>Date : </td>
							<td width="30%" align=right>&nbsp;&nbsp;<INPUT maxLength=50 name=InsuBTCall1 style="HEIGHT: 22px; TEXT-TRANSFORM: uppercase; WIDTH: 100px" value="<%=InsuBTCall1%>" class="IB">DD/MM/YYYY<br></td>
						
						<!--<TD width="10%" align=left>Time :</TD>
						<TD width="30%" align=right>&nbsp;
						<select name="InsuBTCall1">
						<option <%if InsuBTCall1="" then Response.Write("Selected")%>></option>
						<option <%if InsuBTCall1="Best time to call: 9am-2pm" then Response.Write("Selected")%>>Best time to call: 9am-2pm</option>						
						<option <%if InsuBTCall1="Best time to call: After 10am" then Response.Write("Selected")%>>Best time to call: After 10am</option>						
						<option <%if InsuBTCall1="Best time to call: After 11am" then Response.Write("Selected")%>>Best time to call: After 11am</option>						
						<option <%if InsuBTCall1="Best time to call: 9am-10am" then Response.Write("Selected")%>>Best time to call: 9am-10am</option>
						<option <%if InsuBTCall1="Best time to call: 12pm-5pm" then Response.Write("Selected")%>>Best time to call: 12pm-5pm</option>						
						<option <%if InsuBTCall1="Best time to call: After 1pm" then Response.Write("Selected")%>>Best time to call: After 1pm</option>
						<option <%if InsuBTCall1="Best time to call: After 2pm" then Response.Write("Selected")%>>Best time to call: After 2pm</option>	
						<option <%if InsuBTCall1="Best time to call: 12pm-1pm" then Response.Write("Selected")%>>Best time to call: 12pm-1pm</option>
						<option <%if InsuBTCall1="Best time to call: 1pm-2pm" then Response.Write("Selected")%>>Best time to call: 1pm-2pm</option>						
						<option <%if InsuBTCall1="Best time to call: 3pm-5pm" then Response.Write("Selected")%>>Best time to call: 3pm-5pm</option>
						<option <%if InsuBTCall1="Best time to call: 4pm-5pm" then Response.Write("Selected")%>>Best time to call: 4pm-5pm</option>						
						<option <%if InsuBTCall1="Best time to call: 5pm-8pm" then Response.Write("Selected")%>>Best time to call: 5pm-8pm</option>
						<option <%if InsuBTCall1="Best time to call: After 5pm" then Response.Write("Selected")%>>Best time to call: After 5pm</option>						
						<option <%if InsuBTCall1="Best time to call: After 6pm" then Response.Write("Selected")%>>Best time to call: After 6pm</option>						
						<option <%if InsuBTCall1="Best time to call: 5pm-7pm" then Response.Write("Selected")%>>Best time to call: 5pm-7pm</option>						
						<option <%if InsuBTCall1="Best time to call: 6pm-7pm" then Response.Write("Selected")%>>Best time to call: 6pm-7pm</option>
						<option <%if InsuBTCall1="Best time to call: Any time" then Response.Write("Selected")%>>Best time to call: Any time</option>
						<option <%if InsuBTCall1="Best time to call: Any time on mobile" then Response.Write("Selected")%>>Best time to call: Any time on mobile</option>
						<option <%if InsuBTCall1="Best time to call: 9am–5pm" then Response.Write("Selected")%>>Best time to call: 9am–5pm</option>
						</select> </TD>-->
			</TR>
			</table>
            </TD>
			</TR>
		
				<!--<TR height=30 valign=center>
				<TD width="100%" align=left colspan="2">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
                <TR height=40 valign=center>
				<TD width="25%" align=Right nowrap>Best Time to Call : </strong></TD>
				<TD width="75%" align=left>&nbsp;
	  			<select name="cday2">
		  		 <option selected>Day</option>
		  		   <% for i = 1 to 31
		  		 	if i = cday2 then%>
		  		 		<option selected><%=cday2%></option>
		  		 	<%else%>
		  		 		<option><%=i%></option>
		  		 	<%end if
		  		   next%>
		  		 </select>
		  		<select name="cmonth2">
		  		<option selected>Month</option>
		  		  <% for i = 1 to 12
		  			if i = cmon2 then%>
		  				<option selected><%=monthname(cmon2)%></option>
		  			<%else%>
		  				<option><%=monthname(i)%></option>
		  			<%end if
		  		  next%>
		  		</select>
		  		<select name="cYear2">
		  		<option selected>Year</option>
		  		  <% for i = 2009 to 2015
		  			if i = cyear2 then%>
		  				<option selected><%=cyear2%></option>
		  			<%else%>
		  				<option><%=i%></option>
		  			<%end if
		  		  next%>
		  		</select>
				&nbsp;&nbsp;Time :</strong>&nbsp;&nbsp;
		  		<INPUT maxLength=25 name=CTime2 style="HEIGHT: 22px; WIDTH: 50px" value="<%=CTime2%>" class="IB">		  		
				</TD>			
			</TR>
			</table>
            </TD>
			</TR>-->
			</TABLE>
			</TD>
			</tr>
		</Table>
		</div>
	  </TD>
	</TR>
</TABLE>
<br>
</tr>
		<DIV id="DivBank" style="position: absolute; VISIBILITY: visible">
		<TABLE align=center cellPadding=0 cellSpacing=0 width="95%" border=1 background="" bordercolor=SteelBlue>			
		</Table>
		</div>
	  </TD>
	</TR>
</TABLE>
	<p align="center" ><b><font color="#4682B4">___________________________________________________________________</font></b></P>
	<TABLE align=center cellPadding=5 cellSpacing=0 width="90%" border=0 background="" borderColor=white>
		
		<tr>
			<td ><font color="red"><b>Hot Key Number DGI :  1905725380</b></td>
			</tr>
		<!--<TR height=40 valign=center>
						<TD width="60%" align=Right>Client Disposition :</TD>			
						<TD width="40%" align=left>&nbsp;
						<select name="disposition">
						<option <%if disposition="" then Response.Write("Selected")%>></option>						
						<option <%if disposition="Home Energy Savers - 1" then Response.Write("Selected")%>>Home Energy Savers - 1</option>	
						<option <%if disposition="Home Energy Savers - 2" then Response.Write("Selected")%>>Home Energy Savers - 2</option>	
						<option <%if disposition="Home Energy Savers - 2.1" then Response.Write("Selected")%>>Home Energy Savers - 2.1</option>	
						<option <%if disposition="Home Energy Savers - 3" then Response.Write("Selected")%>>Home Energy Savers - 3</option>	
						<option <%if disposition="Home Energy Savers - 4" then Response.Write("Selected")%>>Home Energy Savers - 4</option>	
						<option <%if disposition="Home Energy Savers - 5" then Response.Write("Selected")%>>Home Energy Savers - 5</option>	
						<option <%if disposition="Home Energy Savers - 6" then Response.Write("Selected")%>>Home Energy Savers - 6</option>	
						<option <%if disposition="Home Energy Savers - 7" then Response.Write("Selected")%>>Home Energy Savers - 7</option>	
						<option <%if disposition="Home Energy Savers - 8" then Response.Write("Selected")%>>Home Energy Savers - 8</option>	
						<option <%if disposition="Home Energy Savers - 9" then Response.Write("Selected")%>>Home Energy Savers - 9</option>	
						<option <%if disposition="Home Energy Savers - 10" then Response.Write("Selected")%>>Home Energy Savers - 10</option>	
						<option <%if disposition="Home Energy Savers - 11" then Response.Write("Selected")%>>Home Energy Savers - 11</option>	
						</select> 
						</TD>
					</TR>	-->	
					<TR height=40 valign=center>
						<TD width="60%" align=Right>Client Disposition :</TD>			
						<TD width="40%" align=left>&nbsp;
						<select name="disposition" onchange="javascript:ddsss()">
						<option <%if disposition="" then Response.Write("Selected")%>></option>	
						<option <%if disposition="DGI Insulation" then Response.Write("Selected")%>>DGI Insulation</option>	
                        <option <%if disposition="EuroEngeryServices Insulation" then Response.Write("Selected")%>>EuroEngeryServices Insulation</option>	
						<option <%if disposition="Solarwall Insulation" then Response.Write("Selected")%>>Solarwall Insulation</option>	
						<option <%if disposition="WarmGen Insulation" then Response.Write("Selected")%>>WarmGen Insulation</option>	
						<option <%if disposition="Aran Insulation" then Response.Write("Selected")%>>Aran Insulation</option>	
						<option <%if disposition="GreenHome Insulation" then Response.Write("Selected")%>>GreenHome Insulation</option>	
						<option <%if disposition="WarmFill Insulation" then Response.Write("Selected")%>>WarmFill Insulation</option>	
						<option <%if disposition="ExactAssessors Insulation" then Response.Write("Selected")%>>ExactAssessors Insulation</option>	
						<option <%if disposition="ESP Insulation" then Response.Write("Selected")%>>ESP Insulation</option>	
						<option <%if disposition="Liberty Insulation" then Response.Write("Selected")%>>Liberty Insulation</option>	
						<option <%if disposition="Davidprice Insulation" then Response.Write("Selected")%>>Davidprice Insulation</option>	
						<option <%if disposition="A And M Insulation" then Response.Write("Selected")%>>A And M Insulation</option>	
						<option <%if disposition="ALG Home Insulation" then Response.Write("Selected")%>>ALG Home Insulation</option>	
						<option <%if disposition="Lazenby Insulation" then Response.Write("Selected")%>>Lazenby Insulation</option>	
						<option <%if disposition="Karnheath Insulation" then Response.Write("Selected")%>>Karnheath Insulation</option>	
						<option <%if disposition="Reef Insulation" then Response.Write("Selected")%>>Reef Insulation</option>	
						<option <%if disposition="GM Contracts Insulation" then Response.Write("Selected")%>>GM Contracts Insulation</option>	
						<option <%if disposition="HAIGH Insulation" then Response.Write("Selected")%>>HAIGH Insulation</option>	
						<option <%if disposition="Test Campaign" then Response.Write("Selected")%>>Test Campaign</option>
						<option <%if disposition="IntellyGen" then Response.Write("Selected")%>>IntellyGen</option>
						<option <%if disposition="Crest Surveying" then Response.Write("Selected")%>>Crest Surveying</option>
						</select> 
						</TD>
					</TR>
					
					<TR height=30 valign=bottom>
						<td width="80%" align=Right valign=middle>Verifier : </td>
						<td width="20%" align=left>&nbsp;&nbsp;<INPUT maxLength=50 name=ppiloan type=password style="HEIGHT: 22px; WIDTH: 100px" value="<%=ppiloan%>" class="IB"><br></td>
					</TR>
					
					<TR height=30 valign=bottom>
						<td width="80%" align=Right valign=middle>Verified By : </td>
						<TD width="40%" align=left>&nbsp;
						<select name="verified">
						<option <%if verified="" then Response.Write("Selected")%>></option>					
						<option <%if verified="Babu" then Response.Write("Selected")%>>Babu</option>	
						<option <%if verified="Christy" then Response.Write("Selected")%>>Christy</option>	
						<option <%if verified="Vishnu" then Response.Write("Selected")%>>Vishnu</option>
						<option <%if verified="Adhnan" then Response.Write("Selected")%>>Adhnan</option>	
						<option <%if verified="Others" then Response.Write("Selected")%>>Others</option>
						<option <%if verified="Customer Hungup" then Response.Write("Selected")%>>Customer Hungup</option>
						<option <%if verified="Customer in hurry" then Response.Write("Selected")%>>Customer in hurry</option>
						</select> 
						</TD>
					</TR>

					<TR height=30 valign=center>
						<TD width="60%" align=right>Lead Type :</TD>
						<TD width="40%" align=left>&nbsp;
						<select name="Location"  onchange="javascript:ddssw()">
						<option <%if Location="" then Response.Write("Selected")%>></option>				
						<option <%if Location="HHCRO" then Response.Write("Selected")%>>HHCRO</option>
						<option <%if Location="Boiler" then Response.Write("Selected")%>>Boiler</option>
						<option <%if Location="Solid Walls" then Response.Write("Selected")%>>Solid Walls</option>
						<option <%if Location="HTT" then Response.Write("Selected")%>>HTT</option>
						<option <%if Location="Lead Qualified" then Response.Write("Selected")%>>Lead Qualified</option>
						</select> 
						</TD>
					</TR>
		
	  <TR height=80 bordercolor=lightseagreen valign=center>
		<TD valign=top align=right width="60%">Remarks : </TD>
		<TD valign=top align=left width="40%">&nbsp;&nbsp;<TEXTAREA name=Remarks rows=2 style="HEIGHT: 70px; WIDTH: 375px" class="IB"><%=Remarks%></TEXTAREA></TD>
	  </TR>
		<%if actype = "QC" then
			set r1 = Server.CreateObject("ADODB.Recordset")
			r1.Open "select * from dialer_agent where agent_uid = '"& madeby &"'",con,adOpenDynamic
			if not r1.eof then%>
				<TR height=40 valign=center>
				  <TD width="20%" align=Right nowrap>Sale By : </strong></TD>
				  <TD width="80%" align=Left>&nbsp;&nbsp;<strong><FONT size=3 face=serif color=Blue><%=r1("agent_uid")%></FONT></strong></TD>
				</TR>
			<%end if
			r1.Close
		end if%>
		
		<TR height=40 valign=center style="display:none">
			<TD width="60%" align=Right nowrap>Sale Date (EST) : </strong></TD>
			<TD width="40%" align=left>&nbsp;
		  		<select name="Sday">
		  		 <option selected>Day</option>
		  		   <% for i = 1 to 31
		  		 	if i = Sday then%>
		  		 		<option selected><%=Sday%></option>
		  		 	<%else%>
		  		 		<option><%=i%></option>
		  		 	<%end if
		  		   next%>
		  		 </select>
		  		<select name="Smonth">
		  		<option selected>Month</option>
		  		  <% for i = 1 to 12
		  			if i = Smon then%>
		  				<option selected><%=monthname(Smon)%></option>
		  			<%else%>
		  				<option><%=monthname(i)%></option>
		  			<%end if
		  		  next%>
		  		</select>
		  		<select name="SYear">
		  		<option selected>Year</option>
		  		  <% for i = 2006 to 2015
		  			if i = Syear then%>
		  				<option selected><%=Syear%></option>
		  			<%else%>
		  				<option><%=i%></option>
		  			<%end if
		  		  next%>
		  		</select>
		  		
				&nbsp;&nbsp;Time :</strong>&nbsp;&nbsp;
				<INPUT maxLength=5 name=EstTime style="HEIGHT: 22px; WIDTH: 50px" readonly=true value="<%=EstTime%>" class="IB">
			</TD>
		</TR>
		<%if actype = "QC" or actype = "DEL" or Qremarks <> "" then%>
			<TR height=80 bordercolor=lightseagreen valign=center>
				<TD valign=top align=right width="20%">Quality Notes : </TD>
				<TD valign=top align=left width="80%">&nbsp;&nbsp;<TEXTAREA name=Qremarks rows=2 style="HEIGHT: 70px; WIDTH: 375px" class="IB"><%=Qremarks%></TEXTAREA></TD>
			</TR>
		
		<%end if%>
		
		<%if actype = "QC" or actype = "DEL" then
			set r1 = Server.CreateObject("ADODB.Recordset")
			r1.Open "select * from dialer_agent where agent_uid = '"& madeby &"'",con,adOpenDynamic
			if not r1.eof then%>
			<TR height=30 valign=center>
				<TD colspan=2 align=left><HR color=SteelBlue>&nbsp;&nbsp;<font color=navy size=3><strong>Quality Team Only</strong></font>
				</TD>
			</TR>
			
			<TR height=20 valign=center>
				<TD colspan=2 align=left>&nbsp;&nbsp;</TD>
			</TR>
			<TR height=20 valign=center>
				<TD width="60%" align=Right>&nbsp; <Label for="Pending" onclick="vbscript: document.form1.Pending.checked = not (document.form1.Pending.checked)" class="flatwhitelk">Move to Pending</b></label> : </TD>
				<TD width="40%" align=left>&nbsp;<INPUT type="checkbox" name=Pending <%if Pending=True then Response.Write("checked")%>></TD>
			</TR>
			<%end if
			r1.Close%>
		<%end if%>
		 <TR height=10 valign=center>
		<TD colspan=2 align=left>&nbsp;&nbsp;</TD>
	  </TR>
	  <TR height=10 valign=center>
		<TD colspan=2 align=left>&nbsp;&nbsp;</TD>
	  </TR>
		
	</TABLE>
	<br><br><br>
	<P align="center">
	    <input type="hidden" name="status" value="1">
	    <% if Request.QueryString("type") = "QC" then%>
	        <!--<input type="button" name="Submitform" value="Approve" onclick="javascript:valid()" class="butn">-->
	        <input type="button" name="Submitform" value="Approve" onclick="vbscript:ValidateEmployee" class="butn">
			<!--<input type="button" name="Submitform" value="Approve" onclick="javascript:verifi()" class="butn">-->
			
	    <%elseif Request.QueryString("type") = "DEL" then%>
			<!--<input type="button" name="Submitform" value="Delete" onclick="javascript:valid() class="butn">-->
			<input type="button" name="Submitform" value="Delete" onclick="vbscript:ValidateEmployee" class="butn">
			<!--<input type="button" name="Submitform" value="Delete" onclick="javascript:verifi() class="butn">-->
	    <%else
	    If SaleRec <> True then%>
			<!--<input type="button" name="Submitform" value="Submit" onclick="javascript:valid() class="butn">-->
			<input type="button" name="Submitform" value="Submit" onclick="vbscript:ValidateEmployee" class="butn">
			<!--<input type="button" name="Submitform" value="Submit" onclick="javascript:verifi() class="butn">-->
	    <%end if%>
	    <%end if%>
	    
	    &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<input type="button" name="Back" value="Cancel" onclick="vbscript:window.history.back" class="butn">
	</P>
	<table width="100%" height=50><tr><td>&nbsp;</td></tr></table>
	<table width="100%" border="0" cellspacing="0" cellpadding="0" class=footer>
	  <tr> 
	    <td align="left" valign="middle" height="22" ><font face="Geneva, Arial, Helvetica, san-serif" size="1" color="#FFFFFF"><font face="Verdana, Arial, Helvetica, sans-serif">
	    </font></td>
	  </tr>
	</table>
</form>
</BODY>
</HTML>
<%elseif Request.Form("status")="1" then
	set rs = Server.CreateObject("ADODB.Recordset")
	set rstemp = Server.CreateObject("ADODB.Recordset")
	agent_uid = Request.form("agent_uid")
	CustId = trim(Request.form("CustId"))
	RedString = ""
	if Request.Form("actype") = "DEL" then
		mess = "The Details for the Customer <FONT size=4 color=Navy>" & CustId & "</FONT> was Deleted Successfully"
		rs.Open "Update Insu set Deleted = 1, check_by = '" & session("agentid") & "' where CustId='"& CustId &"'", con, 2,2
		RedString = "DGIInsulationQc.asp?mess= " & mess
	else
		if CustId = "" then
			'rstemp.Open "select max(right(CustId,6))+1 NewCustId from Insu",con,2,2
			'if isnull(rstemp(0)) or rstemp(0) = "" then
			'	CustId = "Insu000001"
			'else
			'	CustId = "Insu" & right("000000" & rstemp(0),6)
			'end if
			'rstemp.Close

			rs.Open "select * from Insu", con, 2,2
			rs.AddNew
			rs("Made_by") = session("agentid")
			'rs("CustId") = CustId
			mess = "The Record Id for the Customer <FONT size=4 color=Navy>" & ucase(rs("FName") & " " & rs("LName")) & "</FONT> is <FONT size=5 color=SteelBlue>" & rs("CustId") & "</font>"
		else
			rs.Open "select * from Insu where CustId='"& CustId &"'", con, 2,2
			mess = "The Details for the Customer <FONT size=4 color=Navy>" & rs("CustId")  & "</FONT> was Updated Successfully"
		end if
		rs("Title") = Request.Form("Title")
		rs("FName") = ucase(Request.Form("Fname"))
		rs("MName") = ucase(Request.Form("Mname"))
		rs("LName") = ucase(Request.Form("Lname"))
		rs("hPhone") = Request.Form("hPhone")
		rs("AhPhone") = Request.Form("AhPhone")
		rs("mobile") = Request.Form("mobile")
		rs("CusEmail") = Request.Form("CusEmail")
		rs("Address1") = ucase(Request.Form("Address1"))
		rs("Address2") = ucase(Request.Form("Address2"))
		rs("Address3") = ucase(Request.Form("Address3"))
		rs("City") = ucase(Request.Form("City"))
		rs("State") = ucase(Request.Form("State"))
		rs("Zip") = ucase(Request.Form("Zip"))
		rs("ZipArea") = ucase(Request.Form("ZipArea"))
		rs("ZipAreaN") = ucase(Request.Form("ZipAreaN"))
		rs("LeadID") = ucase(Request.Form("LeadID"))
		rs("SupplierBatchNo") = ucase(Request.Form("SupplierBatchNo"))
		
		rs("CavityWalls") = Request.Form("CavityWalls")
		'rs("Insutenyrs") = Request.Form("Insutenyrs")
		rs("InsuJoist") = Request.Form("InsuJoist")
				
		if Request.Form("shipto") = "on" then
			rs("shipto") = 1
			rs("OwnProper") = Request.Form("OwnProper")
			rs("Tenure") = Request.Form("Tenure")
			rs("InsuInterest") = Request.Form("InsuInterest")
			rs("InsuProp") = Request.Form("InsuProp")
			rs("InsuPropBuilt") = Request.Form("InsuPropBuilt")
			rs("InsuCustAllow") = Request.Form("InsuCustAllow")
			rs("InsuBenefits") = Request.Form("InsuBenefits")
			rs("InsuBenefits2") = Request.Form("InsuBenefits2")
			rs("InsuBenefits3") = Request.Form("InsuBenefits3")
			'rs("InsuHomeIncome") = Request.Form("InsuHomeIncome")
			rs("Insucert") = Request.Form("Insucert")
			rs("InsuAgeProof") = Request.Form("InsuAgeProof")
			rs("InsuUtilBill") = Request.Form("InsuUtilBill")
			rs("stonew") = Request.Form("stonew")
			rs("CDigNews1") = Request.Form("CDigNews1")
			rs("CDigNews2") = Request.Form("CDigNews2")
			rs("CDigNews3") = Request.Form("CDigNews3")
			rs("CDigNews4") = Request.Form("CDigNews4")
			rs("CDigNews5") = Request.Form("CDigNews5")			
			rs("boiler_Type") = Request.Form("boiler_Type")
			rs("boiler_life") = Request.Form("boiler_life")
			rs("boiler_replace") = Request.Form("boiler_replace")
			''rs("InsuGas") = Request.Form("InsuGas")
			''rs("InsuUtilProv") = Request.Form("InsuUtilProv")
			'rs("InsuUtilProvOth") = Request.Form("InsuUtilProvOth")
			''rs("InsuElecSub") = Request.Form("InsuElecSub")
			rs("InsuElecSub1") = Request.Form("InsuElecSub1")
			'rs("InsuElecSubOth") = Request.Form("InsuElecSubOth")
		else
			rs("shipto") = 0
			rs("OwnProper") = ""
			rs("Tenure")= ""
			rs("InsuInterest") = ""
			rs("InsuProp") = ""
			rs("InsuPropBuilt") = ""
			rs("InsuCustAllow") = ""
			rs("InsuBenefits") = ""
			rs("InsuBenefits2") = ""
			rs("InsuBenefits3") = ""
			'rs("InsuHomeIncome") = ""
			rs("Insucert") = ""
			rs("InsuAgeProof") = ""
			rs("InsuUtilBill") = ""
			rs("stonew") = ""
			rs("CDigNews1") = ""
			rs("CDigNews2") = ""
			rs("CDigNews3") = ""
			rs("CDigNews4") = ""
			rs("CDigNews5") = ""
			rs("boiler_Type") = ""
			rs("boiler_life") = ""
			rs("boiler_replace") = ""
			''rs("InsuGas") = ""
			''rs("InsuUtilProv") = ""
			'rs("InsuUtilProvOth") = ""
			''rs("InsuElecSub") = ""
			rs("InsuElecSub1") = ""
			'rs("InsuElecSubOth") = ""
		end if
		
		if Request.Form("paymode") = "C" then
			rs("paymode") = "C"
			rs("InsuLoftTen") = Request.Form("InsuLoftTen")
			'rs("InsuDeep") = Request.Form("InsuDeep")
			rs("InsuLoftBoard") = Request.Form("InsuLoftBoard")			
			rs("InsuLoftEmp") = Request.Form("InsuLoftEmp")	
			rs("InsuWorkLoft") = Request.Form("InsuWorkLoft")	
			rs("InsuLoftConv") = Request.Form("InsuLoftConv")
			'rs("InsuRInfo") = Request.Form("InsuRInfo")		
		else
			rs("paymode") = "A"
			rs("InsuLoftTen") = ""
			'rs("InsuDeep") = ""
			rs("InsuLoftBoard") = ""
			rs("InsuLoftEmp") = ""
			rs("InsuWorkLoft") = ""
			rs("InsuLoftConv") = ""
			'rs("InsuRInfo") = ""
		end if		
		if Request.Form("ship1") = "on" then
			rs("ship1") = 1
			rs("InsuBuiltYear") = Request.Form("InsuBuiltYear")
			rs("InsuBuiltBefo") = Request.Form("InsuBuiltBefo")
			rs("InsuHaveCavity") = Request.Form("InsuHaveCavity")
			rs("InsuTimFra") = Request.Form("InsuTimFra")
			rs("InsuTileCla") = Request.Form("InsuTileCla")
			rs("InsuDampWall") = Request.Form("InsuDampWall")
		else
			rs("ship1") = 0
			rs("InsuBuiltYear") = ""
			rs("InsuBuiltBefo") = ""
			rs("InsuHaveCavity") = ""
			rs("InsuTimFra") = ""
			rs("InsuTileCla") = ""
			rs("InsuDampWall") = ""
		end if
		
		if Request.Form("ship2") = "on" then
			rs("ship2") = 1
			''rs("CProducts1") = Request.Form("CProducts1")
			''rs("CProducts2") = Request.Form("CProducts2")
			rs("InsuBedRoom") = Request.Form("InsuBedRoom")
			''rs("InsuBedRoom1") = Request.Form("InsuBedRoom1")
			rs("InsuPrice") = Request.Form("InsuPrice")
			rs("InsuPInterest") = Request.Form("InsuPInterest")			
			'rs("InsuShower") = Request.Form("InsuShower")
			rs("InsuPwd") = Request.Form("InsuPwd")	
			rs("InsuBTCall") = Request.Form("InsuBTCall")
			rs("InsuBTCall1") = Request.Form("InsuBTCall1")
			if isdate(Request.Form("cmonth2")& "/" & Request.Form("cday2") & "/" & Request.Form("cYear2")) then
				rs("Demo2") = cdate(Request.Form("cmonth2")& "/" & Request.Form("cday2") & "/" & Request.Form("cYear2"))
			else
				rs("Demo2") = null
			end if		
			rs("CTime2") = Request.Form("CTime2")					
		else
			rs("ship2") = 0
			''rs("CProducts1") = ""
			''rs("CProducts2") = ""
			rs("InsuBedRoom") = ""
			''rs("InsuBedRoom1") = ""
			rs("InsuPrice") = ""
			rs("InsuPInterest") = ""
			'rs("InsuShower") = ""
			rs("InsuPwd") = ""
			rs("InsuBTCall") = ""
			rs("InsuBTCall1") =""			
			rs("Demo2") = null
			rs("CTime2") = null
		end if
		
		if Request.Form("Pending") = "on" then
			rs("Pending") = 1
		else
			rs("Pending") = 0
			rs("Check_by") = null
		end if
		
		if Request.Form("actype") = "QC" then 
			rs("Check_by") = session("agentid")
			mess = "The Customer <FONT size=4 color=Navy>" & rs("CustId")  & "</FONT> was Approved Successfully"
			RedString = "Insulation2013Qc.asp?mess= " & mess
		else
			RedString = "InsulationList.asp?mess= " & mess
		end if
			if isdate(Request.Form("smonth")& "/" & Request.Form("sday") & "/" & Request.Form("sYear")) then
			if isdate(Request.Form("smonth")& "/" & Request.Form("sday") & "/" & Request.Form("sYear") ) then
				rs("Made_at") = cdate(Request.Form("smonth")& "/" & Request.Form("sday") & "/" & Request.Form("sYear"))
			else
				rs("Made_at") = cdate(Request.Form("smonth")& "/" & Request.Form("sday") & "/" & Request.Form("sYear"))
			end if
			rs("EstTime") = Request.Form("EstTime") 
		end if
		rs("disposition") = Request.Form("disposition")	
		rs("ppiloan") = Request.Form("ppiloan")	
		rs("Location") = Request.Form("Location")	
		
		rs("Verified") = Request.Form("Verified")																
		rs("remarks") = trim(Request.Form("remarks"))
		'rs("SpeciTime") = trim(Request.Form("SpeciTime"))		
		rs("Qremarks") = trim(Request.Form("Qremarks"))
		rs("deleted") = 0
		rs.Update
		rs.Close
	end if
	Response.Redirect(RedString)
end if%>