Untitled Document

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_cusb Dim rs_cusb_numRows Set rs_cusb = Server.CreateObject("ADODB.Recordset") rs_cusb.ActiveConnection = MM_ds_cusb_STRING rs_cusb.Source = "SELECT * FROM content" rs_cusb.CursorType = 0 rs_cusb.CursorLocation = 2 rs_cusb.LockType = 1 rs_cusb.Open() rs_cusb_numRows = 0 %> Untitled Document

<% datToday = Date() intThisYear = Year(datToday) intThisMonth = Month(datToday) intThisDay = Day (datToday) strMonthName = MonthName(intThisMonth) strWeekDayName = WeekDayName(WeekDay(datToday)) %> <% If strWeekDayName = "Monday" Then %> <% elseif strWeekDayName = "Tuesday" Then %> <% elseif strWeekDayName = "Wednesday" Then %> <% elseif strWeekDayName = "Thursday" Then %> <% elseif strWeekDayName = "Friday" Then %> <% elseif strWeekDayName = "Saturday" Then %> <% elseif strWeekDayName = "Sunday" Then %> <% end if %> <% = strWeekDayName %> , <% = strMonthName %> <% = intThisDay %> , <% = intThisYear %>

Home | About Us | Contact Us

Online Banking

View Demo | Sign Up

Cash Management Demo

Financial Tools

Financial Calculator
Currency Convertor

Other Services

Moving to the Area?

Credit Card Payments Online

Your browser does not support JavaScript.

Please enable JavaScript or click calculators to use the html calculators.

This financial calculator suite and it's amortization schedule(s) are licensed for use from TimeValue Software.

website tracker

C US Bank 2007

<% rs_cusb.Close() Set rs_cusb = Nothing %>