<% Language=VBScript Response.Buffer = true if Session("partnerkod")<>"" and Session("BELEP")="1" then response.redirect "is2partnerkintlev_tovabb.asp" end if 'response.write Session("partnerkod") '--------------------------------------------most csak magyar verzió van 'sLang="HUN" 'innentõl csak magyar verzió 'sLAng=Session("LANG1") '-------------------------------------------- %> /<%=easy5css%>" type="TEXT/CSS" rel="STYLESHEET"> <% ProcessLogin() ' vb scriptet generál ide, ha belépett %>

<%=VMVig_Login_magyarazat1%>

<%if not LoginOkPartner() then%> <%else %> <%end if%>

<%=Partner_kod%>
<%=Jelszo%>

<% sub ProcessLogin() Dim sLogin,sPassword if Session("SecurityDescriptorPartner")<>"SecurityOk" then sLogin = trim(Request.Form("dfPartner")) sPassword = trim(Request.Form("dfPassword")) Session("SecurityDescriptorPartner") = "" Session("PartnerKod") = cstr(sLogin) Session("Password") = cstr(sPassword) if Request.Form("pbLogin") <> "" then 'on error resume next dim objAccount, RsAccount dim AccountID, FullName sSQL1="select partner_kod, g_net_password, partner_nev " _ & "from GOLD_MEGR_PARTNER p where p.partner_kod="+cStr(sLogin) + " " _ & " and p.g_net_password='"+ cStr(sPassword) + "' " Set Lista=cnnSearch.Execute(sSQL1) if not lista.eof then if Cstr(lista(0)) = sLogin and cstr(lista(1)) = sPassword then Session("SecurityDescriptorPartner") = "SecurityOk" Session("PartnerKod") = sLogin Session("Password") = sPassword Session("PartnerFullName") = Cstr(lista.fields("partner_nev").Value) else Session("SecurityDescriptorPartner") = "" ' Session("PartnerKod") = "" ' Session("Password") = "" Session("PartnerFullName") = "" end if else Session("SecurityDescriptorPartner") = "" ' Session("PartnerKod") = "" ' Session("Password") = "" Session("PartnerFullName") = "" end if if Session("SecurityDescriptorPartner") = "SecurityOk" then Response.Write("" + vblf) Response.Write "Belépett! " else Response.Write belepes_sikertelen + "
" end if else Session("SecurityDescriptorPartner") = "" end if else Response.Write("" + vblf) end if end sub %>