<%@language="VBScript"%> <% Response.Expires = 0 %> <% 'kontrola formuláře if request("email") = "" or request("email") = "zadejte e-mail..." then chyba = chyba & "
Zadejte e-mail" else if instr(request("email"),"@") = 0 or instr(request("email"),".") = 0 then chyba = chyba & "
E-mail nemá správný formát" end if end if if not chyba = "" then chyba = right(chyba,len(chyba)-4) Response.clear response.redirect "novinky-zasilat2.asp?" & request.form & "&chyba=" & server.urlencode(chyba) end if 'kontrola duplicity e-mailu u zákazníka Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT email, novinky FROM zakaznik WHERE email LIKE '" & sqlinjection2(request("email")) & "'" rs.Open strSQL, conn, 1, 1 if not rs.eof then if rs("novinky") = true then chyba = chyba & "
Zákazník s tímto e-mailem je již registrován a novinky jsou mu zasílány." else chyba = chyba & "
Zákazník s tímto e-mailem je již registrován, zasílání novinek je možné zapnout po přihlášení ve svém profilu." end if else rs.close Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT email FROM novinky_email WHERE email LIKE '" & sqlinjection2(request("email")) & "'" rs.Open strSQL, conn, 1, 1 if not rs.eof then chyba = chyba & "
Zákazník s tímto e-mailem je již registrován a novinky jsou mu zasílány." end if end if rs.close if not chyba = "" then chyba = right(chyba,len(chyba)-4) Response.clear response.redirect "novinky-zasilat2.asp?" & request.form & "&chyba=" & server.urlencode(chyba) end if Set rs = CreateObject("ADODB.RecordSet") rs.Open "novinky_email", conn, 1, 3 rs.addnew rs("datum") = cdate(FormatDateTime(now,0)) rs("email") = request("email") rs.update rs.close conn.close Response.clear response.redirect session("cesta_web") & "novinky-zasilat2.asp" %>