Saludos...
como puedo saber si mi proveedor tiene soporte para CDONTS si no puedo ponerme en contacto con él. Hay alguna forma en asp de poder hacer esta comprobación?
Gracias
19/09/2003, 10:49
| |||
| |||
| Como saber si mi proveedor tiene soporte CDONT Saludos... como puedo saber si mi proveedor tiene soporte para CDONTS si no puedo ponerme en contacto con él. Hay alguna forma en asp de poder hacer esta comprobación? Gracias |
|
21/09/2003, 17:31
| ||||
| ||||
| hola lo mejor que puedes hacer es probar a ver si te funciona el envio de email ejecutando algun codigo cdonts saludos
__________________ Un Saludo www.tutores.org Asp | Php | Javascript | Perl | Coldfusion | Flash | +- 2000 codigos |
|
15/11/2003, 13:20
| |||
| |||
| O ejecuta este codigo para que te diga los componentes que tiene el server <% Dim theComponent(11) Dim theComponentName(11) theComponent(0) = "ADODB.Connection" theComponent(1) = "SoftArtisans.FileUp" theComponent(2) = "AspHTTP.Conn" theComponent(3) = "AspImage.Image" theComponent(4) = "LastMod.FileObj" theComponent(5) = "Scripting.FileSystemObject" theComponent(6) = "SMTPsvg.Mailer" theComponent(7) = "CDONTS.NewMail" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" theComponent(10) = "Persits.Upload.1" theComponent(11) = "UnitedBinary.AutoImageSize" theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" theComponentName(5) = "FileSystemObject" theComponentName(6) = "ASPMail" theComponentName(7) = "CDONTS" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" theComponentName(10) = "Persits Upload" theComponentName(11) = "AutoImageSize" Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <html> <head> <title>Componentes DeCali.com</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FF8000"> Estos son los componentes que tiene instalado el servidor <br> <br> <br> <% Dim i For i=0 to UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write "<tr>" & vbCrLf Response.Write "<td width=""100%"">" & vbCrLf Response.Write "<b>" & theComponentName(i) & "</b><br>" & vbCrLf Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf End If Next %> |
