Neler yeni

Welcome to SATBİL FORUM PAYLAŞIM

Join us now to get access to all our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, and so, so much more. It's also quick and totally free, so what are you waiting for?

Bir Satbil Forum Efsanesi

Satbil Reklam Alanı

Satbil Forum Reklam

Asp mail gönderme formu

PowerDns

New member
Local time
18:33
Katılım
30 Ocak 2008
Mesajlar
57
Tepkime puanı
1
Puanları
0
<%

isim=request.form("isim" )
mail=request.form("mail" )
mesaj=request.form("mesaj" )
icerik = "<b>isim :</b> "&isim&"<br><b>Mail :</b> "&mail&"<br><b>İP :</b> "&request.servervariables("remote_addr" )&"<br><b>Mesaj :</b> "&mesaj&""

MailServer="mail.sitenizinadi.com"
Set Msg = Server.CreateObject( "JMail.Message" )

gonderen=request.form("mail" )
gidecek="mail@mail.com"


Msg.charset="ISO-8859-9"
Msg.MailServerUserName="sizin mail adresiniz"
Msg.MailServerPassWord="mail adresinizin şifresi"
Msg.AddRecipient gidecek
Msg.From=""&gonderen&""
Msg.Subject="iletisim Formu"
Msg.htmlBody=""&icerik&""
Msg.Priority="3"
Msg.AddHeader "Originating-IP", SenderIp
on error resume next
Msg.send(MailServer )
Msg.close

response.write "Mail Gönderildi"
%>
 
shape1
shape2
shape3
shape4
shape7
shape8
Üst