<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if if session("UserID") & "" = "" then Response.Redirect "account.asp?fromnews=1" dim SQL, oConn, oRs, Data, DataExist, Access, newcateg, i, DID dim photos, zips,recordCount,photoExists photoExists = 0 DID = Request.Form("DID") if DID="" then Response.redirect "error.asp" end if newcateg = 1 set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") if Session("UserID") & "" <> "" then SQL = "Select UCategID, UAccess from [User] where UID=" & session("UserID") oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then if oRs("UCategID")=7 AND oRs("UAccess") = true then Access = 1 else Access = 0 else Response.Redirect "account.asp" end if oRs.close end if if Access = 1 then if lang = "GR" then SQL = "Select DeltioTypou.DID, "&_ "DeltioTypou.DDate, "&_ "DeltioTypou.DTitle, "&_ "DeltioTypou.DText, "&_ "Photos.Phtitle, "&_ "ProdSubCateg.ProdSubCategDescr, "&_ "ProdHouse.ProdHouseDescr, "&_ "isnull(Photos.PhThumbName,'default.jpg'),"&_ "Photos.PHDate, "&_ "Photos.PHID "&_ " from DeltioTypou "&_ "LEFT OUTER JOIN Photos on Photos.PHDID = DeltioTypou.DID "&_ "LEFT OUTER JOIN ProdSubCateg on ProdSubCateg.ProdSubCategID = Photos.PHCategID "&_ "LEFT OUTER JOIN ProdHouse on ProdHouse.ProdHouseID = Photos.PHHouseID "&_ " where DeltioTypou.DID=" & DID if lang = "EN" then SQL = "Select DeltioTypou.DID, "&_ "DeltioTypou.DDate, "&_ "DeltioTypou.DTitleEN, "&_ "DeltioTypou.DTextEN, "&_ "Photos.PhtitleEN, "&_ "ProdSubCateg.ProdSubCategDescrEN, "&_ "ProdHouse.ProdHouseDescrEN, "&_ "isnull(Photos.PhThumbName,'default.jpg'), "&_ "Photos.PHDate, "&_ "Photos.PHID "&_ "from DeltioTypou "&_ "LEFT OUTER JOIN Photos on Photos.PHDID = DeltioTypou.DID "&_ "LEFT OUTER JOIN ProdSubCateg on ProdSubCateg.ProdSubCategID = Photos.PHCategID "&_ "LEFT OUTER JOIN ProdHouse on ProdHouse.ProdHouseID = Photos.PHHouseID "&_ " where DeltioTypou.DID=" & DID oRs.open SQL, oConn, 3,1,1 if oRs.EOF = False then DataExist = 1 Data = oRs.GetRows() recordCount = oRs.RecordCount else DataExist = 0 end if oRs.close end if set oRs = nothing oConn.close : set oConn = nothing GoToPage = "newsfull.asp?DID="&DID menu = "4" %>

<%if Access = 1 then%>        <%if newcateg <> 1 then%><%=NCateg1(lg)%><%else%><%=NCateg1(lg)%><%end if%>       <%if newcateg <> 2 then%><%=NCateg2(lg)%><%else%><%=NCateg2(lg)%></font><%end if%>       <%if newcateg <> 3 then%><%=NCateg3(lg)%><%else%><%=NCateg3(lg)%><%end if%>   <%end if%> <%if recordCount>=1 then response.write Ntit(lg)&" > "&Nsubtit1(lg)&" > "&Data(2,0) end if %> <%if DataExist = 1 then%> <% for i=0 to ubound(Data,2)%> <%if i=0 then%> <%end if photos = photos & "" photoExists=1 End if next Response.write photos If photoExists=1 then Response.Write "" End if%> <%=Data(1,i)%> :: <%=Data(2,i)%> <%=Replace(Data(3,i),chr(13)," ")%> "& Data(4,i)&" :: " & Data(8,i) & " " & Data(5,i) & " > " & Data(6,i)& " " If Data(7,i)<>"default.jpg" then response.write "Η φωτογραφία σε αρχείο Zip Όλες οι φωτογραφίες σε αρχείο zip <% else%> <%=NAccessDenied(lg)%> <%end if%>