|
Email - Click on a
name to send email
El Reno Weather
Cayce King - Board
Member
King Electric, P.O. Box 1367,
El Reno, OK 73036;
(405) 262-3446
<%
'*******************************************************
'* ASP 101 Sample Code - http://www.asp101.com *
'* *
'* This code is made available as a service to our *
'* visitors and is provided strictly for the *
'* purpose of illustration. *
'* *
'* Please direct all inquiries to webmaster@asp101.com *
'*******************************************************
%>
<%
' ***Begin Function Declaration***
' New and improved GetDaysInMonth implementation.
' Thanks to Florent Renucci for pointing out that I
' could easily use the same method I used for the
' revised GetWeekdayMonthStartsOn function.
Function GetDaysInMonth(iMonth, iYear)
Dim dTemp
dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))
GetDaysInMonth = Day(dTemp)
End Function
Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
Dim dTemp
dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
GetWeekdayMonthStartsOn = WeekDay(dTemp)
End Function
Function SubtractOneMonth(dDate)
SubtractOneMonth = DateAdd("m", -1, dDate)
End Function
Function AddOneMonth(dDate)
AddOneMonth = DateAdd("m", 1, dDate)
End Function
' ***End Function Declaration***
Dim dDate ' Date we're displaying calendar for
Dim iDIM ' Days In Month
Dim iDOW ' Day Of Week that month starts on
Dim iCurrent ' Variable we use to hold current day of month as we write table
Dim iPosition ' Variable we use to hold current position in table
' Get selected date. There are two ways to do this.
' First check if we were passed a full date in RQS("date").
' If so use it, if not look for seperate variables, putting them togeter into a date.
' Lastly check if the date is valid...if not use today
If IsDate(Request.QueryString("date")) Then
dDate = CDate(Request.QueryString("date"))
Else
If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then
dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year"))
Else
dDate = Date()
' The annoyingly bad solution for those of you running IIS3
If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then
Response.Write "The date you picked was not a valid date. The calendar was set to today's date.
"
End If
' The elegant solution for those of you running IIS4
'If Request.QueryString.Count <> 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today's date.
"
End If
End If
'Now we've got the date. Now get Days in the choosen month and the day of the week it starts on.
iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
iDOW = GetWeekdayMonthStartsOn(dDate)
%> | |
King Electric
El Reno, Oklahoma
73036
Contact Information: Phone 405-262-3446 FAX:
405-354-1094
- Employees can be emailed directly from any page by just clicking on
their name on the left side of the page.
Company Profile
Paul
R. King established King Electric in June of 1977 in order to serve El Reno’s
residential and commercial needs. Over the past 29 years King Electric has
grown from a one-man operation to a thriving company with over sixty
employees-most of whom possess over 15 years experience.
Approximately half our work is design and build. We have experience in design
services, building lighting, and outdoor lighting. Our suppliers aid in the
design and building processes with computerized lighting and switch--gear
layouts.
In
over 90% of our projects, we continue to work for the owner after construction
is complete. Our customers find it easier and less expensive to work with a
maintenance electrician who knows their unique needs.
We are
proud of our reputation for quality work, and have been fortunate to expand our
work area to serve the commercial, industrial, and residential needs of El Reno,
the state of Oklahoma and beyond.
King Electric in El Reno, OK is a family owned electrical contracting
company. Paul R. King owns King Electric and is involved in all of the day
to day activities of the company. Commercial buildings, industrial design
and installation, new construction and remodeling. King Electric uses the
latest bucket and line trucks, back-hoes, track-hoes and trenching equipment.
King Electric L.L.C.
Private Company, Headquarters Location
1507 S Shepard Ave., El Reno OK 73036, United States
(405)262-3446, (405)354-1094 fax, Primary SIC: Electrical Work, Primary NAICS:
Electrical Contractors
Description: Construction: General electrical contractor
- Address
- 1507 South Shepard
P. O. Box 1367
El Reno OK 73036
| PAUL KING
ENTERPRISES LLC |
| 1507 S SHEPARD AVE, EL RENO, OK 73036 |
Phone: 405-262-3446 |
In Business Since: 1977
|
