<%
email=Request.Form("email")
firma=Request.Form("firma")
sidlo=Request.Form("sidlo")
dodani=Request.Form("dodani")
ico=Request.Form("ico")
dic=Request.Form("dic")
tel=Request.Form("tel")
fax=Request.Form("fax")
mobil=Request.Form("mobil")
kontakt=Request.Form("kontakt")
vzkaz=Request.Form("vzkaz")
if len(email)>0 then
on error resume next
dim mymail
set mymail=server.CreateObject("cdonts.newmail")
mymail.from=email
mymail.to="sykorova@bestmedia.cz"
mymail.subject="Velkoobchodník"
mymail.body="Firma: "+firma+"; Sídlo: "+sidlo+"; Ddodací adresa: "+dodani+"; IČO: "+ico+"; DIČ: "+dic+"; Telefon: "+tel+"; Fax: "+fax+"; Mobil: "+mobil+"; E-mail: "+email+"; Kontaktní osoba: "+kontakt+"; Vzkaz: "+vzkaz
mymail.send
if err.number<>0 then
Response.Write ("Neodesláno")
err.clear
else
Response.Write ("Odesláno")
end if%>
">Návrat
zpět
<%
else%>
<%
end if%>