0
Kayıt Ol

Asp mail form yardım

5

●

1.232

  • 20-05-2009, 00:54:59
    #1
    McCOY35
    McCOY35
    merhaba arkadaşlar bir html sayfa hazırladım içinede mail form koymak istedim serverdada bileşen olarak CDONTS yüklü imiş onu öğrendim ona uygun kodlar bulup yerleştirdim iki koddada hata alıyorum aldığıım hatalar ve kullandığım kodları veriyorum yardımcı olan arkadaşlara şimdiden teşekkürler

    hata kodu
    Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/mail.asp, line 11

800401f3
    kaynak kod
    <%
If Request.querystring("Send") <> "" Then
	msg_txt = "<font face=""Tahoma"" size=""2""><b>Yeni İletişim Formu</b>"
	msg_txt = msg_txt & "<br><br><b>İsim:</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("CDONTS.NewMail")
	Mail.Host = "mail.halilmorel.com"
	Mail.From = Request.form("From")
	Mail.FromName = Request.form("FromName")
	Mail.AddAddress "mccoy35@hotmail.com"
	Mail.Subject = "İletiş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>İletiş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">İletişim Formu</font></td></tr>
	<tr><td>İsim</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>
    ikinci denediğim ise hata kodu
    Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/gonder.asp, line 7

800401f3
    kaynak kod ise

    <%
isim = request.form("isim")
baslik = request.form("baslik")
email = request.form("email")
mesaj = request.form("mesaj")

Set Posta = Server.CreateObject("CDONTS.NewMail")
Posta.To = "mail@domain.com"
Posta.From = email
Posta.Subject = baslik
Posta.BodyFormat= 0
Posta.MailFormat= 0

Posta.Body = mesaj
Posta.SEnd
%>
<html>

<head>
<title>Mail Gönderildi</title>
</head>

<body>
Mail'iniz gönderilmiştir.Tebrikler !!!
</body>

</html>
    bu hatarı nasıl düzeltebilirim ??
  • 20-05-2009, 09:48:26
    #2
    akbalci
    akbalci
    CDONTS yüklü olduğunu kim söylediyse yalan söylemiş

    hatanın açılımı sisteminizde CDONTS.NewMail bileşeni yüklü değil demek
  • 20-05-2009, 11:32:59
    #3
    McCOY35
    McCOY35
    hostingi aldıkları yer söylemiş bende onların yalancısıyım ve bi şekilde bu olayı çözmem gerekiyor ne yapacağımı şaşırdım kaldım
  • 25-05-2009, 13:04:47
    #4
    gogoturk
    gogoturk
    Yeni serverlarda artık CDONTS yerine CDOSYS kullanılıyor. CDONTS'un yeni versiyonu. Ona da hala CDONTS diye hitap ediyorlar. Aşağıda CDOSYS için örnek kullanım gönderdim. Gerekli ayarları kendine göre düzenle ve kullan. Microsoftla ilgili olan yere dokunmuyorsun.

    Dim Subject, Body, SenderEmail, RecipientEmail, SMTPServer, SMTPusername, SMTPpassword

    SenderEmail = "me@mydomain.tld"
    RecipientEmail= "someone@somedomain.tld"
    SMTPserver = "mail.mydomain.tld"
    SMTPusername = "me@mydomain.tld"
    SMTPpassword = "mypassword"

    Subject = "Hello"
    Body = "This is a test. Please ignore."


    sch = "http://schemas.microsoft.com/cdo/configuration/"
    Set cdoConfig = CreateObject("CDO.Configuration")
    With cdoConfig.Fields
    .Item(sch & "sendusing") = 2
    .Item(sch & "smtpserver") = SMTPserver
    .Item(sch & "smtpserverport") = 587
    .Item(sch & "smtpauthenticate") = 1
    .Item(sch & "sendusername") = SMTPusername
    .Item(sch & "sendpassword") = SMTPpassword
    .Item(sch & "smtpusessl") = False
    .Item(sch & "connectiontimeout") = 100
    .update
    End With
    Const cdoSendUsingPickup = "c:\inetpub\mailroot\pickup"
    Set cdoMessage = CreateObject("CDO.Message")
    With cdoMessage
    Set .Configuration = cdoConfig
    cdoMessage.From = SenderEmail
    cdoMessage.To = RecipientEmail
    cdoMessage.Subject = Subject
    cdoMessage.TextBody = Body
    cdoMessage.Send
    End With
    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
  • 25-05-2009, 13:47:30
    #5
    McCOY35
    McCOY35
    gogoturk adlı üyeden alıntı: mesajı görüntüle
    Dim Subject, Body, SenderEmail, RecipientEmail, SMTPServer, SMTPusername, SMTPpassword
    SenderEmail = "me@mydomain.tld"
    RecipientEmail= "someone@somedomain.tld"
    SMTPserver = "mail.mydomain.tld"
    SMTPusername = "me@mydomain.tld"
    SMTPpassword = "mypassword"
    Subject = "Hello"
    Body = "This is a test. Please ignore."
    sch = "http://schemas.microsoft.com/cdo/configuration/"
    Set cdoConfig = CreateObject("CDO.Configuration")
    With cdoConfig.Fields
    .Item(sch & "sendusing") = 2
    .Item(sch & "smtpserver") = SMTPserver
    .Item(sch & "smtpserverport") = 587
    .Item(sch & "smtpauthenticate") = 1
    .Item(sch & "sendusername") = SMTPusername
    .Item(sch & "sendpassword") = SMTPpassword
    .Item(sch & "smtpusessl") = False
    .Item(sch & "connectiontimeout") = 100
    .update
    End With
    Const cdoSendUsingPickup = "c:\inetpub\mailroot\pickup"
    Set cdoMessage = CreateObject("CDO.Message")
    With cdoMessage
    Set .Configuration = cdoConfig
    cdoMessage.From = SenderEmail
    cdoMessage.To = RecipientEmail
    cdoMessage.Subject = Subject
    cdoMessage.TextBody = Body
    cdoMessage.Send
    End With
    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
    hocam kusura bakma kafam biraz karışık bugünde bu bölümü gönder asp içine mi atıcam onuda söyleyebilir misin birde smtp ile ilgili yerler orayada o bilgileri girmem gereklimi çünkü o bilglier bende yok
  • 25-05-2009, 14:00:26
    #6
    gogoturk
    gogoturk
    Alıntı
    hocam kusura bakma kafam biraz karışık bugünde bu bölümü gönder asp içine mi atıcam onuda söyleyebilir misin birde smtp ile ilgili yerler orayada o bilgileri girmem gereklimi çünkü o bilglier bende yok
    bu gönder asp olacak, evet. Smtp dediğin mail.yourdomain.com şeklinde olabilir. Sen onu hostuna sor... diğerlerine gelince;
    me@mydomain.tld yerine misal; info@yourdomain.com ve o hesabın şifresi falan gelecek. Yaw arkadaş hiç göndermedin mi asp ile mail daha önceden. neredeyse hep aynıdır...