Email | Order Form |
	Home > Featured Art

Featured Art Categories   Animals      Birds      Cats      Deer      Dogs      Farm Animals      Horses      Wildlife      Wolves   Family Life Famous People   Fantasy   Floral Folk Art   Historical      Civil War      Presidents Indian/Western   Landscape   NH Landmarks   Oceanic   Sports/Recreational   Spiritual/Religious   Transportation What's New Secondary Market Prints Local NH Artists Scenic Photography Posters and Gifts Picture Lights		<%= Request.Querystring("category") %> <% Dim PosRecord, PrintString PosRecord = 1 Do UNTIL database.eof ' SEARCH COMPARISON Dim SearchString, SearchPhrase, MyPos SearchString = database("Category") SearchPhrase = Request.Querystring("category") SearchString = LCase(SearchString) SearchPhrase = LCase(SearchPhrase) MyPos = InStr(1, SearchString, SearchPhrase, 1) 'CHECK PHOTO AND LOCAL STATUS Dim PhotoCheck, LocalCheck PhotoCheck = InStr(1, database("Status"), "Photo", 1) LocalCheck = InStr(1, database("Status"), "Local", 1) If MyPos > 0 Then ImageFile = database("ImageFile") 'DataFile = "data3.asp" IncFile = database("IncFile") PrintString = "" If IncFile <> "" Then DataFile = IncFile & ".htm" Else DataFile = "data3.asp?print=" & ImageFile End If If LocalCheck > 0 Then If database("LastName") <> "" Then ByLine = "by local artist " & "" & database("FirstName") & " " & database("LastName") & "" Else ByLine = database("FirstName") End If DataFile = "../local/data.asp?print=" & ImageFile ImageFile = "../local/" & ImageFile ElseIf PhotoCheck > 0 Then If database("LastName") <> "" Then ByLine = "Photo by " & "" & database("FirstName") & " " & database("LastName") & "" Else ByLine = database("FirstName") End If Else ByLine = "by " & "" & database("FirstName") & " " & database("LastName") & "" End If PrintString = "" Select Case PosRecord Case "1" Response.Write "" & PrintString PosRecord = 2 Case "2" Response.Write PrintString PosRecord = 3 Case "3" Response.Write PrintString & "" PosRecord = 1 End Select End If database.movenext Loop %> <% If PosRecord <> 3 Then%> <% End If %> " & database("Title") & " " PrintString = PrintString & ByLine & "

Flat Rate Shipping: $15.00 for up to 5 prints; $20.00 for 6 or more prints.

Prices listed on ARTOWN.com are in U.S. currency. Prices are subject to change without notice.
Please call toll free 1-888-673-2936 for exchange rates.