<%
'Dim sPassword
'Dim sUser
suser=""
sPassword=""
sUser=cstr(request.form("USER"))
sPassword=cstr(request.form("PASSWORD"))
if (sUser<>"" and sPassword<>"") then
sql="select * from gold_vevo_szemely where vevo_szemely_email='"+suser+"' and vevo_szemely_jelszo='"+spassword+"'"
'response.write sql
Set lista=cnnsearch.execute(sql)
if not lista.eof then
Session("BELEP")="1"
Session("USER_ID")=lista("vevo_szemely_kod")
Session("USER_EMAIL")=lista("vevo_szemely_email")
Session("usernev")=lista("vevo_szemely_vezeteknev") + " "+lista("vevo_szemely_keresztnev")
end if
end if
if (sUser<>"" and sPassword="") then
'--------jelszó emlékeztető jön
response.redirect "jelszoemlek.asp?USER="+sUser
end if
if Session("BELEP")<>"1" then
%>