<% Section = "Purchase Prints" %>
<%
IsSearch = SQLClean(Request.Querystring("Search"))
SportID = SQLClean(Request.Form("selSport"))
Search = SQLClean(Request.Form("txtSearch"))
if SportID = "" then
SportID = "0"
end if
if Search = "Enter Search Text" then
Search = ""
end if
ArtistIDs = ""
SportIDs = ""
StyleIDs = ""
Query = ""
if IsSearch = "1" then
for each item in request.form
if Left(item, 10) = "chkArtist_" then
if request.form(item) = "ON" then
if ArtistIDs <> "" then
ArtistIDs = ArtistIDs & ","
end if
ArtistIDs = ArtistIDs & Replace(item, "chkArtist_", "")
end if
end if
if Left(item, 9) = "chkSport_" then
if request.form(item) = "ON" then
if SportIDs <> "" then
SportIDs = SportIDs & ","
end if
SportIDs = SportIDs & Replace(item, "chkSport_", "")
end if
end if
if Left(item, 9) = "chkStyle_" then
if request.form(item) = "ON" then
if StyleIDs <> "" then
StyleIDs = StyleIDs & ","
end if
StyleIDs = StyleIDs & Replace(item, "chkStyle_", "")
end if
end if
next
if ArtistIDs <> "" then
Query = Query & " AND "
Query = Query & "[Print].ArtistID IN (" & ArtistIDs & ")"
end if
if SportIDs <> "" then
Query = Query & " AND "
Query = Query & "SportID IN (" & SportIDs & ")"
end if
if StyleIDs <> "" then
Query = Query & " AND "
Query = Query & "PrintStyleID IN (" & StyleIDs & ")"
end if
strSQL = "SELECT DISTINCT [Print].PrintID, [Print].PrintName, [Print].PrintType, [Print].PrintStyleID, [Print].UploadFolder, [Print].Artist, [PrintArtist].FirstName, [PrintArtist].LastName, [Print].PrintRun, [Print].Price, [Print].PrintThumbnail, [Print].PrintRefID, [Print].IsOriginalAvailable FROM [Print] INNER JOIN [PrintArtist] ON [PrintArtist].PrintArtistID = [Print].ArtistID LEFT JOIN PrintSport ON PrintSport.PrintID = [Print].PrintID WHERE IsActive = 1 " & Query & " ORDER BY PrintName ASC"
else
if SportID <> "0" then
strSQL = "SELECT DISTINCT [Print].PrintID, [Print].PrintName, [Print].PrintType, [Print].UploadFolder, [Print].PrintStyleID, [Print].Artist, [PrintArtist].FirstName, [PrintArtist].LastName, [Print].PrintRun, [Print].Price, [Print].PrintThumbnail, [Print].PrintRefID, [Print].IsOriginalAvailable FROM [Print] INNER JOIN [PrintArtist] ON [PrintArtist].PrintArtistID = [Print].ArtistID LEFT JOIN PrintSport ON PrintSport.PrintID = [Print].PrintID WHERE IsActive = 1 AND SportID = " & SportID & " AND (Lower([Print].Description) LIKE '%" & LCase(Search) & "%' OR Lower([Print].PrintName) LIKE '%" & LCase(Search) & "%' OR Lower([Print].Keywords) LIKE '%" & LCase(Search) & "%') ORDER BY PrintName ASC"
else
strSQL = "SELECT DISTINCT [Print].PrintID, [Print].PrintName, [Print].PrintType, [Print].UploadFolder, [Print].PrintStyleID, [Print].Artist, [PrintArtist].FirstName, [PrintArtist].LastName, [Print].PrintRun, [Print].Price, [Print].PrintThumbnail, [Print].PrintRefID, [Print].IsOriginalAvailable FROM [Print] INNER JOIN [PrintArtist] ON [PrintArtist].PrintArtistID = [Print].ArtistID LEFT JOIN PrintSport ON PrintSport.PrintID = [Print].PrintID WHERE IsActive = 1 AND (Lower([Print].Description) LIKE '%" & LCase(Search) & "%' OR Lower([Print].PrintName) LIKE '%" & LCase(Search) & "%' OR Lower([Print].Keywords) LIKE '%" & LCase(Search) & "%') ORDER BY PrintName ASC"
end if
end if
'response.write strSQL
'response.end
set rstPrints = objConn.Execute(strSQL)
strSQL = "SELECT * FROM [PrintArtist] ORDER BY LastName ASC"
set rstPrintArtist = objConn.Execute(strSQL)
strSQL = "SELECT * FROM [PrintStyle] ORDER BY PrintStyleID ASC"
set rstPrintStyle = objConn.Execute(strSQL)
%>
Fine Sports Art Limited Edition Lithographs
