<%@ LANGUAGE="VBSCRIPT" %> Family Care Group - Send a Get Well Card

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

HOME

SERVICES

HFC TEAM

ONLINE APPOINTMENTS

SEND A GET WELL CARD

WEIGHT MANAGEMENT

WEIGHT LOSS Rx UPDATES

ENDERMOLOGIE
CELLULITE TREATMENT
AND FACIALS

MICRODERMABRASION
PARTICLE SKIN
RESURFACING

LINKS

 

It's easy to Send a Greeting:

  1. Enter the Recipient's Email in the box provided.
  2. Type your Personal Message in the box below.
  3. Preview the cards below - Choose your art - double click on the image to see a larger version - and choose your Greeting, too.
  4. You can "Preview Finished Greeting" or select the Send Button.
  5. YOUR GET WELL GREETING WILL BE EMAILED TO THE RECIPIENT!

Recipient's Email:
">

Message:

<% 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 = "`CardImages`" cmdTemp.CommandType = 2 Set cmdTemp.ActiveConnection = DataConn DataCommand1.Open cmdTemp, , 0, 1 %> <% I=0 Do while not DataCommand1.EOF %> name="Image" type="radio" value="<%= DataCommand1("CardImage") %>.jpg">.jpg">.gif"> <% I=I+1 If (i mod 3)=0 then response.write "

" DataCommand1.MoveNext Loop %>

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