<%@ LANGUAGE="VBSCRIPT" %>
<%
Sub Write(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
response.write(strWriteThis & " ")
end sub
%>
<%
Dim objNewMail
dim adi
dim teli
dim adres
dim epostasi
dim sikayeti
dim konu
dim GonderilecekEpostaAdresi
adi = trim("" & Request.Form("adsoyad"))
teli = trim("" & Request.Form("telefon"))
adresi = trim("" & Request.Form("adres") )
epostasi = trim("" & request.form("emailadresi"))
sikayeti = trim("" & Request.Form("sikayet") )
konu = "Sikayet ve Oneriler ( " & Now() & " ) "
GonderilecekEpostaAdresi = "mca@batmansifa.com.tr"
KM = "Bilgiler : "
KM = KM & "Adı Soyadı :" & adi & " "
KM = KM & "E-Postası : " & epostasi & " "
KM = KM & "Telefonu : " & teli & " "
KM = KM & "Adresi : " & adresi & "
"
KM = KM & "Sikayet Metni : " & sikayeti
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
objNewMail.Send epostasi, GonderilecekEpostaAdresi , konu , KM
Set objNewMail = Nothing
%>
