tümü

html kod içine iletişim formu eklemek istiyorum

  1. 1.
    0
    <%
    If Request. querystring("Send") <> "" Then
    msg_txt = "<font face=""Tahoma"" size=""2""><b>Yeni iletişim Formu</b>"
    msg_txt = msg_txt & "<br><br><b>isim:</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><br><b>Mesajınız:</b><br>" & Request. form("mesaj")
    msg_txt = msg_txt & "</font>"

    Set Mail = Server. CreateObject("Persits. MailSender")
    Mail. Host = "mail. uzmanwebhosting.com"
    Mail. From = Request. form("From")
    Mail. FromName = Request. form("FromName")
    Mail. AddAddress "info@uzmanwebhosting.com"
    Mail. Subject = "iletişim Formu"
    Mail. IsHTML = True
    Mail. Body = msg_txt

    On Error Resume Next
    Mail. Send
    If Err <> 0 Then
    msg = "Mesajınız Gönderilemedi.<br>" & Err. Description
    else
    msg = "Mesajınız Alınmıştı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>iletişim</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="mail.asp? send=1" method="post">
    <tr><td colspan="2" align="center" style="padding-bottom:15"><font face="Tahoma" size="3">iletişim Formu</font></td></tr>
    <tr><td>isim</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>Mesajınız<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>
    ···
    #15849303 şikayet
   tümünü göster