<%
shadowsong=request.querystring("shadowsong")
if shadowsong="sorusorarsan" then
response.redirect("?shadowsong=nedenasp")
end if
%>
<% case "nedenasp" %>
<% response.buffer=true %>
<% cevapalaka = request.querystring("soru") %>
<%
Dim strBody
Dim objCDOMail
Dim strMyEmailAddress
Dim strReturnEmailAddress
%>
<%
strMyEmailAddress = "
[email protected]"
strReturnEmailAddress = Request.ForUm("mail")
strBody = "<h2>Bilgilendirici amaçlı bir mail aldınız!</h2>"
strBody = strBody & "<br><b>Konu: </b>" & Request.ForUm("konu")
strBody = strBody & "<br><b>Açıklama: </b> Dünya' nın en büyük şirketi milyonlarca dolarlık yatırımlarla bu web diline ve devamı niteliğindeki abilerine yatırım yapmakta. Süreklilik ve destek sözkonusu. Anlaşılır ve açıklayıcı. Üretken ve etkili. Ulaşılabilir paylaşılır kaynaklara sahip. I love ASP & .Net & Vbs & C serisi..."
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
strReturnEmailAddress = strMyEmailAddress
End If
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("ad") & " <" & strReturnEmailAddress & ">"
objCDOMail.To = strMyEmailAddress
objCDOMail.Cc = strCCEmailAddress
objCDOMail.Bcc = strBCCEmailAddress
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Subject = "Kocan Emlak Web İletisim Formu"
objCDOMail.Body = strBody
objCDOMail.Importance = 1
objCDOMail.Send
et objCDOMail = Nothing
%>
<html>
<title>Mesaj Gönderildi</title>
<head>
<body bgcolor="C0C0C0">
<br><br><br>
<font name="tahoma" size="2" color="orange"><b>Kolay Gelsin...</b></font
</body>
</html>