<%@language="VBScript"%> <% Response.Expires = 0 %> <% if request("email2") = "vporadku" then 'kontrola formuláře chyba = "" if request("jmeno") = "" then chyba = chyba & "
Zadejte jméno" end if if request("email") = "" then chyba = chyba & "
Zadejte email" else 'kontrola správnosti e-mailové adresy if instr(request("email"),"@") = 0 or instr(request("email"),".") = 0 then chyba = chyba & "
Zadaný e-mail má chybný formát" end if end if if request("obsah") = "" then chyba = chyba & "
Zadejte obsah zprávy" end if if not chyba = "" then chyba = right(chyba,len(chyba)-4) Response.clear response.redirect "kontakt.asp?" & request.form & "&chyba_dotaz=" & chyba end if 'uložení dotazu Set rs = CreateObject("ADODB.RecordSet") rs.Open "zbozi_dotazy", conn, 1, 3 rs.addnew rs("id_zbozi") = 43930 'id zboží určeného pro kontaktní formulář rs("datum") = cdate(FormatDateTime(now,0)) rs("jmeno") = request("jmeno") rs("tel") = request("tel") rs("email") = request("email") rs("nazev") = "Kontaktni formular" rs("obsah") = replace(request("obsah"),"<","") rs("odpoved") = "" rs("zobrazit") = false rs("vyrizeno") = false rs("ip_adresa") = Request.ServerVariables("HTTP_X_FORWARDED_FOR") rs("id_shop") = session("server_id") rs("shop") = session("server") rs.update rs.close conn.close 'testovaci odeslani na email if session("admin_bikestore") = "frkal" then 'zaslání informačního e-mailu Set f = Server.CreateObject("Scripting.FileSystemObject") Set mail = Server.CreateObject("JMail.Message") mail.Charset = "windows-1250" mail.silent = false mail.MailServerUserName = "admin@bikestore.cz" mail.MailServerPassWord = "AdminIgnumBikestore2020" mail.From = "info@campvalek.cz" mail.AddRecipient "dvalek555@gmail.com" mail.Subject = "Kontaktni formular" 'obsah obsah = obsah & "JMENO: " & request("jmeno") & vbcrlf obsah = obsah & "TELEFON: " & request("tel") & vbcrlf obsah = obsah & "E-MAIL: " & request("email") obsah = obsah & vbcrlf & vbcrlf obsah = obsah & "OBSAH ZPRAVY: " & vbcrlf obsah = obsah & request("obsah") 'podpis cesta = Server.MapPath("inc_shopy/" & session("server")) & "\" set t = f.OpenTextFile(cesta & "email_obsah_podpis.txt") podpis = t.ReadAll mail.Body = obsah & podpis mail.Send("email.ignum.cz:587") mail.ClearRecipients end if end if Response.clear response.redirect session("cesta_web") & "kontakt.asp?zaslano=1" %>