Vlákna FORTA, Ashford Formula, vyztužení betonu - EMZET

Poptávkový formulář

<% Function IsEmail(ByVal Text) Dim I IsEmail = False Text = LCase(Text) For I = 1 To Len(Text) If InStr("abcdefghijklmnopqrstuvwxyz0123456789@.-_", Mid(Text, I, 1)) = 0 Then Exit Function Next If Len(Text) < 6 Then Exit Function If InStr(Text, "@") <> InStrRev(Text, "@") Then Exit Function If InStr(Text, "@") < 2 Or InStr(Text, "@") > Len(Text) - 4 Then Exit Function If InStrRev(Text, ".") < InStr(Text, "@") Then Exit Function If Len(Text) - InStrRev(Text, ".") < 2 Or Len(Text) - InStrRev(Text, ".") > 4 Then Exit Function IsEmail = True End Function 'procedura na odeslani formulare sub send(odKoho, odKohoJmeno, komu, predmet, textZpravy) css = "" & vbcrlf on error resume next Set JMail = Server.CreateObject ("JMail.Message") JMail.From = odKoho'"postmaster@emzet.cz" JMail.FromName = odKohoJmeno JMail.Subject = predmet JMail.AddRecipient komu JMail.Charset = "windows-1250" JMail.AppendHTML (css & textZpravy) JMail.Priority = 1 JMail.MailServerUserName = "postmaster@emzet.cz" JMail.MailServerPassword = "Xk96JHmoJB" hlaska = "

Formulář s následujícími údaji byl úspěšně odeslán.

" & textZpravy if not JMail.Send("out.smtp.cz") then hlaska = "

Litujeme, ale nepodařilo se odeslat formulář s následujícími údaji
Kontaktujte, prosím, naší firmu

" & textZpravy response.write hlaska On error Goto 0 end sub if request("akce") = "send" then email = request("email"): if not isEmail(email) then email = "info@xcreative.cz" send email, "Webový formulář", "emzet@emzet.cz", "Poptávka z www stránek", "" & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & "
Mám zájem o
" & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & "
PP vlákna FORTA" & request("forta")& "
Produkty Fibermesh" & request("fibermesh")& "
Produkty Ashford Formula" & request("ashford")& "
" & vbcrlf & "" & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & "
 
" & vbcrlf & "" & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & "
Poznámky
" & request("dalsiInformace")& "
" & vbcrlf & "" & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & "
 
" & vbcrlf & "" & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & "
Kontaktní údaje
" & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & " " & vbcrlf & "
Jméno, příjmení " & request("Jmeno_A_Prijmeni")& "
Firma" & request("Firma")& "
Ulice a čp. " & request("Ulice")& "
Město/obec" & request("Mesto")& "
PSČ" & request("PSC")& "
Telefon" & request("Telefon")& "
Email" & request("Email")& "
" else %>
Mám zájem o
PP vlákna FORTA
Produkty Fibermesh
Produkty Ashford Formula
Poznámky
Kontaktní údaje
Jméno, příjmení ! nutné vyplnit
Firma
Ulice a čp.
Město/obec ! nutné vyplnit
PSČ
Telefon ! nutné vyplnit
Email
<%end if%>

EMZET-vlákna FORTA,Ashford Formula | Vlákna FORTA | Ashford Formula
Napište nám Mapa serveru Vlákna FORTA, Ashford Formula, vyztužení betonu - Úvodní stránka