%
Dim oConn
Set oConn = Postcard_GetDatabaseConn()
%>
Holly Weber
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.
|
<%
Set oRS = oConn.Execute( "select fldAuto, name from " & Postcard_GetTablePrefix() & "cat" )
While Not oRS.EOF
%>
|
"><%=oRS("name")%>
|
<%
oRS.MoveNext
If Not oRS.EOF Then
%>
"><%=oRS("name")%>
<%End If %>
|
<%
If Not oRS.EOF Then
oRS.MoveNext
End If
Wend
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
|
|