|
BAŞAK TİCARET
Cemil Topuzlu Cad. No:55 Çiftehavuzlar - İstanbul - TÜRKİYE
Tel: 0216 4780812 - 13 | Fax: 0 216 3697989
<%
if Request("kontrol") <> "" then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.CharSet = "windows-1254"
Mail.Host = "mail.basakparke.com"
Mail.Username = "form@basakparke.com"
Mail.Password = "basak"
Mail.From = Request("email")
Mail.AddAddress "info@basakparke.com"
mail.Subject = "Yeni bir E-mail!"
smailBody=smailBody&"
"
smailBody=smailBody&"| Ismi: | "& Request("isim") &" | "
smailBody=smailBody&"| E-mail adresi: | "& Request("email") &" | "
smailBody=smailBody&"| Mesaj: | "& Request("mesaj") &" | "
smailBody=smailBody&" "
mail.Body = smailBody
Mail.IsHTML = True
mail.Send
Set mail=nothing
end if
%>
|
