connStr = "DSN=aspmdb;Database=\\iis-ad-2\aspsamba\patchmate_com_au.mdb;UID=aspmdb;PWD=aspmdb123"
'Create the Connection Object
Set db = Server.CreateObject("ADODB.Connection")
db.ConnectionTimeout = 30
db.CommandTimeout = 30
'Open the Connection object
sql = "Select * from Testimonials"
rs7.open sql, db
' Set rs7 = dbConn.Execute(sql)
if Err <> 0 then
response.write "Error getting testimonials"
if (rs7.EOF) then
Do while Not rs7.EOF
for each field in rs7.fields
if (field.name="Testimonial") then
Testimonial = field.value
if (field.name="Author") then
Author = field.value
""& Testimonial &""
"& Author &"
end if 'rs7
You have invented the most fantastic product. My little girl,
Grace, is now three and bit, she has been wearing glasses since
she was 14 months old. She has been patching 3 days a weeks since
2 years old and finally had an operation in August of this year
. I know exactly what you have been going through with the
patching, the tears, the irritation that Grace would get in summer
was dreadful and having to take the patch off every night was
also a nightmare. "
in the testimonial letter)..."I have also taken the liberty
to show this to my local optometrist from where I purchase my
daughters glasses; they too agreed it was a fantastic product.
I have been meaning to write for a while and just haven't had
a chance to get around to it. I just wanted to say thank you for
the patchmate. It is so convenient and easy to use. My eldest
twin suffered through the 3M medical tape on his eye for a period
of 6 months. With the youngest twin, who's eye condition was diagnosed
later, my Opthamologist gave us your pamphlet. Patching has been
a non-traumatic experience this time around with the Patchmate
and it is a product I would most certainly recommend to others.