<%

set cnnSearch = Server.CreateObject("ADODB.Connection")
strConn =  "Provider=SQLOLEDB;Data Source=(local);" _
             & "Initial Catalog=Gifton;User Id=sa;Password=websa;" _
             & "Connect Timeout=60;current language=HUNGARIAN"
cnnSearch.Open strConn  ' mindig újat nyit

' fixen beállítandók
'Session.Timeout = 360  ' 60 percig éljen az utolsó mûvelettõl

Session("LEKERDEZES_COUNT")= 0 ' számláló
'Session("SEARCH_COUNT")= 0
Session("KOSAR_MAX")= 0
Session("KOSAR_MAX2")= 0

'************ viszonteladó adatok lekérése ***********

strSQL = "SELECT VISZONTELADO_NEV, VISZONTELADO_EMAIL, VISZONTELADO_WEB, " _
       & " EMBLEMAZASI_KAT, KATALOGUS, Y_KOTELEZO_BEJ, " _
       & " KESZLET_FOL_REND, ARTIPUS_KOD, DEFAULT_ARTIPUS, DEFAULT_LANG, DEFAULT_CIKK_LANG, REGISTRATION, g_web_kat_csoport, g_web_akcio_csoport   " _
       & " FROM GOLD_VISZONTELADO WHERE PARTNER_KOD = " + cstr(Session("VISZONTELADOID"))
Set lista = cnnSearch.Execute(strSQL)

function isnull2(data,default)
 ' response.write data & "---" & default & "   "
  if isnull(data) then
     isnull2 = default
  else
     isnull2= data
  end if
end function


Session("VISZONTELADO_NEV")   =cStr(isnull2(lista.fields("VISZONTELADO_NEV").value,"Viszonteladó neve: kitöltetlen"))
Session("VISZONTELADO_EMAIL") =cStr(isnull2(lista.fields("VISZONTELADO_EMAIL").value,"Viszonteladó e-mail: kitöltetlen"))
Session("VISZONTELADO_WEB")   =cStr(isnull2(lista.fields("VISZONTELADO_WEB").value,"Viszonteladó web: kitöltetlen"))
Session("EMBLEMAZASI_KAT")    =cStr(isnull2(lista.fields("EMBLEMAZASI_KAT").value,"1"))   ' >0: VANNAK EMBL ADATMEZÕK
Session("KATALOGUS")          =cStr(isnull2(lista.fields("KATALOGUS").value,"0"))  ' 1: NINCS KOSÁR
Session("Y_KOTELEZO_BEJ")     =cStr(isnull2(lista.fields("Y_KOTELEZO_BEJ").value,"0"))  ' 1: KERESÉS ELÕTT MUSZÁJ BEJELENTKEZNI
Session("KESZLET_FOL_REND")   =cStr(isnull2(lista.fields("KESZLET_FOL_REND").value,"1"))  ' 1:TÖBBET IS RENDELHET, MINT A KÉSZLET. CSAK RENDELHETÕ CIKKBÕL
Session("ARTIPUS1")           =cStr(isnull2(lista.fields("ARTIPUS_KOD").value,"100"))  '  ÁRTÍPUS:EZZEL INDÍT,  RÉGI VERZIÓ
'Session("DEFAULT_ARTIPUS")   =cStr(isnull(lista.fields("DEFAULT_ARTIPUS").value,"100"))  ' DEFAULT ÁRTÍPUS:EZZEL INDÍT
Session("DEFAULT_LANG")       =cStr(isnull2(lista.fields("DEFAULT_LANG").value,"HUN"))  ' 1: EZZEL INDÍT
Session("DEFAULT_CIKK_LANG")  =cStr(isnull2(lista.fields("DEFAULT_CIKK_LANG").value,"ENG"))  ' 1: HA NINCS A VÁLASZTOTT NYELVÛ CIKK NÉV, EZT VÁLASZTJA
Session("REGISTRATION")       =cStr(isnull2(lista.fields("REGISTRATION").value,"1"))  ' 1: LEHET REGISZTRÁLNI
Session("g_web_kat_csoport")  =cStr(isnull2(lista.fields("g_web_kat_csoport").value,"1")) 
Session("g_web_akcio_csoport")=cStr(isnull2(lista.fields("g_web_akcio_csoport").value,"1")) 

'Session("")=cStr(lista.fields("").value)  ' 1:
'Session("")=cStr(lista.fields("").value)  ' 1:

%>