<%
Dim sSayfaIcerigi,HTML
sSayfaIcerigi=Request.Form("txtSayfa")
if sSayfaIcerigi<>"" Then
'Sayfanın Body dahil HTML yapısını clientta alıyoruz
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "İletişim Formu"
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & sSayfaIcerigi
HTML = HTML & ""
On Error Resume Next
'Mail objesini yarat
Set objMailer = Server.CreateObject("Dundas.Mailer")
objMailer.SMTPRelayServers.Add "mail.mvturizm.com.tr",25
objMailer.TOs.Add "mvturizm@mvturizm.com.tr"
objMailer.FromAddress = "mvturizm@mvturizm.com.tr"
objMailer.Subject = "İLETİŞİM FORMU"
objMailer.HTMLBody=HTML
objMailer.HTMLBodyCharSet="windows-1254"
'Email gönder
objMailer.SendMail
Set objMailer = Nothing
If Err.number=0 Then
Response.Write "
Bilgileriniz gönderilmiştir. En kısa sürede size cevap verilecektir.
"
Else
Response.Write "ErrNo::" & Err.number & "-Desc::" & Err.description
End If
End If
%>
E-mail
:
mvturizm@mvturizm.com.tr
MV Tourism& Organisation
Cumhuriyet Cad. Can Apt. No:309 Kat:2 34373 Harbiye, Sisli / Istanbul
