Fine Sports Art Limited Edition Lithographs

<% 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

LSP'S NEW LINE OF BILLIARD ART

For more information contact us toll free:

(866) 926-8577

HEADLINES