<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Product: Greeting Card Pro Version 2.1
' Author: AdComplete.com, LLC
' Date: January 21, 2002
' (c) Copyright 2000-2002 by AdComplete.com, LLC. All rights reserved.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
lngCategoryID=CLng(Request("CategoryID"))
If lngCategoryID <> "" And lngCategoryID <> 0 Then
Set connPostCardSoft=Server.CreateObject("ADODB.Connection")
connPostCardSoft.Open PostCardSoftConnectString
Set rsCard=Server.CreateObject("ADODB.Recordset")
rsCard.CursorLocation = 3
SQLQuery="Select PostCardID,DefaultHeadline,CardDescription,Author,ThumbnailURL,AdvancedCard,ThumbnailHTML From tblGreetingPostCards Where CategoryID=" & Clng(lngCategoryID) & " Order By PostCardID DESC"
rsCard.Open SQLQuery, connPostCardSoft
rsCard.PageSize = 10
intPageCount = rsCard.PageCount
If rsCard.EOF=True Then
Response.Write "No cards found in database for this category."
Response.End
End If
End If
'search feature
If Request("SearchWord") <> "" Then
strWd=Replace(Request("SearchWord"),"'","''")
strSQL="Select PostCardID,DefaultHeadline,CardDescription,Author, "
strSQL=strSQL & " ThumbnailURL,AdvancedCard,ThumbnailHTML From tblGreetingPostCards Where Keywords Like '%" & strWD & "%' OR "
strSQL=strSQL & " DefaultHeadline Like '%" & strWD & "%' OR "
strSQL=strSQL & " CardDescription Like '%" & strWD & "%' OR "
strSQL=strSQL & " Author Like '%" & strWD & "%' OR "
strSQL=strSQL & " DefaultMessage Like '%" & strWD & "%' "
Set connPostCardSoft=Server.CreateObject("ADODB.Connection")
connPostCardSoft.Open PostCardSoftConnectString
Set rsCard=Server.CreateObject("ADODB.Recordset")
rsCard.CursorLocation = 3
rsCard.Open strSQL, connPostCardSoft
rsCard.PageSize = 10
intPageCount = rsCard.PageCount
End If
strAddition="bgcolor=" & Chr(34) & Application("gcp_SearchPageBackgroundColor") & Chr(34)
strCategoryBarFontColor=Application("gcp_SearchPageFontBarColor")
strCategoryBarColor=Application("gcp_SearchPageBarColor")
'Retrieve Category Name
If lngCategoryID <> "" and lngCategoryID <> 0 Then
Set rsCat=connPostCardSoft.Execute("Select * From tblGreetingCategories Where CategoryID=" & Clng(lngCategoryID))
strCat="Cards For Category: " & rsCat("CategoryName")
If rsCat("CategoryBackgroundImage")<> "" Then
strAddition="background=" & Chr(34) & rsCat("CategoryBackgroundImage") & Chr(34)
End If
If rsCat("CategoryBackgroundColor")<>"" Then
strAddition="bgcolor=" & Chr(34) & rsCat("CategoryBackgroundColor") & Chr(34)
End If
strCategoryBarFontColor=rsCat("CategoryBarFontColor")
strCategoryBarColor=rsCat("CategoryBarColor")
FontName=rsCat("FontName")
FontColor=rsCat("FontColor")
Else
strCat="Cards For Search: " & strWD
FontName=Application("gcp_FontName")
FontColor=Application("gcp_FontColor")
End If
Select Case Request("Action")
case " << "
intpage = 1
case " < "
intpage = Request("intpage")-1
if intpage < 1 then intpage = 1
case " > "
intpage = Request("intpage")+1
if intpage > intPageCount then intpage = IntPageCount
Case " >> "
intpage = intPageCount
case else
intpage = 1
If Request.QueryString("intpage") <> "" Then
intpage=Request.QueryString("intpage")
End If
end select
%>
<%=Application("gcp_HeaderHTML")%>
|
If you enjoy our E-Greetings and want to help us create new cards for you to
share with others, you can now make a donation of any amount, to help us
continue bringing you these inspirational messages. |
|
<%=strCat%> |
<%
If Not rsCard.EOF Then
rsCard.AbsolutePage = intPage
For intRecord = 1 To rsCard.PageSize%>
|
<%If rsCard("AdvancedCard")<>True Then%>"> "><%Else%><%=rsCard("ThumbnailHTML")%><%ENd If%>
|
">Customize
and send this card
<%=rsCard("DefaultHeadline")%>
<%=rsCard("CardDescription")%>
<%If Trim(rsCard("Author"))<>"" Then%>Author: <%=rsCard("Author")%><%End If%> |
|
<% rsCard.MoveNext
If rsCard.EOF Then Exit For
intRecord =intRecord +1
If rsCard.EOF=False Then %>
|
<%If rsCard("AdvancedCard")<>True Then%>"> "><%Else%><%=rsCard("ThumbnailHTML")%><%ENd If%>
|
">Customize
and send this card
<%=rsCard("DefaultHeadline")%>
<%=rsCard("CardDescription")%>
<%If Trim(rsCard("Author"))<>"" Then%>Author: <%=rsCard("Author")%><%End If%> |
|
<%
rsCard.MoveNext
End If
If rsCard.EOF Then Exit For
Next
End If
If intpagecount > 1 Then %>
<% End If %>
|
|
<%=Application("gcp_FooterHTML")%>
<% connPostCardSoft.Close()
Set connPostCardSoft=Nothing
Set rsCard=Nothing
Set rsCat=Nothing
%>