implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP Uygulamaları
 ASPTurkiye.com Forum : ASP Uygulamaları
Konu Konu: mail form yardım edermisiniz? Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
trambolin
Yeni Üye
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 Alıntı trambolin

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>&nbsp;</td>
                                                    <td><textarea rows="4" name="textbody" cols="50"></textarea></td>
                                  </tr>
                 </table>
                 <p>&nbsp;<input type="submit" value="Gönder" name="B1"></p>
                
                 <input type="hidden" name="action" value="gonder">
                
</form>
&nbsp;<p>

<%end if%>


</html>



__________________
www.trambolin.net
Yukarı Dön Göster trambolin's Özellikler Diğer Mesajlarını Ara: trambolin Ziyaret trambolin's Ana Sayfa
 
sevimoglu
Yeni Üye
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 Alıntı sevimoglu

<%
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 Göster sevimoglu's Özellikler Diğer Mesajlarını Ara: sevimoglu
 

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

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
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

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.