<%@language="VBScript"%>
<% Response.Expires = 0 %>
<!--#include file="inc/kontrola.asp" -->
<!--#include file="inc/kontrola-shop.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'kontrola formuláře
chyba = ""
if request("jmeno") = "" then chyba = chyba & "<BR>Zadejte jméno" end if
if request("prijmeni") = "" then chyba = chyba & "<BR>Zadejte příjmení" end if
if request("email") = "" then
	chyba = chyba & "<BR>Zadejte e-mail"
else
	if instr(request("email"),"@") = 0 or instr(request("email"),".") = 0 then
		chyba = chyba & "<BR>Zadali jste chybný formát e-mailu"
	end if
end if
if request("tel") = "" then chyba = chyba & "<BR>Zadejte telefon" end if
if request("ulice2") = "" then chyba = chyba & "<BR>Zadejte ulici" end if
if request("mesto2") = "" then chyba = chyba & "<BR>Zadejte město" end if
if request("psc2") = "" then chyba = chyba & "<BR>Zadejte psč" end if
if not chyba = "" then
	chyba = right(chyba,len(chyba)-4)
	Response.clear
	response.redirect  "zakaznik-registrace.asp?" & request.form & "&chyba=" & server.urlencode(chyba)
end if



'kontrola duplicity registrace
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM zakaznik WHERE email LIKE '" & sqlinjection2(trim(request("email"))) & "' AND id_shop = 0"
rs.Open strSQL, conn, 1, 1
if not rs.eof then
	rs.close
	conn.close
	chyba = chyba & "<BR>Zákazník s tímto emailem je již zaregistrován"
	chyba = right(chyba,len(chyba)-4)
	Response.clear
	response.redirect  "zakaznik-registrace.asp?" & request.form & "&chyba=" & server.urlencode(chyba)
end if
rs.close



'uložení údajů o zákazníkovi
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "zakaznik", conn, 1, 3
rs.addnew
rs("datum") = cdate(FormatDateTime(now,0))
rs("ip_adresa") = Request.ServerVariables("REMOTE_ADDR")
rs("jmeno") = request("jmeno")
rs("prijmeni") = request("prijmeni")
rs("email") = trim(request("email"))
rs("heslo") = replace(request("heslo")," ","")
rs("tel") = request("tel")
rs("sleva") = 0
rs("kr") = 0
if request("novinky") = "1" then rs("novinky") = true else rs("novinky") = false end if
rs("id_shop") = 0
rs("shop") = "bikestore"
rs.Update
rs.close
Set rsID = conn.execute("SELECT @@IDENTITY FROM zakaznik")
id_zakaznik = rsID(0)
Set rsID = nothing



Set rs = CreateObject("ADODB.RecordSet")
rs.Open "zakaznik_adr", conn, 1, 3
rs.addnew
rs("id_zakaznik") = id_zakaznik
rs("jmeno") = request("jmeno2")
rs("firma") = request("firma2")
rs("ulice") = request("ulice2")
rs("mesto") = request("mesto2")
rs("psc") = request("psc2")
rs("fakturacni") = false
rs.Update
rs.close

Set rs = CreateObject("ADODB.RecordSet")
rs.Open "zakaznik_adr", conn, 1, 3
rs.addnew
rs("id_zakaznik") = id_zakaznik
rs("jmeno") = request("jmeno3")
rs("firma") = request("firma3")
rs("ulice") = request("ulice3")
rs("mesto") = request("mesto3")
rs("psc") = request("psc3")
rs("ico") = request("ico3")
rs("dic") = request("dic3")
rs("fakturacni") = true
rs.Update
rs.close



Response.clear
response.redirect session("cesta_web") & "zakaznik-prihlaseni.asp?registrace=1"
 %>