Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
| Kod Alanı: |
<% ip_v = request.form("ip_v") ad= request.form("ad") e_mail= request.form("e_mail") tel= request.form("tel") icerik= request.form("icerik") istek= request.form("istek") For Each x In Request.Form message=message & x & ": " & Request.Form(x) & "<br>" Next Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "127.0.0.1" Mail.AddAddress "xxx@xxx.xxx" Mail.Subject = ad Mail.From = e_mail Mail.FromName = ad Mail.Charset = "windows-1254" Mail.IsHTML = True Mail.Body = "<b>Web mail Destek<b>" &"<br>" &"<br>" & _ "<b>Adı Soyadı : </b>" &ad&"<br>" & _ "<b>Telefon Numarası : </b>" &tel &"<br>" &_ "<b>Web İçeriği : </b>" &icerik&"<br>" &_ "<b>İstekleriniz : </b>" &istek&"<br>" &_ "<b>ip : </b>" &ip_v&"<br>" On Error Resume Next Mail.Send If Err <> 0 Then response.Write err.Description else response.Redirect ("git.asp?id=&ad&") End If |