<%@ Language=VBScript %> <%Option Explicit%> <% dim SQL, oConn, oRs, DataExist, Data, CategID dim ProdID, photo, MyName, RecipeID, Discount ProdID = Request.QueryString("ProdID") RecipeID= Request.QueryString("RecipeID") photo = Request.QueryString("photo") MyName = Request.QueryString("MyName") CategID = Request.QueryString("CategID") dim SName(1), SEmail(1), RName(1), REmail(1), Comments(1), i, title(1), but(1), close(1) if lang = "GR" then SName(0) = "Όνομα Αποστολέα" SEmail(0) = "Email Αποστολέα" RName(0) = "Όνομα Παραλήπτη" REmail(0) = "Email Παραλήπτη" Comments(0) = "Σχόλια" But(0) = "Αποστολή" close(0) = " Κλείσιμο " if ProdID & "" <> "" then title(0) = "ΑΠΟΣΤΟΛΗ ΠΛΗΡΟΦΟΡΙΩΝ ΠΡΟΪΟΝΤΟΣ ΜΕ EMAIL" if RecipeID & "" <> "" then title(0) = "ΑΠΟΣΤΟΛΗ ΠΛΗΡΟΦΟΡΙΩΝ ΣΥΝΤΑΓΗΣ ΜΕ EMAIL" else SName(1) = "Sender Name" SEmail(1) = "Sender Email" RName(1) = "Receiver Name" REmail(1) = "Receiver Email" Comments(1) = "Comments" But(1) = " Send " close(1) = " Close " if ProdID & "" <> "" then title(0) = "SEND PRODUCT INFO WITH EMAIL" if RecipeID & "" <> "" then title(0) = "SEND ΡΕΨΙΠΕ INFO WITH EMAIL" end if if lang="GR" then i = 0 else i = 1 dim alert1, alert2, alert3, alert4 if i = 0 then alert1 = "Παρακαλώ συμπληρώστε Oνομα Αποστολέα" alert2 = "Παρακαλώ συμπληρώστε Email Αποστολέα" alert3 = "Παρακαλώ συμπληρώστε Oνομα Παραλήπτη" alert4 = "Παρακαλώ συμπληρώστε Email Παραλήπτη" else alert1 = "Please fill in Sender Name" alert2 = "Please fill in Sender Email" alert3 = "Please fill in Receiver Name" alert4 = "Please fill in Receiver Email" end if %> <%=PageTitle%> onLoad ="self.print();" <%end if%>> <%if MyName = "MailMe" then%> "" then%>Prod<%else%>recipe<%end if%>=1" method="post">
<%=title(i)%>
<%= SName(i) %>
<%=SEmail(i)%>
<%=RName(i)%>
<%=REmail(i)%>
<%=Comments(i)%>
    
<%else '================== PRODUCT ================================ if ProdID & "" <> "" AND IsNumeric(ProdID)=true then set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") SQL = "ShowProduct " & ProdID & ", '"& lang & "'" oRs.open SQL, oConn, 0,1,1 if oRs.EOF = false then DataExist = 1 Data = oRs.GetRows() end if%>
<%=Data(1,0)%>
<%if Data(2,0) & "" <> "" then%><%=House(lg)%>: <%=Data(2,0)%>    <%end if%> <%if Data(3,0) & "" <> "" then%><%=Country(lg)%>: <%=Data(3,0)%><%end if%> <%if Data(4,0) & "" <> "" then%>

<%=Descr(lg)%>
<%=Replace(Data(4,0),chr(13),"
")%>

<%end if%> <%if Data(5,0) & "" <> "" then%>

<%=Source(lg)%>
<%=Replace(Data(5,0),chr(13),"
")%>

<%end if%> <%if Data(6,0) & "" <> "" then%>

<%=Tradition(lg)%>
<%=Replace(Data(6,0),chr(13),"
")%>

<%end if%> <%if Data(7,0) & "" <> "" then%>

<%=Prepare(lg)%>
<%=Replace(Data(7,0),chr(13),"
")%>

<%end if%> <%if Data(8,0) & "" <> "" then%>

<%=Accomp(lg)%>
<%=Replace(Data(8,0),chr(13),"
")%>

<%end if%> <%if Data(9,0) & "" <> "" then%>

<%=Adv(lg)%>
<%=Replace(Data(9,0),chr(13),"
")%>

<%end if%>



<%if instr(Data(12,0),",") then dim c, b c = split(Data(12,0),",") b = ubound(c)+1 randomize b=Int((b * Rnd)+1) b = c(b-1) else b = Data(12,0) end if%>
<% set oRs = nothing oConn.close : set oConn = nothing end if '========= RECIPE ====================================== if RecipeID & "" <> "" AND IsNumeric(RecipeID) = true then dim splitmaterials set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") SQL = "ShowRecipe " & RecipeID & ", '" & lang & "'" oRs.open SQL, oConn, 0, 1, 1 if oRs.EOF = false then Dataexist = 1 Data = oRs.GetRows() end if oRs.close if DataExist = 1 then%>
" alt="" width="148" height="148" border="0">

<%if Data(3,0) & "" <> "" then%> <%splitmaterials=Split(Data(3,0),chr(13))%> <%for i=0 to ubound(splitmaterials)%> <%next end if%>
<%= RMaterial(lg) %>
- <%=splitmaterials(i)%>
<%=RNav(lg)%> > <%=Data(5,0)%>

<%=Data(1,0)%>

<%=Rtit(lg)%>

<%=Replace(Data(2,0),chr(13),"
")%>
<% end if set oRs = nothing oConn.close : set oConn = nothing end if end if%>