Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Tasarım ve grafik
  • Bu Konuda
Şimdi Ara

ACİLLLL ASP FORM

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
9
Cevap
0
Favori
332
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • merhaba arkadaslar. ASP hakkında pe bi bilgim yok. bir iletişim formu yapmak istiyorum. yardımcı olurmusunuz.?formda yer alacak bilgiler:
    Firma Adı:
    Ad Soyad:
    Telefon:
    E-mail:
    Mesajınız:
    Yardımlarınızı bekliyorum



  • www.aspindir.com a gir

    yada bunu kullan

    -------------------------- istek.asp --------------

    <html>
    <%@LANGUAGE = "VBSCRIPT"%>
    <%
    'Hadi başlayalım
    Function EmailCheck(sEmail)
    EmailCheck = false
    Dim regEx, retVal
    Set regEx = New RegExp
    regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"
    regEx.IgnoreCase = true
    retVal = regEx.Test(sEmail)
    If not retVal Then
    exit function
    End If
    EmailCheck = true
    End Function

    DateTime = Now() 'date time in şimdi olduğunu belirttik
    %>
    <html>
    <head>
    <title>SesLiaLeM</title>
    <meta http-equiv="content-type" content="text/html;charset=ISO-8859-9">
    <meta http-equiv="content-type" content="text/html;charset=windows-1254">
    <style type="text/css">
    a:link { color: #666666; text-decoration: underline; }
    a:visited { color: #666666; text-decoration: underline; }
    a:active { color: #666666; text-decoration: underline; }
    a:hover { color: #666666; text-decoration: underline; }

    .text { font-family: Georgia, Times New Roman, serif; font-size: 13px; color: #777777; }
    .fmtext { font-family: Tahoma, Arial, Helvetica, sans-serif; font-size: 12px; color: #777777; }

    .button {
    background-color:#F9CC34;
    border: 1px solid #E3A035;
    background-image: url(images/bu_orange.gif);
    font-family: Tahoma, Arial, sans-serif;
    font-size: 12px; font-weight: bold;
    color: #717171;
    height: 25px;
    cursor: hand;
    }

    input {
    padding:3px;
    font-family: Tahoma, Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #777777;
    border: 1px solid #F0D8A9;
    background-image: url(images/input_bg.gif);
    background-repeat: repeat-x;
    height:22px;
    }

    textarea {
    padding:3px;
    font-family: Tahoma, Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #777777;
    border: 1px solid #F0D8A9;
    background-image: url(images/input_bg.gif);
    background-repeat: repeat-x;
    background-position: top left;
    background-color: #FBFBD1;
    }

    select {
    font-family: Tahoma, Arial, Helvetica, sans-serif;
    font-size: 12px;
    color: #777777;
    border: 1px solid #F0D8A9;
    background-color: #FBFBD1;
    }
    </style>
    <script language="Javascript1.2">
    <!-- // load htmlarea
    _editor_url = "htmlarea/"; // URL to htmlarea files
    var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
    if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
    if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
    if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
    if (win_ie_ver >= 5.5) {
    document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
    document.write(' language="Javascript1.2"></scr' + 'ipt>');
    } else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
    // -->
    </script>
    </head>

    <body bgcolor="#FFFFFF" text="#000000">
    <table width="50%" border="0" cellspacing="5" cellpadding="0" class="text">
    <tr>
    </td>
    </tr>
    <tr>
    <td><%
    If Request.Querystring("send") = "True" Then
    fmTo = Trim(Request.Form("fmTo"))
    fmFrom = Trim(Request.Form("fmFrom"))
    fmFromname = Trim(Request.Form("fmFromName"))
    fmName = Trim(Request.Form("fmName"))
    fmSubject = Trim(Request.Form("fmSubject"))
    fmBody = Trim(Request.Form("fmBody"))
    fmAttach = Request.Form("fmAttach")

    Call SendMail(fmTo,fmFrom,fmFromName,fmName,fmSubject,fmBody,fmAttach)

    Else
    Response.Write("Lütfen formdaki alanları doldurunuz.")
    End If
    %></td>
    </tr>
    <tr>
    <td><hr></td>
    </tr>
    <tr>
    <td bgcolor="#FFFFFF">
    <table width="100%" border="0" cellspacing="5" cellpadding="0" class="fmtext">
    <col align="right" width="40%"><col align="left" width="60%">
    <form name="sendmail" method="post" action="istek.asp?send=True">
    <tr>
    <td>Mailimiz</td>
    <td><input type="text" name="fmTo" value="istek@seslialem.com" size="43"></td>
    </tr>
    <tr>
    <td>Sizin Mailiniz</td>
    <td><input type="text" name="fmFrom" value="<%=fmFrom%>" size="43"></td>
    </tr>
    <tr>
    <td>Firma ADI</td>
    <td><input type="text" name="fmFromName" value="<%=fmFromName%>" size="43"></td>
    </tr>
    <tr>
    <td>Ad Soyad</td>
    <td><input type="text" name="fmName" value="<%=fmName%>" size="43"></td>
    </tr>
    <tr>
    <td>Tel :</td>
    <td><input type="text" name="fmSubject" value="<%=fmSubject%>" size="43"></td>
    </tr>
    <tr>
    <td colspan="2" align="center">
    <textarea name="fmBody" style="width:100%; height:200px;">

    </textarea>
    <script language="javascript1.2">
    var config = new Object(); // create new config object

    config.width = "100%";
    config.height = "200px";
    config.bodyStyle = 'background-color: white; font-family: "Verdana"; font-size: x-small;';
    config.debug = 0;

    config.toolbar = [
    ['fontname','fontsize'],
    ['separator','forecolor','backcolor','separator','popupeditor'],
    ['linebreak'],
    ['bold','italic','underline','separator'],
    ['justifyleft','justifycenter','justifyright','separator'],
    ['OrderedList','UnOrderedList','separator','Outdent','Indent','separator'],
    ['strikethrough','subscript','superscript','separator'],
    ['HorizontalRule','Createlink','htmlmode'],
    ];

    config.fontnames = {
    "Arial": "arial, helvetica, sans-serif",
    "Courier New": "courier new, courier, mono",
    "Georgia": "Georgia, Times New Roman, Times, Serif",
    "Tahoma": "Tahoma, Arial, Helvetica, sans-serif",
    "Times New Roman": "times new roman, times, serif",
    "Verdana": "Verdana, Arial, Helvetica, sans-serif",
    "impact": "impact",
    "WingDings": "WingDings"
    };
    config.fontsizes = {
    "8 pt": "1",
    "10 pt": "2",
    "12 pt": "3",
    "14 pt": "4",
    "18 pt": "5",
    "24 pt": "6",
    "36 pt": "7"
    };

    editor_generate('fmBody',config);
    </script>
    </td>
    </tr>

    <tr>
    <td><input type="reset" name="fmReset" value="Temizle" class="button"></td>
    <td><input type="submit" name="fmSubmit" value="Gönder »" class="button"></td>
    </tr>
    </form>
    </table>
    </td>
    </tr>
    <tr>
    <td> </td>
    </tr>
    </table>

    </html>
    <%
    'Mail göndermeye başlayalım
    Sub SendMail(smTo,smFrom,smFromName,smName,smSubject,smBody,smAttach)
    On Error Resume Next 'Scriptte hata varsa

    strErr = "" 'Hatalara bakalım

    If EmailCheck(smTo) = False Then
    strErr = strErr & "<li>Alıcı Email adresi hatalı!</li>"
    End If
    If EmailCheck(smFrom) = False Then
    strErr = strErr & "<li>Gönderen'in Email adresi hatalı!</li>"
    End If
    If Len(smFromName) > 0 Then
    smFromage = smFromName & "<" & smFrom & ">"
    End If

    If strErr = "" Then 'Formda hata yoksa

    Set iMsg = CreateObject("CDO.Message")
    With iMsg
    .To = smTo
    .From = smFromage
    If Len(smName) > 0 Then
    .CC = smName
    End If
    .Subject = smSubject
    .HTMLBody = smBody
    If Len(smAttach) > 0 Then
    Set iBp = .AddAttachment(smAttach)
    End If
    .Send
    End With

    'TemizLendi
    Set iMsg = Nothing
    If Len(smAttach) > 0 Then
    Set iBp = Nothing
    End If

    If Err > 0 Then 'Eğer bir problem varsa
    Response.Write("<b>Mail Gönderilemedi!</b> Hata Kodu:")
    Response.Write("<ul><li>" & Err.Description & "</li><ul>")
    Else 'Başarılar! Mail Gönderildi
    Response.Write("<b><center>Mail Gönderildi!</b><br>Kime: <i>" & smTo & "</i> Gün: " & FormatDateTime(DateTime,vbLongDate) & " Saat: " & FormatDateTime(DateTime,vbLongTime))
    smTo = ""
    smFrom = ""
    smFromName = ""
    smName = ""
    smSubject = ""
    smBody = ""
    smAttach = ""
    End If

    Else 'Eğer gönderilemediyse neden gönderilemediğini yazalım ki gönderen hatasını düzeltsin
    Response.Write("<b>Mail Gönderilemedi!</b> Hata Kodu:")
    Response.Write("<ul>" & strErr & "</ul")
    End If
    End Sub
    %>




  • teşekkür ederim. akşam bi deneyeyim. şu anda dersteyim
  • arkadaşlar. bana yardım edebilirmisiniz.
    Asp hakkında hiç bi bilgim yokmuş hiç bişiy yapamadım.
    Şu alanlara sahip bi mail formu yapmak istiyorm.
    Firma adı
    Ad soyad
    Telefon
    Mesaj
    Bana bu formu yapıp gönderebilirmisiniz. teşekkürler
  • sana verdigim kodları al
    istek.asp diye kaydet oldu bitti.... bukadar.
  • kardeş. kaydettim dediğin gibi fakat olmadı. bi değişiklik yapmam gerekiyormu?internete gönderdim sayfa görüntülenemiyor diyor. birde ben bilgisayarım da iss yi kurdum fakat asp sayfasını bilgisayarımda nasıl çalıştıracağımı bilmiyorum. yardımcı olurmusun?
  • bende calısıyor..

    dosyayı attıgın yerin adresini var bakalım
  • bu asp yi çalıştırmak için ne yapmalıyım. yaptığımız istek.asp yi bilgisayarımda nereye kopyalamalıyım?bilgisayarımda çalışması için?
  • forumda arat calıstırma seklini yazmıstım bi kere
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız