<% Option Explicit
Function VERCDONTS(ProgId)
Dim tempObject
On Error Resume Next
Set tempObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
verificaCDONTS = True
Else
verificaCDONTS = False
End If
Set tempObject = Nothing
End Function
If VERCDONTS("CDONTS.NewMail") Then
Response.Write "O e-mail será enviado"
Else
Response.Write "CDONTS não disponível"
End If
%>
-----------------------------------------------------------------------------------------------
Para uma maior organização desta seção, todas as duvidas relacionadas a este tutorial devem ser tiradas na seguinte sala:
http://forum.wmonlin...p?showforum=113
O Cdonts Está Instalado?
Started By pchardnet, 19/10/2004, 23:43
-
This topic is locked
Nenhuma resposta neste tópico
#1
pchardnet
-
- Usuários
-
- 1068 posts
×-× 3D ×-×
- Sexo:Não informado
- Localidade:Belo Horizonte-MG
Posted 19/10/2004, 23:43
www.wvirtu.net - Hospedagem Sites - PHP + MySql + Fantástico - Joomla! pré-instalado
www.joomlaminas.org - Grupo de Usuários Joomla! de Minas Gerais
www.joomlaminas.org - Grupo de Usuários Joomla! de Minas Gerais
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
