/<%=easy5css%>" type="TEXT/CSS" rel="STYLESHEET"> <% menu_top_act="T" kellszuro=0 cikkazon=session("embl_cikkazon") mennyiseg=session("embl_mennyiseg") embl_ar=session("embl_ar") honnan=session("embl_honnan") emblkod=session("emblkod") emblszin=session("embl_emblszin") emblterm=session("embl_emblterm") kalk=session("embl_kalk") termekszoveg=session("termekszoveg") kepfile=session("kepfile") termek_ar=session("termek_ar") logofile=request.form("logofile") emblbetolt=request.form("emblbetolt") 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

1. lépés
Kalkuláció		 2. lépés
Bejelentkezés		 3. lépés
Logo megadása

<%=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%>

Korábbi logók

Megnevezés ">">
Szöveg
Színkód <%=cstr(g)%> "" then response.write session("embl_szinkod"+cstr(g)) end if%>" readonly> cint(emblszin) then response.write "" end if%>> 
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)">


Információk  |  termékek  |  kosár  |  kapcsolat
<% if action="T" then %> <% end if %>