code:

---

Break On

$ID = 'name'

$PW = 'pwd'


$URL = "https://169.218.223.124/script/lb_login.asp"

$IE = CreateObject("InternetExplorer.Application")

$IE.Visible = 1

$IE.Navigate($URL)

While $IE.Busy and $IE.ReadyState <> 4 and @ERROR = 0 Loop

$IE.Document.getelementbyid("custid").Value = $ID

$IE.Document.getelementbyid("pw").Value = $PW

$IE.Document.lblogin.posting.value = 1

$IE.Document.lblogin.Submit()


Exit 0  

---

Now, on to stage two...

code:

---

 Break On

$ID = 'name'

$PW = 'pwd'

do
 ?'Enter 30 Year Fixed Conforming Rate>' gets $rte44
   until $rte44   
do
 ?'Enter 30 Year Fixed Conforming Points>' gets $pts44
   until $pts44
do
 ?'Enter 30 Year Fixed Conforming APR (Enter X to auto calculate)>' gets $apr44
   until $apr44
do
 ?'Enter 30 Year Fixed Conforming lock>' gets $lck44
   until $lck44
   
if $apr44 = 'x'
   $apr44 = ''
else 
  $apr44=formatnumber($apr44,3)
endif


$rte44=formatnumber($rte44,3)
$pts44=formatnumber($pts44,3)

:time
 do
 ?'Please enter the update frequency for today (5,10,15)>' gets $sleep
  until $sleep

if $sleep <> 5
  if $sleep <> 10
    if $sleep <> 15
 ?'Updates can only be preformed at 5, 10, or 15 min intervals please re-enter!'
  goto time
endif

:again



$URL = "https://169.218.223.168/script/lb_login.asp"

$IE = CreateObject("InternetExplorer.Application")

$IE.Visible = 1

$IE.Navigate($URL)

While $IE.Busy and $IE.ReadyState <> 4 and @ERROR = 0 Loop

$IE.Document.getelementbyid("custid").Value = $ID

$IE.Document.getelementbyid("pw").Value = $PW

$IE.Document.lblogin.posting.value = 1

$IE.Document.lblogin.Submit()

$IE.Document.getelementbyid("4004rate").Value = "$rte44"
$IE.Document.getelementbyid("4004points").Value = "$Pts44"
$IE.Document.getelementbyid("4004apr").Value = "$apr44"
$IE.Document.getelementbyid("4004lock").Value = "$lck44"

$IE.document.fixrates.posting.value = 1
$IE.document.fixrates.submit()

sleep 2

$url2='https://169.218.223.168/script/adjrates.asp'


$IE.Navigate($URL2)

$val = 2

sleep 2

$IE.Document.getelementbyid(4006index)."option value" = $val;dropdown box

$IE.document.adjrates.posting.value = 1
$IE.document.adjrates.submit()

if $sleep=5
 sleep 300
endif
if $sleep=10
 sleep 600
endif
if $sleep=15
  sleep 900
endif

call var_rate.kix

if @TIME <> '4:*:*'
   goto again
 endif

Exit 0

---

code:

---

 $IE.Document.getelementbyid(4006index).option = $val
$IE.Document.getelementbyid(4006index).value = $val 

---

code:

---

 <td width="86"> 
                    <select name="4006index" size="1" onBlur="onBlur_Checkvalue(this,8)">
                    
							<option value="1" selected	>1Yr TBill</option>
                     
							<option value="2" 	>3Yr TBill</option>
                     
							<option value="3" 	>COFI</option>
                     
							<option value="4" 	>LIBOR</option>
                     
							<option value="5" 	>Other</option>
                     
                    </select>
                  </td> 

---

code:

---

$IE.Document.getelementbyid("4006index").value = $val  

---

code:

---

 ;Set User Id and Password
$ID = 'name'

$PW = 'pwd'
$cnrfm7 ='z'

while $cnfrm7 = 'z'
;Get Values for to update on the fixed rate page
do
 ?'Enter 30 Year Fixed Conforming Rate>' gets $rte44
   until $rte44   
do
 ?'Enter 30 Year Fixed Conforming Points>' gets $pts44
   until $pts44
do
 ?'Enter 30 Year Fixed Conforming APR (Enter X to auto calculate) >' gets $apr44
   until $apr44
do
 ?'Enter 30 Year Fixed Conforming lock>' gets $lck44
   until $lck44
; Format the numeric values to 3 decimal places.  For the 'apr' variables
; this will change an 'x' entry to null for auto calculation by the webpage
if $apr44 = 'x'
   $apr44 = ''
else 
  $apr44=formatnumber($apr44,3)
 endif

$rte44=formatnumber($rte44,3)
$pts44=formatnumber($pts44,3)


do 
 ?'You have entered:'
 ?'       30 Year Fixed Conforming Rate   = $rte44'
 ?'       30 Year Fixed Conforming Points = $pts44'
 ?'       30 Year Fixed Conforming APR    = $apr44'
 ?'       30 Year Fixed Conforming Lock   = $lck44'
 ?'Are these values correct? (Y/N) >' gets $cnfrm7
  until $cnfrm7
;Loop until either a "y" or a "n" is entered  
while $cnfrm7 <> 'Y' and $cnfrm7 <> 'N'
  do 
   ?'Please enter Y or N>' gets $cnfrm7 
   until $cnfrm7
    loop
loop
 

$URL = "https://www.the_site.com/script/lb_login.asp"

$IE = CreateObject("InternetExplorer.Application")

$IE.Visible = 1

$IE.Navigate($URL)

sleep 1
sendkeys('y') ;clears the certificate warning popup window

While $IE.Busy and $IE.ReadyState <> 4 and @ERROR = 0 Loop

$IE.Document.getelementbyid("custid").Value = $ID
$IE.Document.getelementbyid("pw").Value = $PW

$IE.Document.lblogin.posting.value = 1
$IE.Document.lblogin.Submit()

;Enters the loan information to each applicable field on the fixedrates.asp page

$IE.Document.getelementbyid("4004rate").Value = "$rte44"
$IE.Document.getelementbyid("4004points").Value = "$pts44"
;$IE.Document.getelementbyid("4004apr").Value = "$apr44"
$IE.Document.getelementbyid("4004lock").Value = "$lck44"

$date = @date


while @date = $date
sleep 900 
; Saves the updated values for the happy.asp page

;This is the part that isn't working

$IE.document.fixrates.posting.value = 1
$IE.document.fixrates.submit()
loop 

---

code:

---

 <script>
	<!--
	function login_onclick() 
	{
		// Validations
        if ( isNaN(document.lblogin.custid.value))
        {
			alert( "Please enter a valid ID" );
			document.lblogin.custid.focus();		
			return;        
        }

		if ( document.lblogin.custid.value=="" )
		{
			alert( "Please enter ID" );
			document.lblogin.custid.focus();		
			return;
		}
		if ( document.lblogin.pw.value=="" )
		{
			alert( "Please enter Password" );
			document.lblogin.pw.focus();
			return;
		}
		// all is well
		document.lblogin.posting.value = 1
		document.lblogin.submit();
		return;
	}
	//-->
	</script> 

---

code:

---

 <script>
<!--
function save_onclick() 
{
	//	NOTE:	many lines commented out are a stub for the
	//			allowance of negative points in the future.
	var numvals="0123456789.";
	//var tempnumvals = numvals;
	var dcnt;
	//var negs;
	var temp;
	var e;
	var i,j,k;
	var ispoints = false;
	
	// Validations - make sure all inputs are numeric
	for ( i=0; i < document.fixrates.length ; i++ )
	{
		dcnt = 0;
		negs = 0;
		e = document.fixrates.elements[i];
		if ( e.type == "text" )
		{
			// if field is points add "-" as a valid value
			/*if (e.name.match("points"))
			{
				numvals += "-";
				ispoints = true;
			}   */
			
			for ( j=0; j < e.value.length; j++)
			{
				temp=e.value.substring(j,j+1)
				if ( temp == "." ) dcnt++;
				
				/*if (ispoints == true)
				{
					if ( temp == "-" ) 
					{
						negs ++;
					
						if (e.value.indexOf(temp) > 0)
						{
							alert ("Please enter a valid number." );
							field.focus();
							return;
						}
					}
					
				}  */
				//if ( ( numvals.indexOf(temp)==-1) || ( dcnt > 1 ) || ( negs > 1) )
				if ( ( numvals.indexOf(temp)==-1) || ( dcnt > 1 ))
				{
					alert( "Please enter a valid number." )
					e.focus();
					return;
				}												
			}

			if ( isNaN( parseFloat( e.value ) ) )
			{
				alert( "Please enter a valid number." );
				e.focus();
				return;
			}
			// ispoints and okay value - revert numvals to prior state	
			//numvals = tempnumvals;				
		}
	}
//This, jacks73 has determined, is the part I need help on
	
	document.fixrates.posting.value = 1;
	for (x=5; x<document.fixrates.length -4; x=x+ 7)
		{

	document.fixrates.elements[x].disabled=false;
		}
	document.fixrates.submit();
	return;
} 

---

code:

---

 ; Saves the updated values for the fixedrates.asp page
$IE.document.fixrates.posting.value = 1
? @error @serror
$IE.document.fixrates("javascript:save_onclick").click()
? @error @serror

---