<!-- #include virtual="/lib/ado_lib.asp" -->
<!-- #include virtual="/lib/form_lib.asp" -->
<!-- #include virtual="/lib/util_lib.asp" -->
<%
'ado_debug=1

Dim i
Dim rs
Dim aStates
Dim aCreditCode
Dim sLeadGUID
Dim sAction

sLeadGUID = GetValue("LeadGUID",Request.Cookies("LeadGUID"))
sAction = GetValue("txtaction","")

If GetValue("First_Name","") <> "" Then
	If inStr(GetValue("First_Name",""),"http:") Then
		Response.End
	End If
End If

If sAction <> "" Then
	
	Call FormInit
	Call LoadForm
	
	If GetValue("IPAddress","") = "" Then
		Call SetValue("IPAddress",Request.ServerVariables("REMOTE_ADDR"))
		If inStr(GetValue("FRM_DATABASE",""), "IPAddress") <= 0  Then
			Call SetValue("FRM_DATABASE",GetValue("FRM_DATABASE","") & ",IPAddress")
		End If
	End If
	
	If GetValue("home_phone","") = "" Then Call SetValue("home_phone",lCase(GetValue("HPhone1","")) & GetValue("HPhone2","") & GetValue("HPhone3",""))
	Call SetValue("home_phone",StripChars(GetValue("home_phone",""),"~`!@#$%^&*()_+-={}|[]\;'"":<>?,./abcdefghijklmnopqrstuvwxyz"))
	If len(GetValue("home_phone","")) <> 10 Then
		Call SetError("home_phone")
		Call SetError("HPhone1")
	End If
	If GetValue("work_phone","") = "" Then Call SetValue("work_phone",lCase(GetValue("WPhone1","")) & GetValue("WPhone2","") & GetValue("WPhone3",""))
	If GetValue("loan_purpose_code","") = "H" Then Call SetValue("Loan_Amount",GetValue("mkt_val",""))
	If GetValue("mort_bal","") = "" Then Call SetValue("mort_bal",GetValue("mkt_val",""))
	If GetValue("loan_amount","") = "" Then Call SetValue("Loan_Amount",GetValue("mort_bal",""))
	Call SetValue("LeadGUID",CreateGuid())
	Call SetValue("Site_ID",GetValue("Site_ID","249294"))
	
	If Not bWasError Then
		Call SetValue("Status","P")
		Set rs = ExecuteSQL(MakeExecuteSQL("spLeadSave",GetValue("FRM_DATABASE","")))
		Call SetValue("LeadGUID",rs.Fields("LeadGUID").Value)
		Response.Cookies("LeadGUID") = ""
		Response.Cookies("HeaderFile") = GetValue("HeaderFile","")
		Response.Cookies("HeaderFile").Expires = (Date()+1)
		Response.Cookies("FooterFile") = GetValue("FooterFile","")
		Response.Cookies("FooterFile").Expires = (Date()+1)
		Set rs = ExecuteSQL("SELECT first_name, last_name, email, ISNULL(home_phone, work_phone) as phone from leads_hold where LeadGUID='" & GetValue("LeadGUID","") & "'")
		If not rs.EOF Then aLead = rs.GetRows()
		Call ShutDownAdo
		' Export to Mailchimp
		Call GetPage("http://54.176.159.91/lib/posts/export_mailchimp.php?LeadGUID="&GetValue("LeadGUID", ""))
		'response.redirect("/lib/newform/thankyou.asp?tocredit="&GetValue("ToCredit","")&"&minapp="&GetValue("WordpressApp",GetValue("MiniApp",GetValue("MiniApp2","0")))&"&Site_ID="&GetValue("Site_ID","")&"&fname="&aLead(0,0)&"&lname="&aLead(1,0)&"&email="&aLead(2,0)&"&pp1="&Mid(aLead(3,0), 1, 3)&"&pp2="&Mid(aLead(3,0), 4, 3)&"&pp3="&Mid(aLead(3,0), 7, 4)&"&straddr="&GetValue("address1","")&"&city="&GetValue("city","")&"&state="&GetValue("state","")&"&zip="&GetValue("zip",""))
		response.redirect("/lib/creative/credit/Confirmation_redesign.asp?Adwords="&GetValue("Adwords","")&"&tocredit="&GetValue("ToCredit","")&"&minapp="&GetValue("WordpressApp",GetValue("MiniApp",GetValue("MiniApp2","0")))&"&Site_ID="&GetValue("Site_ID","")&"&fname="&aLead(0,0)&"&lname="&aLead(1,0)&"&email="&aLead(2,0)&"&pp1="&Mid(aLead(3,0), 1, 3)&"&pp2="&Mid(aLead(3,0), 4, 3)&"&pp3="&Mid(aLead(3,0), 7, 4)&"&straddr="&GetValue("address1","")&"&city="&GetValue("city","")&"&state="&GetValue("state","")&"&zip="&GetValue("zip","")&"&grs_mth_inc="&GetValue("grs_mth_inc",""))
		response.end
	End If
End If

Set rs = ExecuteSQL("exec spFormState")
If not rs.EOF Then aStates = rs.GetRows()
Set rs = nothing

Call ShutdownADO

' **********************************************************************************
' Import header, if one is available
dim fs
dim sHeader
Dim sFooter
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(sPath&"app_header.asp")=true And fs.FileExists(sPath&"app_footer.asp")=true then
	'response.write("File c:\asp\introduction.asp exists!")
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objText = objFSO.OpenTextFile(sPath&"app_header.asp")
	getFileContents = objText.ReadAll
	response.write(getFileContents)
	objText.Close
	Set objText = objFSO.OpenTextFile(sPath&"app_footer.asp")
	getFileContents = objText.ReadAll
	sFooter=getFileContents
	objText.Close
	Set objText = Nothing
	Set objFSO = Nothing
else %>
	<!--<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
	<html xmlns="http://www.w3.org/1999/xhtml">
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
		<meta name="viewport" content="width=device-width, user-scalable=false;">-->
<!-- Mobile CSS -->
<link media="Screen" href="/lib/newform/style5.css" type="text/css" rel="stylesheet" />
<link media="handheld, only screen and (max-width: 480px), only screen and (max-device-width: 480px)" href="/lib/newform/mobile-style.css" type="text/css" rel="stylesheet" />
<!-- End Mobile CSS -->

<!--  <link href="/lib/newform/style2.css" type="text/css" rel="stylesheet" /> -->


		<script src="//ajax.googleapis.com/ajax/libs/jquery/2.1.0/jquery.min.js"></script>
	<!--	<title>FHA Mortgages</title>
	</head>
	<body>-->

<%
end if
set fs=nothing

'sSiteId=249294
%>


<!-- APP -->
<% sThankYouURL="https://www.nationwidemortgages.net/lib/thankyouMobile.asp"%>
<script>
function LexingtonPop() {
	return true;
	setTimeout(function(){document.location.href = "<%=sThankYouURL%>";},500);
	return true;
}
</script>
<div id="FormBG">
	<div id="Form4">
		<div id="inner">
			<div id="wrap">
				<div id="TagLine">
					Get Approved Today With Any Credit Grade</div>
				<div class="progress" id="progress">
					<% If Not bWasError Then %>
						<span class="green" style="width: 0%;"><span>0%</span></span>
					<% Else %>
						<span class="green" style="width: 75%;"><span>75%</span></span>
					<% End If %>
		    	</div>

				<div id="FormContainer">
					<!--<form method="post" action="/lib/newform/index3.asp" name="form1" id="form1">-->
					<form method="post" action="/lib/newform/index5.asp" name="form1" id="form1"  onsubmit="return LexingtonPop();">
					<input type="hidden" name="FRM_DATABASE" value="TrackingCode,Site_ID,IPAddress,Priority,loan_purpose_code,loan_property_code,mkt_val,credit_code,Email,first_name,last_name,address1,city,state,zip,home_phone,work_phone,loan_amount,mort_bal,Status,grs_mth_inc,leadid_token">
					<input type="hidden" name="FRM_REQUIRED" value="Site_ID,loan_purpose_code,loan_property_code,mkt_val,credit_code,Email,first_name,last_name,address1,city,state,zip,home_phone,work_phone,grs_mth_inc">
					<input type="hidden" name="FRM_NUMERIC" value="Site_ID,Priority,mkt_val,loan_amount,mort_bal,grs_mth_inc">
					<input type="hidden" name="txtaction" value="save">
					<input type="hidden" name="leadGUID" value="<%=sleadGUID%>">
					<input type="hidden" name="IPAddress" value="<%=Request.ServerVariables("REMOTE_ADDR")%>">
					<input type="hidden" name="TrackingCode" value="<%=sSiteName%>">
					<input type="hidden" name="Site_ID" value="<%=GetValue("Site_ID", sSiteID)%>">
					<input type="hidden" name="loan_property_code" value="A">
					<input type="hidden" name="HeaderFile" value="<%=sHeaderFile%>">
					<input type="hidden" name="FooterFile" value="<%=sFooterFile%>">
					<input type="hidden" name="Adwords" value="<%=GetValue("Adwords",bAdwords)%>">
					<input id="leadid_token" name="leadid_token" type="hidden" value=""/>
					<% If nPriority <> "" Then %>
					<input type="hidden" name="Priority" value="<%=nPriority%>">
					<% Else %>
					<input type="hidden" name="Priority" value="1">
					<% End If %>
				
					<div id="Step1" style="display:<%=IIF(Not bWasError, "block", "none")%>">
					    <div id="Step1Inner">
					        <div align="center"><div class="midtitles">Loan Type:</div>
                            <select class="tform" id="loan_purpose_code" name="loan_purpose_code" style="padding-top:2px;margin-bottom:10px;font-size:18px;line-height:30px;width: 246px;height:30px;color:#3C3C3C;background-color:#FFFFFF;border-color:#999999;<%=IIF(WasError("loan_purpose_code"), "border-color:#FF0000;", "")%>">
								<option value="">Select One-----------&gt;</option>
							  	<option value="H" <%=IIF(GetValue("loan_purpose_code","") = "H", "SELECTED", "")%>>Home Purchase</option>
								<option value="B" <%=IIF(GetValue("loan_purpose_code","") = "B", "SELECTED", "")%>>Refinance</option>
							</select>
                            <br />

								<div class="midtitles">State:</div>
                            	<select class="tform" name="state" id="State" style="padding-top:2px;margin-bottom:10px;font-size:18px;line-height:30px;width: 246px;height:30px;color:#3C3C3C;background-color:#FFFFFF;border-color:#999999;<%=IIF(WasError("state"), "border-color:#FF0000;", "")%>">
									<option value="">Select One-----------&gt;</option>
									<% If isArray(aStates) Then %>
											<% For i = 0 to uBound(aStates,2) %>
											<option value="<%=aStates(1,i)%>" <%=IIF(GetValue("state","") = aStates(1,i), "SELECTED", "")%>><%=aStates(0,i)%></option>
										<% Next %>
									<%End If %>
								</select>
                        	</div>
						</div>
                        <div style="width:432px;margin: 40px auto;clear:both;"><img src="/lib/newform/images/continue.png" onclick="Step2();"></div>
					</div>
					<div id="Step2" align="center">
						<p class="midtitles" align="center">What's Your Credit Grade?</p>
						<div id="Step2Inner">
							<div style="margin-top: 20px;" align="center">
								<select class="tform" id="credit_code" name="credit_code" style="padding-top:2px;margin-bottom:10px;font-size:18px;line-height:30px;width: 246px;height:30px;color:#3C3C3C;background-color:#FFFFFF;border-color:#999999;<%=IIF(WasError("credit_code"), "border-color:#FF0000;", "")%>">
                                	<option value="">Select One-----------&gt;</option>
                                    <option value="A">Excellent (700+)</option>
                                    <option value="B" SELECTED>Good (620-700)</option>
                                    <option value="C">Fair (580-620)</option>
                                    <option value="D">Poor (580-)</option>
                                </select>
                                
								<div class="clear"></div>
							</div>
						</div>
                        <div style="margin:20px auto;" class="midtitles" style="font-size:14px;">
<a href="http://www.bhmediatrack.com/9W598/76KDZW/?source_id=&sub1=&sub2=&sub3=" target="_blank">Don't know your credit grade? Click Here To Get Your Free Credit Score!</a></div>
                            <div style="width:300px;margin:20px auto;"><img src="/lib/newform/images/continue.png" onclick="Step3();"></div>
                            <div><img src="/lib/newform/images/back_white.png" onclick="Back2();"/></div>
						</div>
					</div>
					<div id="Step3">
						<div id="Step3Inner" align="center">
							<div style="margin-top: 20px;" align="center">
								<div class="midtitles" id="MktValTitle">Purchase Price of Home<br /><span style="color: #000099;">Select Closest Value</span></div>
								
								<select name="mkt_val" class="tform" id="mkt_val" style="padding-top:2px;margin-bottom:10px;font-size:18px;line-height:30px;width: 246px;height:30px;color:#3C3C3C;background-color:#FFFFFF;border-color:#999999;<%=IIF(WasError("mkt_val"), "border-color:#FF0000;", "")%>">
									<option value="100000">1st Time Buyer</option>
			                		<%i = 100000%>
									<% While I < 2000000 %>
										<option value="<%=i%>" <%=IIF(GetValue("mkt_val","200000") = cStr(i) , "SELECTED", "")%>><%=replace(replace(formatcurrency(i,0),"$",""),".00","")%> - <%=replace(replace(formatcurrency(i+5000,0),"$",""),".00","")%></option>
										<%i = i + 10000%>
									<% Wend %>
									<option value="2000000" <%=IIF(GetValue("mkt_val","") = "2000000" , "SELECTED", "")%>>Over 2,000,000</option>
								</select>
								<br />
								<div id="mort_bal_div">
									<div class="midtitles">Mortgage Balance:</div>
									<select class="tform" name="mort_bal" id="mort_bal" style="padding-top:2px;margin-bottom:10px;font-size:18px;line-height:30px;width: 246px;height:30px;color:#3C3C3C;background-color:#FFFFFF;border-color:#999999;<%=IIF(WasError("mort_bal"), "border-color:#FF0000;", "")%>">
										<option value="">Select One-----------&gt;</option>
										<%i = 20000%>
										<% While I < 1500000 %>
											<option value="<%=i%>" <%=IIF(GetValue("mort_bal","") = cStr(i), "SELECTED","")%>><%=replace(replace(formatcurrency(i,0),"$",""),".00","")%> - <%=replace(replace(formatcurrency(i+10000,0),"$",""),".00","")%></option>
											<%i = i + 10000%>
										<% Wend %>
										<option value="1500000">Over 1,500,000</option>
									</select>
								</div>
							</div>
						</div>
						<div style="width:300px;margin:20px auto;"><img src="/lib/newform/images/continue.png" onclick="Step4();"></div>
					    <div style="margin-top:20px;"><img src="/lib/newform/images/back_white.png" onclick="Back3();"/></div>
					</div>
					<div id="Step4" style="display:<%=IIF(Not bWasError, "none", "block")%>">
						<p class="midtitles">Last Step<br/><span style="color: #000099;">Get Matched with Lenders - Free Quote</span></p>
						<div id="Step4Inner">
							<div class="inputleft"><input type="text" class="field" placeholder="First Name" name="first_name" id="first_name" value="<%=GetValue("first_name","")%>" style="<%=IIF(WasError("first_name"), "border-color:#FF0000;", "")%>"></div>
							<div class="inputright"><input type="text" class="field" placeholder="Last Name" name="last_name" id="last_name" value="<%=GetValue("last_name","")%>" style="<%=IIF(WasError("last_name"), "border-color:#FF0000;", "")%>"></div>
							<div class="inputleft"><input type="text" class="field" placeholder="Address" name="address1" id="address1" value="<%=GetValue("address1","")%>" style="<%=IIF(WasError("address1"), "border-color:#FF0000;", "")%>"></div>
							<div class="inputright"><input type="text" class="field" placeholder="City" name="city" id="city" value="<%=GetValue("city","")%>" style="<%=IIF(WasError("city"), "border-color:#FF0000;", "")%>"></div>
							<div class="inputleft"><input type="text" class="field" placeholder="Zip" name="zip" id="zip" onKeyUp="numbersOnly(this);" maxlength="5" value="<%=GetValue("zip","")%>" style="<%=IIF(WasError("zip"), "border-color:#FF0000;", "")%>"></div>
							<div class="inputphoneright">
								<input type="text" maxlength="3" placeholder="" name="HPhone1" id="HPhone1" onKeyUp="numbersOnly(this);PhoneMove(3,'HPhone1','HPhone2');" value="<%=GetValue("HPhone1","")%>" style="<%=IIF(WasError("HPhone1"), "border-color:#FF0000;", "")%>">
								<input type="text" maxlength="3" placeholder="" name="HPhone2" id="HPhone2" onKeyUp="numbersOnly(this);PhoneMove(3,'HPhone2','HPhone3');" value="<%=GetValue("HPhone2","")%>" style="<%=IIF(WasError("HPhone2"), "border-color:#FF0000;", "")%>">
								<input type="text" maxlength="4" placeholder="Phone" name="HPhone3" id="HPhone3" onKeyUp="numbersOnly(this);PhoneMove(4,'HPhone3','Email');" value="<%=GetValue("HPhone3","")%>" style="<%=IIF(WasError("HPhone3"), "border-color:#FF0000;", "")%>">
							</div>
							<div class="inputleft"><input type="text" class="field" placeholder="Email" name="Email" id="Email" value="<%=GetValue("Email","")%>" style="<%=IIF(WasError("Email"), "border-color:#FF0000;", "")%>"></div>
							<div class="inputphoneright">
								<input type="text" maxlength="3" placeholder="" name="WPhone1" id="WPhone1" onKeyUp="numbersOnly(this);PhoneMove(3,'WPhone1','WPhone2');" value="<%=GetValue("HPhone1","")%>" style="<%=IIF(WasError("WPhone1"), "border-color:#FF0000;", "")%>">
								<input type="text" maxlength="3" placeholder="" name="WPhone2" id="WPhone2" onKeyUp="numbersOnly(this);PhoneMove(3,'WPhone2','WPhone3');" value="<%=GetValue("WPhone2","")%>" style="<%=IIF(WasError("WPhone2"), "border-color:#FF0000;", "")%>">
								<input type="text" maxlength="4" placeholder="Alt Phone (optional)" name="WPhone3" id="WPhone3" onKeyUp="numbersOnly(this);" value="<%=GetValue("WPhone3","")%>" style="<%=IIF(WasError("WPhone3"), "border-color:#FF0000;", "")%>">
							</div>
							<div class="clear"></div>
                            <p class="midtitles">Monthly Income (Total for Household)<br>
                            <select style="<%=IIF(WasError("grs_mth_inc"), "border-color:#FF0000;", "")%>" name="grs_mth_inc" placeholder="Monthly Income" id="grs_mth_inc" class="field">
                                <option value="">- Please Select One -</option>
								<option value="1000">Less than $1000</option>
								<option value="1500">$1500</option>
								<option value="2000">$2000</option>
								<option value="2500">$2500</option>
								<option value="3000">$3000</option>
								<option value="3500">$3500</option>
								<option value="4000">$4000</option>
								<option value="4500">$4000 - $5000</option>
								<option value="5500">$5000 - $6000</option>
								<option value="6500">$6000 - $7000</option>
								<option value="7500">$7000 - $8000</option>
								<option value="8500">$8000 - $9000</option>
								<option value="9500">$9000 - $10000</option>
								<option value="10000">over $10000</option>
                            </select>                                 
						</div>
						<div style="background-color: white;padding: 4px; font-size: .7em;width: 48%;border-radius: 5px;text-align:center;">We will contact you with a confirmation email shortly</div>
						<!--<div style="width:432px;margin:20px auto;"><img src="/lib/newform/images/continue.png" onclick="Step5();"></div>-->
						<div style="width:432px;margin:20px auto;"><input type="image" name="submit" src="/lib/newform/images/continue.png"></div>
					    <div style="margin-top:20px;"><img src="/lib/newform/images/back_white.png" onclick="Back4();"/></div>
					</div>
					</form>
				</div>
			</div>
		</div>
	</div>
</div>






<!-- END APP -->

<script>
	function SetMkyValTitle() {
		if($("#loan_purpose_code").val()=="H") {
			$("#MktValTitle").html("Purchase Price of Home");
			$("#mort_bal_div").hide();
		} else {
			$("#MktValTitle").html("Estimated Home Value");
			$("#mort_bal_div").show();
		}
	}
	
	function Step2() {
		SetMkyValTitle();
		if($("#loan_purpose_code").val()=="") { alert("Please choose a loan type."); return false; }
		if($("#State").val()=="") { alert("Please enter your state."); return false; }
		$("#Step1").slideUp(400, function(){
			$("#Step2").slideDown(400, function(){
				$("#progress span:first-child").animate({width: "25%"},400, function(){
					$("#progress span span").html("25%");
				});
			});
		});
	}
	
	function Step3() {
		if($("#credit_code").val()!="") {
			$("#Step2").slideUp(400, function(){
				$("#Step3").slideDown(400, function(){
					$("#progress span:first-child").animate({width: "50%"},400, function(){
						$("#progress span span").html("50%");
					});
				});
			});
		} else {
			alert("Please estimate your credit rating.");
			return false;
		}
	}
	
	function Step4() {
		if($("#loan_purpose_code").val()!="H" && $("#mort_bal").val()=="") {
			alert("Please enter the mortgage balance of your home.");
			return false;
		}
		if($("#mkt_val").val()!="") {
			$("#Step3").slideUp(400, function(){
				$("#Step4").slideDown(400, function(){
					$("#progress span:first-child").animate({width: "75%"},400, function(){
						$("#progress span span").html("75%");
					});
				});
			});
		} else {
			alert("Please enter the value of your home.");
			return false;
		}
	}
	
	function Step5() {
		if($("#first_name").val()=="") { alert("Please enter your first name."); return false; }
		if($("#last_name").val()=="") { alert("Please enter your last name."); return false; }
		if($("#address1").val()=="") { alert("Please enter your address."); return false; }
		if($("#city").val()=="") { alert("Please enter your city."); return false; }
		if($("#zip").val()=="") { alert("Please enter your first zip."); return false; }
		if($("#HPhone1").val()=="" || $("#HPhone2").val()=="" || $("#HPhone3").val()=="") { alert("Please enter phone number."); return false; }
		if($("#email").val()=="") { alert("Please enter your email address."); return false; }
		if($("#grs_mth_inc").val()=="") { alert("Please enter your Monthly Income."); return false; }
		$("#Step4").slideUp(400, function(){
			//$("#Step5").slideDown(400, function(){
				$("#progress span:first-child").animate({width: "100%"},400, function(){
					$("#progress span span").html("100%");
					return true;
					//$("#form1").submit();
				});
			//});
		});
	}
	
	function PurposeChecked(sNewValue) {
		$("#PurposeChecked_H").attr("src","/lib/newform/images/radioNotChejed.png");
		$("#PurposeChecked_B").attr("src","/lib/newform/images/radioNotChejed.png");
		$("#PurposeChecked_"+sNewValue).attr("src","/lib/newform/images/radioChecked.png");
		$("#loan_purpose_code").val(sNewValue);
	}
	
	function CreditChecked(sNewValue) {
		$("#CreditChecked_A").attr("src","/lib/newform/images/radioNotChejed.png");
		$("#CreditChecked_B").attr("src","/lib/newform/images/radioNotChejed.png");
		$("#CreditChecked_C").attr("src","/lib/newform/images/radioNotChejed.png");
		$("#CreditChecked_D").attr("src","/lib/newform/images/radioNotChejed.png");
		$("#CreditChecked_"+sNewValue).attr("src","/lib/newform/images/radioChecked.png");
		$("#credit_code").val(sNewValue);
	}

	function PhoneMove(nLength, sMoveFrom, sMoveTo) {
		if (document.form1[sMoveFrom].value.length >= nLength) {
			document.form1[sMoveTo].focus();
		}
	}
	
	function numbersOnly(el) {
		el.value = el.value.replace(/[^0-9]/g, "");
	}
	
	function Back2() {
		$("#Step2").slideUp(400, function(){
			$("#Step1").slideDown(400, function(){
				$("#progress span:first-child").animate({width: "0%"},400, function(){
					$("#progress span span").html("0%");
				});
			});
		});
	}

	function Back3() {
		$("#Step3").slideUp(400, function(){
			$("#Step2").slideDown(400, function(){
				$("#progress span:first-child").animate({width: "25%"},400, function(){
					$("#progress span span").html("25%");
				});
			});
		});
	}
	
	function Back4() {
		$("#Step4").slideUp(400, function(){
			$("#Step3").slideDown(400, function(){
				$("#progress span:first-child").animate({width: "50%"},400, function(){
					$("#progress span span").html("50%");
				});
			});
		});
	}
	
</script>
<!-- #include virtual="/lib/leadid.asp" -->
<%
If sFooter<>"" Then
	response.write(sFooter)
Else
%><!--
</body>
</html>-->
<%End If%>