<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim oRs, oConn, SQL dim FPProds dim PresentPID,PresentCID set oConn = Server.Createobject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") dim ProdID, ProdTitle, ProdTitleEN, ProdPhoto, PresentID, PresentTitle, PresentTitleEN, PresentPhoto, NewsID, NewsTitle, NewsTitleEN, NewsPhoto,ProdCID SQL = "SELECT FPProds.ProdID , ProdTitle, ProdTitleEN, IsNull(ProdPhoto,'default.jpg') as ProdPhoto, "&_ "PresentID, PresentTitle, PresentTitleEN, IsNull(PresentPhoto,'default.jpg') as PresentPhoto, "&_ "NewsID, NewsTitle, NewsTitleEN, IsNull(NewsPhoto,'default.jpg') as NewsPhoto , Product.ProdCategID "&_ "FROM FPProds, Product WHERE UserCategID IS NULL and Product.ProdID = FPProds.ProdID" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then ProdID = oRs("ProdID") ProdCID = oRs("ProdCategId") PresentID = oRs("PresentID") NewsID = oRs("NewsID") ProdPhoto = oRs("ProdPhoto") PresentPhoto = oRs("PresentPhoto") NewsPhoto = oRs("NewsPhoto") if lang = "GR" then ProdTitle = oRs("ProdTitle") PresentTitle = oRs("PresentTitle") NewsTitle = oRs("NewsTitle") else ProdTitle = oRs("ProdTitleEN") PresentTitle = oRs("PresentTitleEN") NewsTitle = oRs("NewsTitleEN") end if end if oRs.close SQL = "Select Presents.ProdID,product.ProdCategID from Presents, Product where product.ProdID = Presents.ProdID and PresentID = " & PresentID oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then PresentPID = oRs("ProdID") PresentCID = oRs("ProdCategID") end if oRs.Close GoToPage = "default.asp" %>

Κάποιο λάθος πραγματοποιήθηκε. Πιθανότατα τα στοιχεία που ζητήσατε να μην υπάρχουν. Προσπαθήστε ξανά. << επιστροφή <%=ShowRandomPhoto(RFirstPageDir,1)%>

<% set oRs = nothing oConn.close : set oConn = nothing%>