<% Dim oConn Set oConn = Postcard_GetDatabaseConn() %> Holly Weber
<% Set oRS = oConn.Execute( "select fldAuto, name from " & Postcard_GetTablePrefix() & "cat" ) While Not oRS.EOF %> <% If Not oRS.EOF Then oRS.MoveNext End If Wend oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing %>
Welcome to the E-Card distribution center!
Feel free to view an existing e-card or create new e-cards to send to your friends.

Send an E-card
We currently have <%=PostCard_GetCardCount(oConn)%> E-cards available in <%=PostCard_GetCatCount(oConn)%> categories.
Please click on a category below to view a selection of e-cards.

"><%=oRS("name")%> <% oRS.MoveNext If Not oRS.EOF Then %> "><%=oRS("name")%> <%End If %>

Pick up an E-card
E-card ID: