<%=PageTitle%>

<%@ Language=VBScript %> <%Option Explicit%> <% dim Prod, ProdID, Recipe, RecipeID, SenderName, SenderEmail, ReceiverName, ReceiverEmail, Comments dim oRs, oConn, SQL, Data, DataExist, i, photo dim msg1(1), msg2(1), MailSubject(1) dim objMail, mailbody, Discount Discount = 0 if lang = "GR" then i=0 else i=1 set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") photo = Request.Form("photo") Prod = Request.QueryString("Prod") ProdID = Request.Form("ProdID") Recipe = Request.QueryString("Recipe") RecipeID = Request.Form("RecipeID") SenderName = Request.Form("SenderName") SenderEmail = Request.Form("SenderEmail") ReceiverName = Request.Form("ReceiverName") ReceiverEmail = Request.Form("ReceiverEmail") Comments = Request.Form("Comments") '------------- Send Product info through EMAIL --------------------------------- if Prod = 1 then if NOT(IsNumeric(ProdID)) = true then dim errmsg Response.Redirect("error.asp?errmsg=" & errmsg) end if msg1(0) = "Ο/Η " & SenderName& " ασς προτείνει το παρακάτω προϊόν από το site του " : msg1(1) = SenderName& " is sending you the product above from the WebSite " msg2(0) = "Σχόλια Αποστολέα ::" : msg2(1) = "Sender Comments ::" MailSubject(0) = "Πληροφορίες Προϊόντος από το site του Degustibus" : MailSubject(1) = "Product Info from Degustibus website" SQL = "ShowProduct " & ProdID & ", '"& lang & "'" oRs.open SQL, oConn, 0,1,1 if oRs.EOF = false then DataExist = 1 Data = oRs.GetRows() end if if DataExist = 1 then set objMail = CreateObject("CDONTS.NewMail") objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.From = SenderEmail 'objMail.to = ReceiverEmail & ",kpapadimos@greekgeeks.com" objMail.to = ReceiverEmail objMail.subject = MailSubject(i) mailbody = ""&_ "

"&_ "

" & msg1(i) & "Degustibus

"&_ "

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "

"&_ ""&_ ""&_ ""&_ ""&_ "

"&_ ""& Data(1,0) &"
" if Data(2,0) & "" <> "" then mailbody = mailbody & ""& House(i) &": " & Data(2,0) & " " if Data(3,0) & "" <> "" then mailbody = mailbody & "" & Country(i) & ": " & Data(3,0) if Data(4,0) & "" <> "" then mailbody = mailbody & "

" & Descr(i)& "
" & Replace(Data(4,0),chr(13),"
") & "

" if Data(5,0) & "" <> "" then mailbody = mailbody & "

" & Source(i)& "
" & Replace(Data(5,0),chr(13),"
") & "

" if Data(6,0) & "" <> "" then mailbody = mailbody & "

" & Tradition(i)& "
" & Replace(Data(6,0),chr(13),"
") & "

" if Data(7,0) & "" <> "" then mailbody = mailbody & "

" & Prepare(i) & "
" & Replace(Data(7,0),chr(13),"
")&"

" if Data(8,0) & "" <> "" then mailbody = mailbody & "

" & Accomp(i) & "
" & Replace(Data(8,0),chr(13),"
")&"

" if Data(9,0) & "" <> "" then mailbody = mailbody & "

" & Adv(i) & "
"& Replace(Data(9,0),chr(13),"
") & "

" mailbody = mailbody & "

"&_ "

"&_ ""&_ ""&_ "

"&_ "

"&_ "
"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "


" mailbody = mailbody & " "&_ ""&price1(i)&" ::"&_ " " & Data(11,0) & " € "&_ "" & price2(i)& " ::"&_ " "& Data(10,0) & " €" mailbody = mailbody & "

"&_ ""&_ ""&_ "

" if Comments & "" <> "" then mailbody = mailbody & "" & msg2(i)& "
"&Replace(Comments,chr(13),"
") end if mailbody = mailbody & "

"&_ "" objMail.Body = mailbody objMail.send set objMail = Nothing end if mailbody = "" end if '------------- Send RECIPE info through EMAIL --------------------------------- if Recipe = 1 then dim splitmaterials msg1(0) = "Ο/Η " & SenderName& " ασς στέλνει την παρακάτω συνταγή από το site του " msg1(1) = SenderName& " is sending you the recipe above from the WebSite " msg2(0) = "Σχόλια Αποστολέα ::" msg2(1) = "Sender Comments ::" MailSubject(0) = "Πληροφορίες Συνταγής από το site του Degustibus" : MailSubject(1) = "Recipe Info from Degustibus website" 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 set objMail = CreateObject("CDONTS.NewMail") objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.From = SenderEmail 'objMail.to = ReceiverEmail & ",kpapadimos@greekgeeks.com" objMail.to = ReceiverEmail objMail.subject = MailSubject(i) mailbody = ""&_ "

"&_ "

" & msg1(lg) & "Degustibus

"&_ ""&_ ""&_ "

" mailbody = mailbody & ""&_ ""&_ ""&_ ""&_ "

"&_ ""&_ ""&_ "

"&_ "

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ "

"&_ "" if Data(3,0) & "" <> "" then splitmaterials=Split(Data(3,0),chr(13)) mailbody = mailbody & "" for i=0 to ubound(splitmaterials) mailbody = mailbody & ""&_ ""&_ ""&_ "" next end if mailbody = mailbody & "

" & RMaterial(lg) &"
-	" & splitmaterials(i) & "

"&_ "

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ "


" & RNav(lg)& " > " & Data(5,0) & "
" & Data(1,0) & " " & Rtit(lg) & "
" & Replace(Data(2,0),chr(13)," ") & "

"&_ ""&_ ""&_ "

" if Comments & "" <> "" then mailbody = mailbody & "" & msg2(lg)& "
"&Replace(Comments,chr(13),"
") end if mailbody = mailbody & "

"&_ "" objMail.Body = mailbody objMail.send set objMail = Nothing end if end if set oRs = nothing oConn.close : set oConn = nothing dim tit(1), okmsg(1), but(1) tit(0) = "ΑΠΟΣΤΟΛΗ ΠΛΗΡΟΦΟΡΙΩΝ ΠΡΟΪΟΝΤΟΣ ΜΕ EMAIL" : tit(1) = "SENDING PRODUCT INFO WITH EMAIL" okmsg(0)= "Η αποστολή του email ολοκληρώθηκε με επιτυχία!" : okmsg(1) = "The email was send succesfully" but(0) = "Κλείσιμο" : but(1) = "Close" %> <%=PageTitle%>

<%=tit(lg)%>

<%=okmsg(lg)%>