Ir para conteúdo
Fórum Script Brasil
  • 0

Host Websamba

ldrwebsite

Perguntado por ldrwebsite,

 Share

Pergunta

6 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

rode esse script no servidor para ver se o componente esta instalado:

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(12)
Dim theComponentName(12)

' componentes
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"
theComponent(12) = "Dundas.Upload.2"

' apelido do componente!
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"
theComponentName(12) = "Dundas Upload"

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>O q tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes 
      instalados:</b></font></td>
  </tr>
  <tr>
    <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <% 
  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>" & vbCrLf
          Response.Write "</td>" & vbCrLf
          Response.Write "</tr>" & vbCrLf
      End If
    Next 
    %>
  </table>
</font> 
</td>
  </tr>
</table>

</body>
</html>

esse foi o primeiro script que eu achei aki na minha maquina. mais já testa o CDONTS, se voce der uma procurada no forum vai encontrar mais scripts que verificam quais componentes estão instalados, se não me engano peguei um aki uma vez que testa mais de 50 componentes, sõ não lembro onde salvei o infeliz

Link para o comentário
Compartilhar em outros sites
  • 0
ldrwebsite

ldrwebsite

Postado
  • Autor
Postado

blink.gif É o seguinte, a minha página antes de enviar a mensagem, grava as informações num BD, tava faltando colocar o caminho d:/www39/ldrwebsite para acessar o BD. Bom feito isso rodei a página e deu este erro:

Microsoft VBScript runtime error '800a0046'

Permission denied

/ldrwebsite/envia_ind.asp, line 30

E pelo meu código a linha 30 é o mensagem.Send, veja abaixo:

<%

dim vconexao, vresposta, vpesquisar

Set vconexao=Server.CreateObject("ADODB.Connection")

vconexao.Open "DBQ=d:/www39/ldrwebsite/info/produtos.mdb;Driver={Microsoft Access Driver (*.mdb)}"

dim nome_env, empr_env, email_env, nome_ind, empr_ind, email_ind, coment, data

nome_env=Request.Form("nome_env")

empr_env=Request.Form("empr_env")

email_env=Request.Form("email_env")

nome_ind=Request.Form("nome_ind")

empr_ind=Request.Form("empr_ind")

email_ind=Request.Form("email_ind")

coment=Request.Form("coment")

data=date

hora=time

vpesquisar="INSERT INTO indicacoes (nome_env,empr_env,email_env,nome_ind,empr_ind,email_ind,coment,data,hora) VALUES ('"&nome_env&"','"&empr_env&"','"&email_env&"','"&nome_ind&"','"&empr_ind&"','"&email_ind&"','"&coment&"','"&data&"','"&hora&"')"

set vresposta=vconexao.Execute(vpesquisar)

vconexao.close

set vresposta=nothing

set vconexao=nothing

dim dest

dest=Request.Form("email_ind")

set mensagem = server.CreateObject("CDONTS.NewMail")

mensagem.From = Request.Form("email_env")

mensagem.To = Request.Form("email_ind")

mensagem.Subject = "Indicação do site CLUNE.com.br para você!"

mensagem.BodyFormat = 0

mensagem.MailFormat = 0

mensagem.Body = "<html><body><center><table border=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#486992"" width=""590"" id=""AutoNumber1"" cellpadding=""0""><tr><td><div style=""border: 1px solid #486992""><img border=""0"" alt=""Indicação so site CLUNE.com.br para você!"" src=""http://clunesama.sites.uol.com.br/email_banner.jpg"" width=""590"" height=""100""></div></td></tr><tr><td bgcolor=""#F5F5F5"">&nbsp;<font size=""2"" face=""Arial"">De&nbsp;"&Request.Form("nome_env")&"&nbsp;-&nbsp;"&Request.Form("empr_env")&"<br>&nbsp;Para&nbsp;"&Request.Form("nome_ind")&"&nbsp;-&nbsp;"&Request.Form("empr_ind")&"<br><hr color=""#486992"" size=""1"">&nbsp;&nbsp;&nbsp;Caro Sr(a).&nbsp;"&Request.Form("nome_ind")&", você acaba de receber a indicação do site <a href=""http://www.clune.com.br""><font color=""#486992"">CLUNE.com.br</font></a>, uma empresa que a mais de 25 anos é especializada em embreagens e freios para máquinas operatrizes, discos de transmissão, máquinas perfiladeiras de telhas, consertos, nacionalização e desenvolvimentos de equipamentos. Está indicação foi enviada pelo Sr(a).&nbsp;"&Request.Form("nome_env")&"&nbsp;da empresa&nbsp;"&Request.Form("empr_env")&", através do nosso site. A Clune não é responsável pelo envio deste e-mail. Esperamos sua visita ao nosso site. Abaixo segue comentários enviados pelo indicador.<br><br>&nbsp;COMENTÁRIOS:&nbsp;<font color=""#486992"">"&Request.Form("coment")&"<br><br></font></font></td></tr><tr><td bgcolor=""#486992"" height=""40""><p align=""center""><font face=""Arial"" size=""2"" color=""#FFFFFF"">© 1979-2006 - Clune Peças Agroindustriais Ltda.<br></font><font face=""Arial"" color=""#FFFFFF"" style=""font-size: 8pt"">E-mail: <a href=""mailto:clune@clune.com.br?subject=Contato pelo e-mail de indicação""><font color=""#ffffff"">clune@clune.com.br</font></a> - Fone: (11)5182-3400</font></td></tr></table></body></html>"

mensagem.Send <-- O erro tá aqui

set mensagem = nothing

%>

Tem como resolver isto?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,7k
×
×
  • Criar Novo...