http://www.tosots.com Metaphysical Crystals and Minerals - The last 40 that have been added. en-us Copyright 2001-2010 The Other Side of the Sun All Rights Reserved. <% CurrDate = Now() CurrHour = Hour(CurrDate) if CurrHour < 10 then CurrHour = "0" & CurrHour CurrMin = Minute(CurrDate) if CurrMin < 10 then CurrMin = "0" & CurrMin CurrSec = Second(CurrDate) if CurrSec < 10 then CurrSec = "0" & CurrSec CurrDateT = WeekdayName(Weekday(CurrDate), TRUE) & ", " & Day(CurrDate) & " " & _ MonthName(Month(CurrDate), TRUE) & " " & Year(CurrDate) & " " & _ CurrHour & ":" & CurrMin & ":" & CurrSec & " EST" %> <%=CurrDateT%> 240 <% set connectionToDatabase = GetTosotsConnection() Set latestSet=Server.CreateObject("ADODB.Recordset") latestSet.Open "SELECT TOP 40 * FROM Crystals WHERE CrystalStatus = 'Live' ORDER BY CrystalID DESC", connectionToDatabase, 1, 2 Do While NOT latestSet.EOF %> <% CrystalTitle = Replace(Replace(Replace(latestSet("CrystalTitle"), chr(180), "'"),"´", "'"), "&", "&") CrystalAbout = Replace(Replace(Replace(Left(latestSet("CrystalAbout"),250), chr(180), "'"),"´", "'"), "&", "&") CurrDate = latestSet("CrystalDate") CurrDateT = WeekdayName(Weekday(CurrDate), TRUE) & ", " & Day(CurrDate) & " " & _ MonthName(Month(CurrDate), TRUE) & " " & Year(CurrDate) & " " %> http://www.tosots.com/crystal/<% Response.Write CrystalLink(CrystalTitle) %>/<% Response.Write latestSet("CrystalID") %> http://www.tosots.com/crystal/<% Response.Write CrystalLink(CrystalTitle) %>/<% Response.Write latestSet("CrystalID") %> <% Response.Write "$" & latestSet("CrystalPrice") %> - <% Response.Write CrystalAbout %> <% Response.Write CurrDateT %>12:00:00 EST <% latestSet.MoveNext Loop latestSet.Close connectionToDatabase.Close set connectionToDatabase = Nothing %>