<% response.write now() if request("islem") = "gonder" then call gonder end if %>

                         

UNDER CONSTRUCTION

  Addres  : Atatürk Bulvarı Urhan İş Merkezi No:2 Kat:7 DENİZLİ TURKEY  
  Phone :: +90 258 261 62 97  
  Fax  : +90 258 264 11 93  
  Info  : info@mhc2000.com  
  Web  : http://www.mhc2000.com/  
         

İletişim Formu

Adı ve Soyadı :   E-Mail :
Telefon :   Konu :
Mesaj :
     
     		       
 
<% sub gonder %> <% if request.Form("email")= "" or request.Form("ad") = "" or request.Form("gorusler") = "" then with response .write "" .write "" end with else mesaj = "

İsim:  " & request.form("ad") &"
Telefon:  " & request.form("tel") & "
E-Mail: " & request.form("email") & "
Mesaj : " & request.form("gorusler") & "

" Set Mail = Server.CreateOBject("JMail.Message") Mail.Charset = "ISO-8859-9" Mail.Logging = True Mail.Silent = True Mail.From = request.Form("email") Mail.FromName = request.Form("ad") 'Mail.AddRecipient "info@mhc2000.com" Mail.AddRecipient "info@mhc2000.com" Mail.Subject = request.Form("konu") Mail.HTMLBody = mesaj Mail.Send mailserver 'Mail.Send("mail.zerkom.com") Set Mail = Nothing with response .write "" .write "" end with %> <%end if%> <% end sub %>