/<%=easy4css%>" type="TEXT/CSS" rel="STYLESHEET"> <% menu_top_act="T" kellszuro=0 vmszam=request.querystring("vm") vmtszam=request.querystring("vmt") session("ARTIP1")="110" sql="select c.y_kep_hely,vevo_szemely_kod,t.cikk_azonosito,mennyiseg,termek_ar,embl_szin,embl_term,embl_tech,embl_id from gold_rend_fej f, gold_rend_tet t, gold_cikk c where t.rend_azon=f.rend_azon and t.cikk_azonosito=c.cikk_azonosito and t.rend_tetel_azon="+ cstr(vmtszam) set listac=cnnsearch.execute(sql) 'response.write sql cikkazon=cstr(listac("cikk_azonosito")) mennyiseg=listac("mennyiseg") emblszin=listac("embl_szin") emblterm=listac("embl_term") embltechkod=listac("embl_tech") Session("USER_ID")=listac("vevo_szemely_kod") emblkalk cikkazon, mennyiseg, emblszin, emblterm, embltechkod embl_ar=session("embl_ar") honnan="" emblkod=embltechkod 'kalk=session("embl_kalk") termekszoveg=session("termekszoveg") kepfile=listac("y_kep_hely") termek_ar=listac("termek_ar") 'logofile=request.form("logofile") emblbetolt=listac("embl_id") session("embl_id")=listac("embl_id") if emblbetolt<>"" then action="B" else action="U" end if session("embl_betoltott")=request.form("betoltott") 'action=request.form("action") 'if action="" then ' action=request.querystring("action") 'end if Select Case action Case "B" session("EMBL_ID")=cstr(emblbetolt) Betolt session("embl_betoltott")="1" Case "L" session("EMBL_ID")=request.querystring("emblid") Betolt session("embl_betoltott")="1" Case "U" ujlogo session("embl_betoltott")="" Case "K" KosarOlvas GetKosarIx(cikkazon) ,cikkazon,kosar_db,embl_ar,embl1,embl2,embl3,embl4,embl5 session("EMBL_ID")=embl4 if session("EMBL_ID")="" then ujlogo else session("csakegyszerbetolt")="1" session("embl_betoltott")="1" Betolt end if Case "T" '---------------------------- embléma törlés -------------------------- sql1="delete from g_emblema where id="+emblbetolt set lista1=cnnsearch.execute(sql1) session("embl_betoltott")="" Case "M" '---------------------------- embléma mentés -------------------------- if session("embl_betoltott")="" then sql1="insert into g_emblema (id,partner_kod,megnevezes,szinkod1,szinkod2,szinkod3,szinkod4,szinkod5" _ & ",kep_szoveg,kepfile,szoveg,megjegyzes,datum,szinhex1,szinhex2,szinhex3,szinhex4,szinhex5) values (" _ & cstr(session("EMBL_ID")) & "," & Session("USER_ID") & ",'" & request.form("megnevezes") & "'," _ & "'" & request.form("szin1") & "','" & request.form("szin2") & "','" _ & request.form("szin3") & "','" & request.form("szin4") & "','" & request.form("szin5") & "','" _ & request.form("kep_szoveg") & "','" & request.form("logofile") & "','" & request.form("elm1") & "','" _ & request.form("megj") & "', curdate(),'" & request.form("szk1") & "','" & request.form("szk2") & "','" & request.form("szk3") & "','" & request.form("szk4") & "','" & request.form("szk5") & "')" else sql1="update g_emblema set megnevezes='" & request.form("megnevezes") & "'," _ & "szinkod1= '" & request.form("szin1") & "'," _ & "szinkod2= '" & request.form("szin2") & "'," _ & "szinkod3= '" & request.form("szin3") & "'," _ & "szinkod4= '" & request.form("szin4") & "'," _ & "szinkod5= '" & request.form("szin5") & "'," _ & "kep_szoveg='" & request.form("kep_szoveg") & "'," _ & "kepfile= '" & request.form("logofile") & "'," _ & "szoveg= '" & request.form("elm1") & "'," _ & "megjegyzes='" & request.form("megj") & "'," _ & "datum= curdate(), " _ & "szinhex1= '" & request.form("szk1") & "'," _ & "szinhex2= '" & request.form("szk2") & "'," _ & "szinhex3= '" & request.form("szk3") & "'," _ & "szinhex4= '" & request.form("szk4") & "'," _ & "szinhex5= '" & request.form("szk5") & "' " _ & "where id="+session("EMBL_ID") end if session("embl_betoltott")="" shsql(sql1) set lista1=cnnsearch.execute(sql1) '------ kosárba rakás ----------------- response.redirect "shop.asp?action=add&item="+cikkazon+"&ertek="+mennyiseg+"&e=1&emblt="+session("embl_emblkod")+"&embls="+session("embl_emblszin")+"&embld="+session("embl_emblterm")+"&embli="+session("embl_id")+"&ar="+embl_ar Case else ujlogo session("embl_betoltott")="" ' response.write "qwertz" end select sub Betolt sql1="select * from g_emblema where id="+session("EMBL_ID") ' response.write sql1 set lista1=cnnsearch.execute(sql1) session("embl_megnevezes") =lista1("megnevezes") session("embl_szelesseg") =lista1("szelesseg") session("embl_magassag") =lista1("magassag") session("embl_kep_szoveg") =lista1("kep_szoveg") session("embl_kepfile") =lista1("kepfile") session("embl_szoveg") =lista1("szoveg") session("embl_megjegyzes") =lista1("megjegyzes") session("embl_logofile") =session("embl_kepfile") session("embl_szinkod1") =lista1("szinkod1") session("embl_szinkod2") =lista1("szinkod2") session("embl_szinkod3") =lista1("szinkod3") session("embl_szinkod4") =lista1("szinkod4") session("embl_szinkod5") =lista1("szinkod5") session("embl_szinhex1") =lista1("szinhex1") session("embl_szinhex2") =lista1("szinhex2") session("embl_szinhex3") =lista1("szinhex3") session("embl_szinhex4") =lista1("szinhex4") session("embl_szinhex5") =lista1("szinhex5") end sub sub ujlogo ' set snextid=cnnsearch.execute("exec nextval 'g_s_emblema'") ' sql1="select sequence_id from sequences where seq='g_s_emblema'" ' set snextid=cnnsearch.execute(sql1) ' session("EMBL_ID")=cstr(snextid("sequence_id")) ' response.write session("EMBL_ID") sql1="select max(id)+1 maxid from g_emblema" set snextid=cnnsearch.execute(sql1) session("EMBL_ID")=cstr(snextid("maxid")) session("embl_megnevezes") ="" session("embl_szelesseg") ="" session("embl_magassag") ="" session("embl_kep_szoveg") ="" session("embl_kepfile") ="" session("embl_szoveg") ="" session("embl_megjegyzes") ="" session("embl_logofile") ="" session("embl_szinkod1") ="" session("embl_szinkod2") ="" session("embl_szinkod3") ="" session("embl_szinkod4") ="" session("embl_szinkod5") ="" session("embl_szinhex1") ="" session("embl_szinhex2") ="" session("embl_szinhex3") ="" session("embl_szinhex4") ="" session("embl_szinhex5") ="" end sub function logofileext(ut) dim extens,k,z z=0 for k=1 to len(ut) if mid(ut,k,1)="." then z=k end if next if len(ut)>4 then logofileext=mid(ut,z,10) else logofileext="" end if end function %>

Emblémázás


<%=termekszoveg%>

<% emblkalkkiir cikkazon, mennyiseg, emblszin, emblterm, emblkod %>
"> "> "> <% 'response.write emblszin ' for g=1 to cint(emblszin) for g=1 to 5 szhexkod="" borderw="0" if cstr(session("EMBL_ID"))<>"" then szhexkod= session("embl_szinhex"+cstr(g)) if session("embl_szinkod"+cstr(g))<>"" then borderw="1" end if else szhexkod= "#ffffff" end if if szhexkod= "" then szhexkod= "#ffffff" end if %> <%next%>
Megnevezés ">" readonly>
Szöveg
Színkód <%=cstr(g)%> "" then response.write session("embl_szinkod"+cstr(g)) end if%>" readonly>
Emblémázási logó megjegyzés
Grafika "" then response.write "" else response.write "disabled" end if%> onclick="window.open('download.asp?file=<%if session("embl_kepfile")<>"" then response.write session("embl_kepfile") & "'" else response.write "'+document.all.item('logofile').value" end if %>)" id="logoletolt" target="ujablak" style="cursor:pointer;width:150px" value="Megnézés (Giftonból)">

<% if action="T" then %> <% end if %>