ASP kodları ile iletişim sayfanız (web mail)
Başlatan Misafir_bilimselci_*, 17 May 2008 13:59
Bu başlığa 1 cevap verilmiş
#1 Misafir_bilimselci_*
Gönderi Tarihi: 17 Mayıs 2008 - 13:59
Kendi adresinizle ilgili olan kısımları değiştirmelisiniz.
Dosya adı: mail.asp
[quote]<body bgcolor="#8gbc8g">
<div style="position: absolute; width: 395px; height: 188px; z-index: 1; left: 220px; top: 200px" id="layer1">
<form action="gonder.asp" method="post">
<table border="0" width="100%" cellspacing="1" cellpadding="1" height="183">
<tr>
<td align="right" width="105"><b>Adınız:</b></td>
<td> <input type="text" name="a1" style="border: 1px solid #000000" size="30"></td>
</tr>
<tr>
<td align="right" width="105"><b>E-Mail'iniz:</b></td>
<td> <input type="text" name="a6" style="border: 1px solid #000000" size="30"></td>
</tr>
<tr>
<td align="right" width="105" height="36"><b>İletiniz:</b></td>
<td height="56"> <textarea rows="4" name="a7" cols="30" style="border: 1px solid #000000"></textarea></td>
</tr>
<tr>
<td align="right" width="105"> </td>
<td><b> <input type=submit value=Gönder style="border: 2px solid #000000"></b></td>
</tr>
</form>
</table>
</div>
<div style="position: absolute; width: 260px; height: 27px; z-index: 2; left: 334px; top: 150px" id="layer2">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#CCFF66">
<tr>
<td><font size="2" face="Tahoma"><b> www.siteadi.com İletişim Formu</b></font></td>
</tr>
</table>
</div>[/quote]
Dosya adı: gonder.asp
[quote]<head>
<meta http-equiv="Content-Language" content="tr">
</head>
<%
msg_txt = "<font face=""Tahoma"" size=""2""><b>E-yozgat</b>"
msg_txt = msg_txt & "<br><br><b>Adınız:</b> " & Request.form("a1")
msg_txt = msg_txt & "<br><b>Soyadınız :</b> " & Request.form("a21")
msg_txt = msg_txt & "<br><b>Mesleğiniz :</b> " & Request.form("a4")
msg_txt = msg_txt & "<br><b>Şehir :</b> " & Request.form("a5")
msg_txt = msg_txt & "<br><b>E-Mail :</b>" & Request.form("a6")
msg_txt = msg_txt & "<br><b>Yorumunuz :</b>" & Request.form("a7")
msg_txt = msg_txt & "</font>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.siteadi.com"'---------------------------------------------> Mail server buraya yazılacak
Mail.From = Request.form("From")'--------------------------------------------> Kimden
Mail.FromName = Request.form("a1")'--------------------------------------> İsim
Mail.AddAddress "mail@siteadi.com.com"'----------------------------------------> Mail Adresi
Mail.Subject = "siteadi.com Mail Form!"'---------------------------------------> Mail Konu
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
%>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center">Mesajınız Gönderildi.</p>
<p align="center"> İlginiz İçin Teşekkürler</p>[/quote]
Dosya adı: mail.asp
[quote]<body bgcolor="#8gbc8g">
<div style="position: absolute; width: 395px; height: 188px; z-index: 1; left: 220px; top: 200px" id="layer1">
<form action="gonder.asp" method="post">
<table border="0" width="100%" cellspacing="1" cellpadding="1" height="183">
<tr>
<td align="right" width="105"><b>Adınız:</b></td>
<td> <input type="text" name="a1" style="border: 1px solid #000000" size="30"></td>
</tr>
<tr>
<td align="right" width="105"><b>E-Mail'iniz:</b></td>
<td> <input type="text" name="a6" style="border: 1px solid #000000" size="30"></td>
</tr>
<tr>
<td align="right" width="105" height="36"><b>İletiniz:</b></td>
<td height="56"> <textarea rows="4" name="a7" cols="30" style="border: 1px solid #000000"></textarea></td>
</tr>
<tr>
<td align="right" width="105"> </td>
<td><b> <input type=submit value=Gönder style="border: 2px solid #000000"></b></td>
</tr>
</form>
</table>
</div>
<div style="position: absolute; width: 260px; height: 27px; z-index: 2; left: 334px; top: 150px" id="layer2">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#CCFF66">
<tr>
<td><font size="2" face="Tahoma"><b> www.siteadi.com İletişim Formu</b></font></td>
</tr>
</table>
</div>[/quote]
Dosya adı: gonder.asp
[quote]<head>
<meta http-equiv="Content-Language" content="tr">
</head>
<%
msg_txt = "<font face=""Tahoma"" size=""2""><b>E-yozgat</b>"
msg_txt = msg_txt & "<br><br><b>Adınız:</b> " & Request.form("a1")
msg_txt = msg_txt & "<br><b>Soyadınız :</b> " & Request.form("a21")
msg_txt = msg_txt & "<br><b>Mesleğiniz :</b> " & Request.form("a4")
msg_txt = msg_txt & "<br><b>Şehir :</b> " & Request.form("a5")
msg_txt = msg_txt & "<br><b>E-Mail :</b>" & Request.form("a6")
msg_txt = msg_txt & "<br><b>Yorumunuz :</b>" & Request.form("a7")
msg_txt = msg_txt & "</font>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.siteadi.com"'---------------------------------------------> Mail server buraya yazılacak
Mail.From = Request.form("From")'--------------------------------------------> Kimden
Mail.FromName = Request.form("a1")'--------------------------------------> İsim
Mail.AddAddress "mail@siteadi.com.com"'----------------------------------------> Mail Adresi
Mail.Subject = "siteadi.com Mail Form!"'---------------------------------------> Mail Konu
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
%>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center">Mesajınız Gönderildi.</p>
<p align="center"> İlginiz İçin Teşekkürler</p>[/quote]
#2
Gönderi Tarihi: 22 Ekim 2009 - 20:29
arkadaşlar,ben excel proğramındaki işaretlediğim herhangi bir kelimenin anlamını benim belirlediğim bir sözlük sitesinden arama yapmasını istersem hangi kodu yazmam lazım?örneğin excel'de köprü ekle diye bir menü var orayı açtığımda o sitenin ismini yazdığımda siteyi getiriyor fakat arama yapmıyor.oysaki o sözlük sitesinden direk arama yapmasını elde edebilmem için hangi komutları yazmam lazım?bu konuda bilgi verirseniz memnun olurum.

















