%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
contact form
English Germany aesthetic cosmetic surgery contact
<%
isim = Request("txtisim")
firma = Request ("txtfirma")
adres = Request ("txtadres")
tel = Request("txttel")
mail = Request("txtmail")
sehir= Request("txtsehir")
mesaj = Request("txtmsg")
gonder = Request("btngonder")
if gonder <> "" Then
strAlacakKisiIsim = "PSCLINIC"
strAlacakMail = "iletisim@teomandogan.com"
strYollayan= mail
strKimdenIsim = "Web Mail"
strBaslik = isim
strMesaj = ""
strMesaj = strMesaj & ""
strMesaj = strMesaj & " "
strMesaj = strMesaj & "| Ad Soyad | "
strMesaj = strMesaj & ": | "
strMesaj = strMesaj & ""&isim&" | "
strMesaj = strMesaj & "
"
strMesaj = strMesaj & " "
strMesaj = strMesaj & "| Yaþ | "
strMesaj = strMesaj & ": | "
strMesaj = strMesaj & ""&firma&" | "
strMesaj = strMesaj & "
"
strMesaj = strMesaj & " "
strMesaj = strMesaj & "| E-mail | "
strMesaj = strMesaj & ": | "
strMesaj = strMesaj & ""&mail&" | "
strMesaj = strMesaj & "
"
strMesaj = strMesaj & " "
strMesaj = strMesaj & "| Þehir | "
strMesaj = strMesaj & ": | "
strMesaj = strMesaj & ""&sehir&" | "
strMesaj = strMesaj & "
"
strMesaj = strMesaj & " "
strMesaj = strMesaj & "| Telefon | "
strMesaj = strMesaj & ": | "
strMesaj = strMesaj & ""&tel&" | "
strMesaj = strMesaj & "
"
strMesaj = strMesaj & " "
strMesaj = strMesaj & "| Cinsiyet | "
strMesaj = strMesaj & ": | "
strMesaj = strMesaj & ""&adres&" | "
strMesaj = strMesaj & "
"
strMesaj = strMesaj & " "
strMesaj = strMesaj & "| Mesaj | "
strMesaj = strMesaj & ": | "
strMesaj = strMesaj & ""&mesaj&" | "
strMesaj = strMesaj & "
"
strMesaj = strMesaj & "
"
Set objYeniMail = Server.CreateObject ("CDONTS.NewMail")
objYeniMail.BodyFormat =0
objYeniMail.MailFormat = 0
objYeniMail.Send strYollayan, strAlacakMail, strBaslik, strMesaj
End if
%>