'------------------ tétel rögzítés ------------------------------

              if Session("KOSAR_MAX") >= "1" then
              sTotal = 0
 	      sEngszorzo=1
              szallitasi_ktg=2000
              for i=1 to cInt( Session("KOSAR_MAX") )
                Ix = cStr(i)
                if Session("KOSAR_"+ Ix) <> "" then ' törölt a kosárelem ?
                ' olvassuk ki a kosár adatait, változóként módosítsuk, majd írjuk vissza session változóba!
                ' sItemId helyett cikkazont olvas ki
                KosarOlvas Ix ,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5

                talalatszam=1 'integer
                GetCikkadat cnnSearch, rstSearch, cikkazon, talalatszam      ' típuseltéréssel lehal.
                if talalatszam = 0 Then
                   Response.Write cikkazon + ":olyan cikkazon a kosárban, ami nincs az adatbázisban!"
                   Response.End
                end if
                select case embl5
                       case "N" s="Nem emblémázott"
                       case "E" s="Emblémázott"
                       case "A" s="<span style='color:red'>Hűségpontból</span>"
                end select

		emblkalk(cikkazon, kosar_db, embl2, embl3, embl1)
		sql3="select * from g_emblema where id="+cstr(embl4)
		lista3=cnnsearch.execute(sql3)

               sql5="insert into gold_rend_tet (rend_azon,cikk_azonosito,mennyiseg,termek_ar,embl_tech,embl_term," _
		   & "embl_szin,embl_grafika,embl_szoveg,embl_szin1,embl_szin2,embl_szin3,embl_szin4,embl_szin5,embl_megj,tipus,fixktg,valtktg) " _
		   & " values " _
                   & "("+cstr(maxazon)+"," _
                   & cikkazon+"," _
                   & kosar_db+"," _
                   & ar+"," _
                   & "'"+embl1+"'," _
                   & embl3+"," _
                   & embl2+"," _
                   & "'"+lista3("kepfile")+"'," _
                   & "'"+lista3("szoveg")+"'," _
                   & "'"+lista3("szinkod1")+"'," _
                   & "'"+lista3("szinkod2")+"'," _
                   & "'"+lista3("szinkod3")+"'," _
                   & "'"+lista3("szinkod4")+"'," _
                   & "'"+lista3("szinkod5")+"'," _
                   & "'"+lista3("megjegyzes")+"'," _
                   & "'"+embl5+"'," _
                   & cstr(fixktg)+"," _
                   & cstr(valtktg)+")"

               lista5=cnnsearch.execute(sql5)


                end if
	        end if
	     next
             end if