<%@ LANGUAGE= VBScript %> <% response.expires = 0 response.expiresabsolute = Now() - 1 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" Response.CacheControl = "no-cache" If request.form("signup")="Sign Up!" AND request.form("newsemail") <> "" Then Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = mConn strQ = "SELECT * FROM newslet WHERE nlemail='" & request.form("newsemail") & "'" objRS.open strQ If objRS.EOF then insSQL = "INSERT INTO newslet (nlemail) VALUES ('" & request.form("newsemail") & "')" mConn.execute insSQL End If End If %> Treasures from the Heart Link Page
 
<% Set objRSw = Server.CreateObject("ADODB.Recordset") Set objRSw.ActiveConnection = mConn strQ = "SELECT acctwelcome FROM acctinfo" objRSw.open strQ %> <% objRSw.close Set objRSw = nothing %> <% Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = mConn strQ = "SELECT TOP 6* FROM prodcat WHERE disphome='1' AND active='1' ORDER BY prodname ASC" objRS.open strQ If not objRS.EOF then i = 1 do until objRS.EOF if (i-1) mod 2 = 0 then response.write "" & VBCrLF end if response.write "" & VBCrLF if (i) mod 2 = 0 then response.write "" & VBCrLF end if i = i+1 objRS.movenext response.flush loop end if objRS.close Set objRS = nothing %>
 

<%= objRSw("acctwelcome")%>
" if objRS("image")<>"" then response.write "" & objRS("prodname") & "" else response.write "" end if response.write "" & objRS("prodname") & "" response.write "

" response.write objRS("prodshdesc") response.write "

" response.write "Price as shown: $" & FormatNumber(objRS("prodretprice"),2) response.write "

" If objRS("grpprod") = "1" then response.write "more..." Else response.write "more..." End If response.write "

Treasures from the Heart

To become our link partner please send your website URL, a brief description and the URL address of the page where our link reciprocates on your site to: links2@mainstreethost.com

Corporate Gifts

Beaded Daisy
Medical Alert Gifts. Bracelets,

Corporate Gifts Company
Our Clients Are Our Most Valuable Asset

DandD Creation
Gift Baskets for sale

Great Gift Basket
Great Gift Baskets Calgary, is a custom design basket house.

SA Promos
Gift site has been designed for anyone who wants to show there appreciation to a friend, loved one, employee, partner, special customer

The Pub Shoppe
BAR DECOR FOR YOUR HOME BAR  PUB OR GAME ROOM

 

Weddings

Action Tents
We at Action Tents offer a large collection of pole tents, frame tents, chairs, tables,  linens and dance floors for most any occassion

ADF Wedding
Weddign Resource.

Allen Wedding Co.
At Allen Wedding Company, all planning and preparations will be provided for your perfect wedding by our professional and caring staff

Barefoot Wedding
What better personifies a wedding in paradise than a barefoot wedding on the beach at sunset?

Big Ten Rentals
Iowa party and wedding rentals

Brides Bouquet
Are you looking for the perfect wedding gown? Do you need a fabulous prom gown or formal dress?

Bridals By Duckys
Tuxedo Rental.

Bridesmaid Express
Bridesmaid dresses and wedding gowns with fast delivery services.

Chilbert & Co.
Formalwear and More Since 1980

Davids Formal Wear
Dress clothes.

Invitations by Karina
Invitations by Karina has been helping brides with one of the most important parts of their wedding planning since 1999

It's A Shore Thing
Wedding & Event Planning

Norman's Formal Wear
Norman's staff takes pride in paying attention to detail & meeting the needs of each individual no matter what size they may be

The Tuxedo Shop
The Tuxedo Shop at Sullivan Brothers provides formal wear, tuxedo and suit rentals for various occasions such as weddings and proms.

Tux Gear
TUXGEAR is your number one online store to shop for Wedding Tuxedos

United Doves
Make all occasions more memorable!

Wedding Favors Online
Our Mission is To provide each bride and groom with a wedding favor that will make a lasting impression on all their guests.

Weddings in the Bahamas
In The Bahamas to put together wedding packages for the Caribbean, Nassau Bahamas

 

Other

AA Town Car Service
Welcome to the website for Tampa Airport Limousine Company

Amherst Closets
Custom Closets

Big World Design
Has over 25 years experience dedicated to graphic design

IDC
Flyer Box Info Center provides real estate sign frames

Johnson's Piano Moving
We have moved pianos in and out of the White House, the Vice President's Mansion, the State
               Department, and most hotels in the Washington, D.C.  area.

Masterworks Lighting
Lighting Design by Masterworks Lighting Designers

Piano Storage
Our new state-of-the-art storage and restoration facility is now open for business! 

Psyence Solutions
Psyence Marketing is a Domain Name Marketing Company and Strategic Marketing Solution Company, Specializing in Business Solutions and Domain Name Solutions For online businesses.

S + R Event Rental
S+R Event Rental offering Michigan Party Rental

White Ghost Charters
Rhode Island fly fishing and light tackle sportfishing on the beautiful Narragansett Bay in RI

Winners Camp
Providing Cutting-Edge Leadership Trainings for Teens, their Families and Teachers; to awaken Teenagers to their highest personal, and community potential

 

 

 <% 'Special Affiliates Set objRSa = Server.CreateObject("ADODB.Recordset") Set objRSa.ActiveConnection = mConn strQ = "SELECT * FROM affiliatescom WHERE comaffactive='Y' ORDER BY comafforder" objRSa.open strQ While NOT objRSa.EOF %> <% response.flush objRSa.MoveNext wend objRSa.close Set objRSa = nothing 'Plain vanilla affiliates Set objRSa = Server.CreateObject("ADODB.Recordset") Set objRSa.ActiveConnection = mConn strQ = "SELECT * FROM affiliates" objRSa.open strQ While NOT objRSa.EOF If objRSa("afflogo")<>"" then %> <%else%> <% end if response.flush objRSa.MoveNext wend objRSa.close Set objRSa = nothing mconn.close Set mConn = nothing %>