<% if (SESSION("login1")="") then response.write "Nem léptél be, vagy időtúllépés van!!!!" response.end end if Session("DEV1")="HUF" Dim cikkazon Dim strSQL datum = CStr(Request.QueryString("datum")) email= CStr(Request.QueryString("email")) rendazon=CStr(Request.QueryString("rendazon")) szemely= CStr(Request.QueryString("szemely")) partner_szemely= CStr(Request.QueryString("pszemely")) webaruhazpartner=CStr(Request.QueryString("webpartner")) %> /<%=easy5css%>" type="TEXT/CSS" rel="STYLESHEET"> Rendelés küldés
<% if (email<>"" and rendazon<>"") then '------------------email küldés -------------------------------------- strSQL="select s.vevo_szemely_kod,s.vevo_szemely_vezeteknev, s.vevo_szemely_keresztnev,s.vevo_cime,s.vevo_szemely_email,s.vevo_kod,s.vevo_neve " _ & " from gold_vevo_szemely s where s.vevo_szemely_kod="+szemely 'response.write vParancs Set vevoadatok=cnnSearch.Execute(strSQL) sVevokod2=cstr(vevoadatok(5)) sVevokod=cstr(vevoadatok(0)) sNev = cstr(vevoadatok(1)) & " " &cstr(vevoadatok(2)) sCim = cstr(vevoadatok(3)) sCegnev= cstr(vevoadatok(6)) strToVevo = cstr(vevoadatok(4)) if strToVevo="" then strToVevo = "Golding_Webshop_Hibas_Vevo" end if strSQL="select szemely_email, szemely_kod from gold_viszontelado_szem where szemely_kod=" +partner_szemely + " order by szemely_default desc,szemely_nev" Set lista=cnnSearch.Execute(strSQL) sVESzemely=cstr(lista(1)) ' a VE email a default személy emailje, egyelőre, személyeket választani meg nem is lehet strToVE=cstr(lista(0)) if strToVE="" then strToVE = "webshop@golding.hu" end if ' a levél feladója a ve partner e-mailje, pl. webshop@golding.hu, webshop_slovnaft@akarki.hu strSQL="select isnull(viszontelado_email,' '), isnull(viszontelado_nev,' '), isnull(viszontelado_irsz,' '), isnull(viszontelado_varos,' '), isnull(viszontelado_cim,' '), " _ & " isnull(viszontelado_bank,' '), isnull(viszontelado_adoszam,' '), isnull(viszontelado_web,' '), " _ & " isnull(viszontelado_tel,' '), isnull(viszontelado_fax,' ') " _ & " from gold_viszontelado where partner_kod="+webaruhazpartner Set VEadat=cnnSearch.Execute(strSQL) strFrom= cstr(VEadat(0)) if strFrom="" then strFrom = "Golding Webshop " end if strSubject= "Golding webshop megrendelés értesítő" sMegjegyzes = Session("KOSAR_MEGJ") & " " strBody = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " " & strSubject & "" & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "

" strbody=strbody & strSubject strbody=strbody & "

" & vbCrLf _ & "

" strbody=strbody & Megrendeles_szama & ": " strbody=strbody & cstr(rendazon) & "

" & vbCrLf _ & "

" strbody=strbody & Amennyiben_ez_a_megrendeles strbody=strbody & "

" & vbCrLf _ & "

 

" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf '& "" & vbCrLf _ '& "" & vbCrLf _ '& "" & vbCrLf _ '& "" & vbCrLf _ strbody=strbody _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" strbody=strbody & szallito strbody=strbody & "" & vbCrLf _ & "
" strbody=strbody & nev strbody=strbody & "" & cstr(VEadat(1)) & "
" strbody=strbody & Irsz_Varos strbody=strbody & "" & cstr(VEadat(2)) & "" & cstr(VEadat(3)) & "
" strbody=strbody & Cim strbody=strbody & "" & cstr(VEadat(4)) & "
Tel" & cstr(VEadat(8)) & "
Fax" & cstr(VEadat(9)) & "
" strbody=strbody & adoszam strbody=strbody & "" & cstr(VEadat(6)) & "
" 'strbody=strbody & Bankszamlaszam ' 'strbody=strbody & "" & cstr(VEadat(5)) & "
Web" & cstr(VEadat(7)) & "
" & vbCrLf _ & "" & vbCrLf _ & "" strbody=strbody & vevo strbody=strbody & " " & vbCrLf _ & "" & vbCrLf _ & "" strbody=strbody & Nev strbody=strbody & "" & vbCrLf _ & "" & sNev & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" strbody=strbody & Cegnev strbody=strbody & "" & vbCrLf _ & "" & sCegnev & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" strbody=strbody & Cim strbody=strbody & "" & vbCrLf _ & "" & sCim & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "E-mail" & vbCrLf _ & "" & strToVevo & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "  " & vbCrLf _ & "  " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "  " & vbCrLf _ & "  " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "  " & vbCrLf _ & "  " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "  " & vbCrLf _ & "  " & vbCrLf _ & "  " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf _ & "

" ' táblázat fejléc strbody=strbody & Termekek strbody=strbody & "

" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf 'tételadatok sTotal = 0 sql="select * from gold_rend_tet t, gold_cikk c where rend_azon="+rendazon +" and t.cikk_azonosito=c.cikk_azonosito" set rstSearch=cnnsearch.execute(sql) do while not rstSearch.eof kosar_db=rstSearch.Fields("kert_menny").Value ar = cDbl(rstSearch.Fields("listaar").Value) sTotal = sTotal + cDbl(kosar_db) * ar strBody = strBody & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf o=o+1 ' tételsorszám rstSearch.movenext loop strBody = strBody & "
" strbody=strbody & Cikkszam strbody=strbody & "" strbody=strbody & Cikknev strbody=strbody & "" strbody=strbody & Mennyiseg strbody=strbody & "" strbody=strbody & Egysegar strbody=strbody & "" strbody=strbody & osszesen strbody=strbody & "
" & cStr(rstSearch.Fields("CIKKSZAM").Value) & "" & cStr(rstSearch.Fields("CIKKMEGNEVEZES").Value) & "" & kosar_db & "" & cStr(ar) & "" if Session("DEV1")="HUF" then strbody=strbody & FormatNumber(ar * cDbl(kosar_db),0) else strbody=strbody & FormatNumber(ar * cDbl(kosar_db),2) end if strBody = strBody & "
" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "
" & vbCrLf _ & "

" strbody=strbody & vegosszeg strbody=strbody & "

" if Session("DEV1")="HUF" then strbody=strbody & FormatNumber(sTotal,0) else strbody=strbody & FormatNumber(sTotal,2) end if strbody=strbody & Session("DEV1_JEL") & "

" & vbCrLf _ & "

 

" & vbCrLf _ & "

" _ & egyebek & ":" strbody=strbody & "

" & vbCrLf _ & "

" & Session("KOSAR_MEGJ") & "

" & vbCrLf _ & "" & vbCrLf 'A viszonteladónak megy email: Set objCDO = Server.CreateObject("CDO.Message") 'response.write "kuldo:" + strFrom + " nak: " +email ' a viszonteladónak is: With objCDO .To = email .From = strFrom .Subject = "Webshop megrendelés" ' strSubject, ez mindig magyar .HtmlBody = strBody .Send End With Set objCDO = Nothing response.write "ok, levél elment!" '------------------------ email küldés vége ---------------------------- else %>
RendID Kelt Partner E-mail  
<% if datum<>"" then wh=" and rend_kelte > "+datum-31 else wh="" end if sql= "select r.rend_azon,r.rend_kelte,vs.vevo_szemely_vezeteknev,vs.vevo_szemely_keresztnev," _ & " vs.vevo_neve,vs.vevo_szemely_kod,vs.vevo_szemely_email " _ & " from gold_rend_fej r, gold_vevo_szemely vs " _ & " where r.vevo_szemely_kod=vs.vevo_szemely_kod " _ & " "+wh+" order by 1 desc " 'response.write sql set lista=cnnsearch.execute(sql) do while not lista.Eof %>
<%=lista("rend_azon")%> <%=lista("rend_kelte")%> <%=lista("vevo_neve")%> - <%=lista("vevo_szemely_vezeteknev")%> <%=lista("vevo_szemely_keresztnev")%> <% 'lista("vevo_szemely_email")%>')">
<% lista.movenext loop end if %>