<%@ LANGUAGE="VBSCRIPT" %> Family Care Group Services - Online Appointments

2304 Hurstbourne Village Dr
Suite 500
Louisville, Kentucky 40299
(502) 583-3189
Fax: (502) 581-1463
fcg@familycaregroup.com

HOME

SERVICES

FCG TEAM

ONLINE APPOINTMENTS

SEND A GET WELL CARD

WEIGHT MANAGEMENT

WEIGHT LOSS Rx UPDATES

ENDERMOLOGIE®
CELLULITE TREATMENT
AND FACIALS

MICRODERMABRASION
PARTICLE SKIN
RESURFACING

LINKS

 

Online Appointments

If you wish to make an appointment for today, please call the office at (502) 583-3189, or come in during walk in hours.

Available appointments are highlighted in Green. Click on the AM or PM time slot on the specific day/date you prefer for your appointment.

<% Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Session("DataConn_CommandTimeout") DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set DataCommand1 = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT Calendar.* FROM Calendar ORDER BY `Start Date`" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn DataCommand1.Open cmdTemp, , 0, 1 %> <% function mo(m) select case m case 1 mo="January" case 2 mo="February" case 3 mo="March" case 4 mo="April" case 5 mo="May" case 6 mo="June" case 7 mo="July" case 8 mo="August" case 9 mo="September" case 10 mo="October" case 11 mo="November" case 12 mo="December" end select end function function DaysInMonth(m,y) 'Add one month, subtract dates to find difernece DaysInMonth=DateSerial(y,m+1,1)-DateSerial(y,m,1) end function m=month(date()) y=year(date()) ddc=0 for im=1 to 6 if m=13 then m=1:y=y+1 d=dateserial(y,m,1) dm=DaysInMonth(m,y) wd=weekday(d) dy=1 %>

<% =mo(m) & " " & y %>

<% response.write "" row=1 do while dy<=dm for col=1 to 7 item=false response.write "" next response.write "" row=row+1 loop response.write "
Sunday Monday Tuesday Wednesday Thursday Friday Saturday
" if (col>=wd or row>1) and dy<=dm then response.write "" & dy & "" '------- anything you want to do on this date ---------------------- AM=not(col=3 or col=1) PM=not(col=1 or col=3 or col=7) if ddc=0 then ddc=DataCommand1("Start Date") do while ddc<=d and not DataCommand1.EOF item=false itemd="" if d=ddc then item=true 'Response.Write "
" & DataCommand1("Description") 'Response.Write "" itemd=DataCommand1("Description") if DataCommand1("Off") then AM=0 PM=0 end if Session("AM")=0 Session("PM")=0 if DataCommand1("OffAM") then AM=0 Session("AM")=-1 end if if DataCommand1("OffPM") then PM=0 Session("PM")=-1 end if end if DataCommand1.MoveNext if not DataCommand1.EOF then ddc=DataCommand1("Start Date") loop '------------------------------------------------------------------- dy=dy+1 d=d+1 %>
" align="center"> <% if AM then %> <% end if %> AM
" align="center"> <% if PM then %> <% end if %> PM
<% if item then Response.Write "" & itemd & "" end if response.write "

" m=m+1 next %>

2304 Hurstbourne Village Dr, Suite 500 • Louisville, Kentucky 40299
(502) 583-3189 • Fax: (502) 581-1463 • fcg@adept.net