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 ??