ERTUĞRUL GÜNAY
Üye
- Kayıt
- 11 Eylül 2009
- Mesaj
- 69
- Tepki
- 0
mrb arkadaşlar sitem için bir sipariş formu yaptım müşteriler bu sipariş formunu doldurduktan sonra bilgilerin benim mail lime gelmesini istiyorum. yardımlarınızı bekliyorum.
<%
Function mailgonder(kimden_isim, kimden_mail, kime, konu, mesaj)
Set mektup = Server.CreateObject("CDONTS.NewMail" )
mektup.From = isim & " <" & mail & ">"
mektup.To = kime
mektup.Subject = konu
mektup.Body = mesaj
on error resume Next
mektup.SEnd
If err <> 0 Then
mailgonder = False
Else
mailgonder = True
End If
Set mektup = Nothing
End Function
isim = request.form("isim")
mail = request.form("mail")
kime = request.form("kime")
konu = request.form("konu")
mesaj = request.form("mesaj")
gonderildi = mailgonder(isim, mail, kime, konu, mesaj)
If gonderildi Then
Response.Write "maili yolladık"
Else
Response.Write "hata oluştu, maili yollayamadık"
End If
[COLOR=black]%>
[/COLOR]