Persits Bileşeni ve İsimtescil Hakkında

Merhaba arkadaşlar.

Forumda yeniyim. ASP kategorisini bulamadığım için ASP.NET kategorisine yazmak zorunda kaldım.

İsimtescil.net'ten host aldım. Özelliklerinde Persits bileşeninin desteklendiği yazıyordu. Web sitemde e-posta ile doğrulama yapmak istiyorum ancak bir türlü beceremedim. Garip garip hatalar alıyorum sürekli. Hataları Google'da aramama rağmen sorunu çözen bir cevap bulamadım. İsimtescil.net'ten destek istedim bu konuda ama bileşenin aktif olduğunu söylediler. Onlarca farklı Persits.Mail kodunu denedim ama hiçbirinde sonuç alamadım.

Çalışan bir mail gönderme kodu verebilir misiniz bana? Buna âcil ihtiyacım var.

Bu kod senin hostunda yüklü olan bileşenleri gösterir.


<%
Dim ASPogren(68)
ASPogren(1) = "ADODB.Command"
ASPogren(2) = "ADODB.Connection"
ASPogren(3) = "ADODB.Recordset"
ASPogren(4) = "ADODB.Stream"
ASPogren(5) = "ADOX.Catalog"
ASPogren(6) = "AspDNS.Lookup"
ASPogren(7) = "ASPExec.Execute"
ASPogren(8) = "AspHTTP.Conn"
ASPogren(9) = "AspImage.Image"
ASPogren(10) = "AspMX.Lookup"
ASPogren(11) = "AspNNTP.Conn"
ASPogren(12) = "AspPing.Conn"
ASPogren(13) = "AspSock.Conn"
ASPogren(14) = "CDO.MESSAGE"
ASPogren(15) = "CDONTS.NewMail"
ASPogren(16) = "Dundas.Mailer"
ASPogren(17) = "Dundas.PieChartServer"
ASPogren(18) = "Dundas.PieChartServer.2"
ASPogren(19) = "Dundas.Upload"
ASPogren(20) = "Dundas.Upload.2"
ASPogren(21) = "Dundas.UploadProgress"
ASPogren(22) = "ECHOCom.Echo"
ASPogren(23) = "GuidMakr.GUID"
ASPogren(24) = "ImgSize.Check"
ASPogren(25) = "ixsso.Query"
ASPogren(26) = "ixsso.Util"
ASPogren(27) = "JMAil.Message"
ASPogren(28) = "JMail.POP3"
ASPogren(29) = "JMail.SMTPMail"
ASPogren(30) = "JRO.JetEngine"
ASPogren(31) = "Microsoft.DiskQuota.1"
ASPogren(32) = "microsoft.XMLDOM"
ASPogren(33) = "Microsoft.XMLHTTP"
ASPogren(34) = "MSWC.AdRotator"
ASPogren(35) = "MSWC.BrowserType"
ASPogren(36) = "MSWC.ContentRotator"
ASPogren(37) = "MSWC.Counters"
ASPogren(38) = "MSWC.IISLog"
ASPogren(39) = "MSWC.MyInfo"
ASPogren(40) = "MSWC.MyInfo"
ASPogren(41) = "MSWC.NextLink"
ASPogren(42) = "MSWC.PageCounter"
ASPogren(43) = "MSWC.PermissionChecker"
ASPogren(44) = "MSWC.Status"
ASPogren(45) = "MSWC.Tools"
ASPogren(46) = "MSXML.DomDocument"
ASPogren(47) = "MSXML2.DOMDocument"
ASPogren(48) = "MSXML2.DOMDocument.3.0"
ASPogren(49) = "Msxml2.FreeThreadedDOMDocument.3.0"
ASPogren(50) = "MSXML2.ServerXMLHTTP"
ASPogren(51) = "MSXML2.ServerXMLHTTP.3.0"
ASPogren(52) = "MSXML2.XSLTemplate"
ASPogren(53) = "Persits.Grid"
ASPogren(54) = "Persits.Jpeg"
ASPogren(55) = "Persits.MailSender"
ASPogren(56) = "Persits.Upload"
ASPogren(57) = "Persits.Upload.1"
ASPogren(58) = "Persits.UploadProgress"
ASPogren(59) = "POP3svg.Mailer"
ASPogren(60) = "Scripting.Dictionary"
ASPogren(61) = "Scripting.FileSystemObject"
ASPogren(62) = "Scriptlet.TypeLib"
ASPogren(63) = "SMTPsvg.Mailer"
ASPogren(64) = "SOFTWING.AspTear"
ASPogren(65) = "VBScript.RegExp"
ASPogren(66) = "WinHttp.WinHttpRequest.5.1"
ASPogren(67) = "WScript.Network"
ASPogren(68) = "WScript.Shell"
Response.write "Yüklü Bilesenler:
"
On Error Resume Next
For i = 1 To Ubound(ASPogren)
Set bilesen = Server.CreateObject(ASPogren(i))
If err.number = 0 Then
Set bilesen = nothing
Response.write ASPogren(i)
Response.write"
"
End If
Err.clear
Next
%>