<%@ Language=VBScript %>
<%Option Explicit%>
<%
if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%>
<%end if
dim fso,relpath
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Relpath = Server.mappath("../")
dim MainCategs, i
dim SQL, oConn, oRs, ShowFirst, DataExist
i = 0
MainCategs = Application("ProdCategs"&lang)
set oConn = Server.CreateObject("ADODB.Connection")
oConn.open Application("ConStr")
set oRs = Server.CreateObject("ADODB.Recordset")
if lang = "GR" then SQL = "SELECT TOP 3 Presents.ProdID, PresentTitle, dbo.GetLessText(PresentText,50), IsNull(PresentThumbs,'default.jpg'), ProdCateg.ProdCategID "&_
" from Presents "&_
"inner join product on product.prodid = presents.prodid "&_
"inner join prodCateg on prodcateg.prodcategid = product.prodcategID "&_
"where PresentShow=1 order by NEWID()"
if lang = "EN" then SQL = "SELECT TOP 3 Presents.ProdID, PresentTitleEN, dbo.GetLessText(PresentTextEN,50), IsNull(PresentThumbs,'default.jpg'), ProdCateg.ProdCategID "&_
"from Presents "&_
"inner join product on product.prodid = presents.prodid "&_
"inner join prodCateg on prodcateg.prodcategid = product.prodcategID "&_
"where PresentShow=1 order by NEWID()"
oRs.open SQL, oConn, 3,1,1
if oRs.EOF = False then
DataExist = 1
ShowFirst = oRs.GetRows()
end if
oRs.close : set oRs = nothing
oConn.close : set oConn = nothing
GoToPage = "presents.asp"
menu = "3"
%>
<%=PageTitle%>