|
|
 |
|
Featured art is available from a variety of nationally
known artists and dealers. Browse available artwork in the categories listed
to the left. To order, call toll free 1-888-673-2936.
Secondary Market Prints
- These prints are sold out by the publisher, but may be available through the secondary market.
|
<%
Dim PosRecord
PosRecord = 1
Do UNTIL database.eof
' SEARCH COMPARISON
Dim SearchString, SearchPhrase, MyPos
SearchString = database("Status")
SearchPhrase = "NEW"
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 = "![](" & ImageFile & "_small.jpg)
" & database("Title") & "
"
PrintString = PrintString & ByLine & "
| "
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 %>
|
