<% 'Dim strDBPath Dim sPassword Dim sUser Dim loginok sUser=cstr(request.querystring("USER")) %>
<% if sUser="" then %>

<%=Nem_adott_meg_emailt%>

<% else strSQL="select vevo_szemely_kod,vevo_szemely_vezeteknev, vevo_szemely_keresztnev,vevo_szemely_jelszo,vevo_szemely_email " _ & " from gold_vevo_szemely where vevo_szemely_email='"+sUser+"' " Set Lista=cnnSearch.Execute(strSQL) if lista.eof then ' Session("login") = "0" %>

<%=Nincs_ilyen_felhasznalo_regisztralva+":"+sUser%>

<% else 'jelszó-emlékeztető levélküldés sLevel="" _ & "" _ & "" & jelszo_emlekezteto & "" _ & "" _ & "" _ & "

Kedves Ügyfelünk!


" _ & "

" & A_webaruhazba_valo_belepeshez_szukseges_adatok & ":

" _ & "" _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & "
" & felhasznalo_nev & "" & Lista(4) & "
" & jelszo & "" & Lista(3) & "
" _ & "

" & udvozlettel & "

" _ & "

Gifton csapata

" _ & "" _ & "" strTo=cstr(Lista(4)) Set objCDO = Server.CreateObject("CDO.Message") With objCDO .To = strTo .From = "giftonwebshop@gifton.hu" .Subject = "Gifton.hu webshop jelszó emlékeztető" .HtmlBody = sLevel .Send End With %>

<%=a_jelszot_emailben_elkuldtuk%>

<% end if end if ' volt megadva user name %>