Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
ACİLLLL ASP FORM
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Bu Konudaki Kullanıcılar:
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
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
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
