ASPTurkiye.com Forum: mail form yardım edermisiniz?

implant

Aktif Konular

Üye Listesi

Arama

Yardım

Kayıt Ol

Giriş

ASP Uygulamaları
ASPTurkiye.com Forum : ASP Uygulamaları

Konu: mail form yardım edermisiniz?

Yazanlarda

Mesaj

<< Önceki Konu | Sonraki Konu >>

trambolin
Yeni Üye

Kayıt Tarihi: 21-Mayıs-2010
Ülke: Türkiye
Gönderilenler: 2

Gönderen: 21-Mayıs-2010 Saat 19:30 \| Kayıtlı IP

arkadaşlar aşşağıda vereceğim kod a ad soyad ve telefon numarası bölmesi eklemek istiyorum ama beceremedim kod tek sayfalık bir mail gönderme bileşeni yardımlarınızı bekliyorum

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>New Page 1</title>
</head>

<body>

</body>

<%
if request("action") = "gonder" then

from= "mail@domain.com" ' GERÇEK MAİL ADRESİNİZ
frompass= "şifrenizi yazın" ' MAİL ADRESİNİZİN ŞİFRESİ

to1 = request("to1")
subject = request("subject")
textbody = request("textbody")

Const cdoSendUsingMethod        = _
                 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort       &n bsp; = 2
Const cdoSMTPServer         ;     = _
                 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort       & nbsp; = _
                 "http://schemas.microsoft.com/cdo/configuration/smtpserverpo rt"
Const cdoSMTPConnectionTimeout = _
                 "http://schemas.microsoft.com/cdo/configuration/smtpconnecti ontimeout"
Const cdoSMTPAuthenticate       = _
                 "http://schemas.microsoft.com/cdo/configuration/smtpauthenti cate"
Const cdoBasic                    = 1
Const cdoSendUserName       &nb sp;   = _
                 "http://schemas.microsoft.com/cdo/configuration/sendusername "
Const cdoSendPassword       &nb sp;   = _
                 "http://schemas.microsoft.com/cdo/configuration/sendpassword "

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields     ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
                 .Item(cdoSendUsingMethod)       ; = cdoSendUsingPort
                 .Item(cdoSMTPServer)      &nbs p;     = "127.0.0.1"
                 .Item(cdoSMTPServerPort)       = 25
                 .Item(cdoSMTPConnectionTimeout) = 10
                 .Item(cdoSMTPAuthenticate)      = cdoBasic
                 .Item(cdoSendUserName)      &n bsp;   = from
                 .Item(cdoSendPassword)      &n bsp;   = frompass

                 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
                 .To       = to1
                 .From     = from
                 .Subject = subject
                 .TextBody = textbody
                 .Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>

MESAJ GONDERILMISTIR </p>

<%else%>

<form method="POST" action="<%=Request.ServerVariables("script_name")%>"&g t;
                 <table border="1" width="100%">

                                  <tr>
                                                    <td>To: </td>
                                                    <td><input type="text" name="to1" size="50"></td>
                                  </tr>
                                  <tr>
                                                    <td>Konu</td>
                                                    <td><input type="text" name="subject" size="50"></td>
                                  </tr>
                                  <tr>
                                                    <td>Mesaj:
                                                    <p> </td>
                                                    <td><textarea rows="4" name="textbody" cols="50"></textarea></td>
                                  </tr>
                 </table>
                 <p> <input type="submit" value="Gönder" name="B1"></p>

                 <input type="hidden" name="action" value="gonder">

</form>
 <p>

<%end if%>

</html>

__________________
www.trambolin.net

Yukarı Dön

sevimoglu
Yeni Üye

Kayıt Tarihi: 24-Mayıs-2010
Ülke: Turkiye
Gönderilenler: 3

Gönderen: 24-Mayıs-2010 Saat 12:10 \| Kayıtlı IP

<%
If Request.querystring("Send") <> "" Then
msg_txt = "<font face=""Tahoma"" size=""2""><b>Formu</b>"
msg_txt = msg_txt & "<br><br><b>İsim Soyisim:</b> " & Request.form("FromName")
msg_txt = msg_txt & "<br><b>Email:</b> " & Request.form("From")
msg_txt = msg_txt & "<br><b>Firma:</b> " & Request.form("Firma")
msg_txt = msg_txt & "<br><b>Telefon:</b> " & Request.form("Phone")
msg_txt = msg_txt & "<br><b>Gsm:</b> " & Request.form("gsm")
msg_txt = msg_txt & "<br><b>Adres:</b> " & Request.form("adres")
msg_txt = msg_txt & "<br><b>Fax:</b> " & Request.form("fax")
msg_txt = msg_txt & "<br><b>İl:</b> " & Request.form("il")
msg_txt = msg_txt & "<br><b>İlçe:</b> " & Request.form("ilce")
msg_txt = msg_txt & "<br><br><b>Mesajınız:</b><br> " & Request.form("mesaj")
msg_txt = msg_txt & "</font>"

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.MAİL ADRESIN XXX"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "MAİL ADRESİNİ YAZXXX"
Mail.Subject = "Bayi Formu"
Mail.IsHTML = True
Mail.Body = msg_txt

On Error Resume Next
Mail.Send
If Err <> 0 Then
  msg = "Gönderilmedi. Hata yaptınız.<br>" & Err.Description
else
  msg = "Kaydınız Tamamlanmıştır.Tekrar size dönülerek onay alınacaktır.."
End If
End If
%>
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>FORMU</title>
<style type="text/css">
td{
  font-family: Tahoma;
  font-size: 11px;
  font-weight: bold;
  padding: 2 5 2 0
}
input,textarea{
  font-family: Tahoma;
  font-size: 11px;
  width: 150px;
}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#3366CC" vlink="#666666" alink="#996600">
<table cellpadding="0" cellspacing="0" align="center">
<form action="bayilik.asp?send=1" method="post">
<tr><td colspan="2" align="center" style="padding-bottom:15">
  <font face="Tahoma" size="3">
  <br>
  <img src="cark/_mail.png" width="64" height="64"><br>
  Bayi Müracat
Formu</font></td></tr>
<tr><td>İsim Soyisim</td>
  <td><input type="Text" name="FromName"></td>
</tr>
<tr><td>Email</td>
  <td><input type="Text" name="From"></td>
</tr>
<tr><td>Firma</td>
  <td><input type="Text" name="Firma"></td>
</tr>
<tr><td>Telefon</td>
  <td><input type="Text" name="Phone"></td>
</tr>
<tr><td>Gsm</td>
  <td><input name="gsm" size="25"></td>
</tr>
<tr><td>Adres</td>
  <td><input name="adres" size="30"></td>
</tr>
<tr><td>Fax</td>
  <td><input name="fex" size="20"></td>
</tr>
<tr><td>İl</td>
  <td><input name="il" size="20"></td>
</tr>
<tr><td>İlçe</td>
  <td><input name="ilce" size="20"></td>
</tr>
<tr><td>Bayi Notları<br></td>
  <td><textarea name="mesaj" rows="4"></textarea></td>
</tr>
<tr><td colspan="2" align="right"><input type="Submit" value="Gönder" style="width:50px"></td></tr>
<%If Request.querystring("Send") <> "" Then%>
<tr><td colspan="2" align="center"><%=msg%></td></tr>
<%End If%>
</form>
</table>
</body>
</html>

DENENMISTIR

__________________
design hakan

Yukarı Dön

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

Yazıcı Sürümü

Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Kapalı Forumda Anketlerde Oy Kullanma