<%@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 if instr(request("email"),"@") = 0 or instr(request("email"),".") = 0 then chyba = chyba & "
Zadali jste chybný formát e-mailu" end if end if if request("obsah") = "" then chyba = chyba & "
Zadejte obsah dotazu" end if if not chyba = "" then session("chyba_dotaz") = right(chyba,len(chyba)-4) Response.clear if instr(request.servervariables("http_referer"),"#dotazy") > 0 then response.redirect request.servervariables("http_referer") else response.redirect request.servervariables("http_referer") & "#dotazy" end if end if 'uložení dotazu Set rs = CreateObject("ADODB.RecordSet") rs.Open "zbozi_dotazy", conn, 1, 3 rs.addnew rs("id_zbozi") = request("id_zbozi") rs("datum") = cdate(FormatDateTime(now,0)) rs("jmeno") = request("jmeno") rs("tel") = request("tel") rs("email") = request("email") rs("nazev") = "" rs("obsah") = replace(request("obsah"),"<","") rs("odpoved") = "" rs("zobrazit") = false rs("vyrizeno") = false rs("ip_adresa") = Request.ServerVariables("REMOTE_ADDR") rs("id_shop") = session("server_id") rs("shop") = session("server") rs.update rs.close conn.close end if session("dotaz_zaslano") = "1" Response.clear if instr(request.servervariables("http_referer"),"#dotazy") > 0 then response.redirect request.servervariables("http_referer") else response.redirect request.servervariables("http_referer") & "#dotazy" end if %>