<%@language="VBScript"%>
<% Response.Expires = 0 %>
<!--#include file="inc/kontrola.asp" -->
<!--#include file="inc/kontrola-shop.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'kontrola zadání e-mailu
if request("email") = "" then
	response.clear
	response.redirect session("cesta_web") & "zakaznik-heslo.asp?chyba=Zadejte svůj e-mail"
end if



'kontrola správnosti e-mailu
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT email, heslo FROM zakaznik WHERE email LIKE '" & sqlinjection2(request("email")) & "' AND id_shop = 0"
rs.Open strSQL, conn, 1, 1
if rs.eof then
	response.clear
	response.redirect session("cesta_web") & "zakaznik-heslo.asp?email=" & request("email") & "&chyba=Zadaný e-mail není v naší databázi"
end if



'zaslání informačního e-mailu
Set mail = Server.CreateObject("JMail.Message")
mail.Charset = "windows-1250"
mail.silent = true
mail.MailServerUserName = "admin@bikestore.cz"
mail.MailServerPassWord = "AdminIgnumBikestore2020"
mail.From = session("server_email")
mail.FromName = session("server_nazev")
mail.AddRecipient rs("email")
mail.Subject = "Vaše přihlašovací údaje"
obsah = "Na žádost Vám zasíláme přihlašovací údaje do internetového obchodu " & session("server_nazev") & vbcrlf
obsah = obsah & vbcrlf & vbcrlf
obsah = obsah & "E-MAIL: " & rs("email") & vbcrlf
obsah = obsah & "HESLO: " & rs("heslo")
'podpis
Set f = Server.CreateObject("Scripting.FileSystemObject")
cesta = Server.MapPath("inc_shopy/" & session("server")) & "\"
set t = f.OpenTextFile(cesta & "email_obsah_podpis.txt")
podpis = t.ReadAll
set f = nothing
mail.Body = obsah & podpis
mail.Send("email.ignum.cz:587")
mail.ClearRecipients



rs.close
conn.close
response.clear
response.redirect session("cesta_web") & "zakaznik-heslo.asp?odeslano=1"
 %>