<% Dim worktype, workid worktype=Request.QueryString.Item("type") workid=Request.QueryString.Item("id") lang="fullsize.sv.asp?type=" & worktype & "&id=" & workid %> <% 'declare the variables Dim Connection Dim oRs Dim SQL, numWorks, i, desc, price, ThumbnailUrl, LargeUrL, wrkType, id, prev, canvas, medium, width, height, title, previd, firstid, lastid, ifound Dim Following, isActive, PrintsActive, PrintsSize, PrintsPrice, PrintsWeight, OriginalWeight, PrintsPackagingWeight, ButtonCode Dim OriginalPackingWeight, PrintsPostage, OriginalPostage, weight, destination, bulky, postage, PrintsPackagingCost Dim OriginalPackagingCost, depth, keywords, keywordsSv 'declare the SQL statement that will query the database SQL = "SELECT * FROM PaintingDataBase where Type='" & worktype & "' and (isActive='yes' or PrintsActive='yes') ORDER BY Ord desc" 'create an instance of the ADO connection and recordset objects Set Connection = Server.CreateObject("ADODB.Connection") 'open the connection to the database 'connectstr = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=akvilytes.db.7183007.hostedresource.com; PORT=3306; DATABASE=akvilytes; USER=akvilytes; PASSWORD='Kismet02!'; OPTION=0;" connectstr = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=148138-svartingeinfo; USER=148138_jy12987; PASSWORD='kismet02'; OPTION=3;" Connection.Open connectstr 'Open the recordset object executing the SQL statement and return records Set oRS=Connection.Execute(SQL) numWorks = oRS.RecordCount i = 0 id = 0 previd = 0 prev = -1 following = 0 ifound = 0 ThumbnailUrl = "" if not oRS.EOF then while not oRS.EOF i = i + 1 'if there are records then loop through the fields previd = id id = oRs.Fields("idPaintingDataBase") If i = 1 Then firstid = id End if If workid=CStr(id) Then title = oRs.Fields("Title") desc = oRs.Fields("Description") price = oRs.Fields("Price") ThumbnailUrl = oRs.Fields("ThumbnailName") LargeUrl = oRs.Fields("LargeImageName") wrkType = oRs.Fields("Type") medium = oRs.Fields("Medium") canvas = oRs.Fields("Canvas") width = oRs.Fields("Width") height = oRs.Fields("Height") depth = oRs.Fields("Depth") OriginalWeight = oRs.Fields("Weight") isActive = oRs.Fields("isActive") PrintsActive = oRs.Fields("PrintsActive") PrintsSize = oRs.Fields("PrintsSize") PrintsPrice = oRs.Fields("PrintsPrice") PrintsWeight = oRs.Fields("PrintsWeight") PrintsPackagingWeight = oRs.Fields("PrintsPackagingWeight") OriginalPackingWeight = oRs.Fields("OriginalPackagingWeight") keywords = oRs.Fields("Keywords") keywordsSv = oRs.Fields("KeywordsSv") ButtonCode = "" ButtonCodePrints = "" StoryBehind = "" ButtonCode = oRs.Fields("PayPalButtonOriginal") ButtonCodePrints = oRs.Fields("PayPalButtonPrint") StoryBehind = oRs.Fields("StoryBehind") ifound = i End if if prev > -1 and ifound > 0 and following = 0 Then following = id End if if prev = -1 and ifound > 0 Then prev = previd End if oRS.movenext wend If ifound = 1 Then prev = id End if If ifound = i Then following = firstid End if oRS.close end if 'close the connection and recordset objects freeing up resources Set oRs = nothing Set Connection=nothing 'POSTAGE 'create an instance of the ADO connection and recordset objects Set Connection = Server.CreateObject("ADODB.Connection") SQL = "SELECT * FROM PostageRates ORDER BY Weight" 'open the connection to the database Connection.Open connectstr 'Open the recordset object executing the SQL statement and return records Set oRS=Connection.Execute(SQL) numworks = 0 PrintsPostage = 0 OriginalPostage = 0 if not oRS.EOF then while not oRS.EOF numworks = numworks + 1 weight = oRs.Fields("Weight") destination = oRs.Fields("Destination") If PrintsWeight + PrintsPackagingWeight < weight and destination = "Europe" and PrintsPostage = 0 then bulky = oRs.Fields("BulkySupplement") postage = oRs.Fields("Cost") PrintsPackagingCost = oRs.Fields("PrintsPackagingCost") PrintsPostage = postage + bulky + PrintsPackagingCost End if If OriginalWeight + OriginalPackingWeight < weight and destination = "Europe" and OriginalPostage = 0 then bulky = oRs.Fields("BulkySupplement") postage = oRs.Fields("Cost") + oRs.Fields("RegisteredSuppInternational") OriginalPackagingCost = oRs.Fields("OriginalPackagingCost") OriginalPostage = postage + bulky + OriginalPackagingCost End if oRS.movenext wend oRS.close end if 'close the connection and recordset objects freeing up resources Set oRs = nothing Set Connection=nothing 'if ThumbnailUrl <> "" Then %> <% if worktype="Wildlife" Then %> Wildlife Painting: <%=title%> by Akvile Lawrence <% End if %> <% thisfile = Request.ServerVariables("SCRIPT_NAME") thisfile = Server.MapPath(thisfile) set fso = CreateObject("Scripting.FileSystemObject") set fs = fso.getfile(thisfile) LastUpdated = fs.datelastmodified LastUpdated = formatdatetime(LastUpdated,2) set fs = nothing: set fso = nothing %>

<%=title%>, Wildlife art by Akvile Lawrence
Next

"<%=title%>" by Wildlife Artist Akvile Lawrence

<%=desc%> <%if StoryBehind <> "" Then%>

See a little of the story behind this painting

<%End if %> <%if isActive="yes" Then%> <% if worktype="Wildlife" or worktype="Portrait" Then %> <%end if%>

Original:

<%=width%> cm by <%=height%> cm, <%=medium%> on <%=canvas%>
<% end if %> <%if price <> "" Then %> Price: <%=price%> SEK

<%if ButtonCode <> "" Then %>
<%end if%>
<%End if%> <%if PrintsActive="yes" Then%> <%end if%>

Print:

<%=PrintsSize%>
<%if price <> "" Then %> Price: <%=PrintsPrice%> SEK

<%if ButtonCodePrints <> "" Then %>
<% end if %>
<%End if%>
<% 'End if %>

Originals and prints of Akvile's wildlife paintings can be purchased directly via our website, using safe and convenient paypal. Originals, of course are subject to availability. Prints are made from high resolution scans of the originals and are giclees printed on fine-art paper. A certificate of authenticity is included with all wildlife paintings and prints. All wildlife paintings and prints are sold without a frame. We guarantee your satisfaction: if you are not happy with the painting or print that you buy, send it back in unblemished condition within two weeks of receiving it and we will refund your money (we cannot, however, refund the cost of the return postage).

While we try as hard as we can to ensure that the informatiom presented on these web pages is correct and up-to-date, Classical Luxury reserves the right to change prices and costs at any point and to make items unavailable for sale without notice.

Note: your computer monitor might show slightly different tones than on the original painting or on the prints.