<% Dim worktype, workid worktype=Request.QueryString.Item("type") workid=Request.QueryString.Item("id") lang="fullsize.en.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") descSv = oRs.Fields("DescSv") If descSv <> "" Then desc = descSv End if 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 = "" ButtonCode = oRs.Fields("PayPalButtonOriginal") ButtonCodePrints = oRs.Fields("PayPalButtonPrint") 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 %> Naturmålning: <%=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%>, naturkonst av Akvile Lawrence
Next

<%=title%>

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

Original:

<%=width%> cm by <%=height%> cm, <%=medium%> on <%=canvas%>
<% elseif worktype="Furniture" Then %>

Dimensions (wxdxh cm):

<%=width%> cm by <%=depth%> cm by <%=height%> cm
<% 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 ButtonCode <> "" Then %>
<% end if %>
<%End if%>
<% 'End if %>

Original målningar och konsttryck av Akviles naturmålningar kan köpas direkt via vår hemsida, med hjälp av säker och bekväm PayPal. Original, naturligtvis är beroende av tillgänglighet. Konsttryck görs från högupplösta skannar av originalen och är giclee tryckt på fin-konst papper. Ett äkthetsintyg följer med alla naturmålningar och konsttryck. Alla naturmålningar och konsttryck säljs utan ram. Vi garanterar din tillfredsställelse: om du inte är nöjd med målningen som du köper, skicka tillbaka det i opåverkad skick inom två veckor efter mottagandet och vi kommer att återbetala dina pengar (vi kan dock inte återbetala kostnaden för returportot ).

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.