<%
Dim sPassword
Dim sUser
Dim success
sUser=cstr(request.form("USER"))
sPassword=cstr(request.form("PASSWORD"))
'Response.write "User=" +sUser+ " Pw:"+sPassword
'Response.end
succes="0"
if sUser<>"" and sPassword<>"" then
strSQL="select vevo_szemely_kod,vevo_szemely_vezeteknev, vevo_szemely_keresztnev,partner_kod,jelszo_datum " _
& " from gold_vevo_szemely where vevo_szemely_email='"+sUser+"' and vevo_szemely_jelszo='"+sPassword+"' "
Set Lista=cnnSearch.Execute(strSQL)
if not lista.eof then
succes="1"
end if
end if
if succes<>"1" then
Session("BELEP") = "0"
%>
<%=belepes_sikertelen%>
<%=sUser%> / <%=sPassword%>
<%
else
if (lista("jelszo_datum")="" or lista("jelszo_datum")+11*30
<%
end if
Session("BELEP") = "1"
Session("nev") = cstr(lista(1)) & " " & cstr(lista(2))
Session("kod") = cstr(lista(0))
if lista(3)<>"" then
Session("partnerkod") = cstr(lista(3))
strSQL="select g_engedmeny from gold_megr_partner where partner_kod = " + Session("partnerkod")
Set Listaeng=cnnSearch.Execute(strSQL)
if listaeng(0)<>"" then
Session("engedmeny")=listaeng(0)
else
Session("engedmeny")=0
end if
%>
<%
else
Session("partnerkod") = ""
%>
<%
end if
end if
%>