cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Tudo que cyberalexxx postou
-
eu tambem to precisando dele, fiz uns testes com esse que voce me passou, mais para o que eu to precisando tem que ser o Persits File Upload. Caso eu conseguir alguma coisa eu te informo. T+
-
Vou trabalhar nisso, depois volto com mais informações.
-
Na verdade exitem diversos componentes para Upload em ASP, o que deve estar acontecendo é o componente que você esta usando não é o ASPUPLOAD (Set Upload = Server.CreateObject("Persits.Upload.1") que você encontra em www.aspupload.com deve ser algum outro componente que tambem faz upload, pois se você fizer uma busca na WEB vai encontrar diversos componentes com esse nome. Acredito que o componente que voce tenha ai seja o ASPUPLOAD Versão 1.50 disponivel em http://www.freevbcode.com
-
Se alguém disponibilizar um servidor, a gente poderiar criar uma base de dados atualizavel de componentes, onde nós pudessemos cadastrar novos componentes com o nome, função, onde conseguir, etc. que alem de servir de guia de referencia tambem gerasse automaticamente o codigo para testar os componentes no server. alguém ta afim de participar??
-
O que isso aqui faz Persist Security Info=False;Jet OLEDB:Database Password="
-
já tentou assim??? cnpath="DBQ=" & Server.MapPath("/dados/intranet.mdb")
-
Posta a linha q ta dando erro pra gente dar uma olhada.
-
FOTOS.ASP é só um exemplo, você coloca ali a pagina que você quer abrir dentro do pop-up.
-
Isso é Javascript: função que abre janela: function abre() <script> { window.open("fotos.asp","","width=320,height=270,top=100,left=100,scrollbars=no,menubar=no,directories=no,location=no,copyhistory=no,status=no,toolbar=no,maximized=yes,resizable=no"); } </script> depois coloque assim no hiperlink: <a href=javascript:abre()>clique aqui para ampliar</a>
-
Não se esquece de verificar se o componente que voce quer verificar a existencia consta deste script, pois a alguns dias atraz o pessoal tava usando esse codigo para verificar se o Dundas Upload existia no servidor e o script não verifica esse componente, então eu adicionei ele. Aqui esta o script: <% @ 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>
-
Em cada pagina você tem que fazer um verificação do tipo if session("nivel") <> 0 then continua executando a pagina else response.redirect ("login.asp") end if
-
beleza!!! aprendendo com o erro dos outros!!! he he T+
-
Dei uma adaptada no seu código e acho que deve funcionar, o unico detalhe é que na hora de criar o RecordSet voce deve colocar na instrução SQL para indexar por tipo: ORDER by TIPO <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="610" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <TD width=15><IMG height=8 src="imagens/1px.gif" width=8></TD> </tr> <tr> <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="imagens/1px.gif" width=15></div></td> <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#3399CC"> <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>PUBLICAÇÕES</strong></font></div></td> </tr> </table> <% reg = "" %> <% Do while not Rs.EOF %> <% if reg <> Rs("tipo") then%> <% reg = Rs("tipo") %> <% 'IMPRESSÃO DO TÍTULO %> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td> </tr> <tr> <td height="20" align="center" bgcolor="#C4E4FD" class="textointrodutorio"><%=rs("tipo")%></td> </tr> </table> <% end if %> <% ' IMPRESSÃO DOS DADOS %> <table width="595" border="0" cellpadding="1" cellspacing="2"> <tr> <td width="30" height="20" align="center" bgcolor="#ECF8FF"><img src="imagens/tópico.gif" width="8" height="8"></td> <td width="409" bgcolor="#ECF8FF" class="texto"><%=rs("publicacao")%></td> <td width="16" bgcolor="#ECF8FF"> </td> <td width="36" bgcolor="#ECF8FF"> </td> <td width="16" bgcolor="#ECF8FF"><a href="publicacoes/<%= Rs("diretoriozip") %>"><img src="imagens/Zip.gif" width="16" height="16" border="0"></a></td> <td width="36" bgcolor="#ECF8FF" class="texto"><div align="center">Zip</div></td> <td width="16" bgcolor="#ECF8FF"><a href="publicacoes/<%= Rs("diretoriopdf") %>" target="_blank"><img src="imagens/pdf.gif" width="16" height="16" border="0"></a></td> <td width="36" bgcolor="#ECF8FF" class="texto"><div align="center">Pdf</div></td> </tr> </table> <% Rs.Movenext %> <% loop %> <% Rs.close %> </td> </tr> </table> </body>
-
Sem o código fica complicado.
-
Acho que só o suporte do servidor pode alterar as permissões.
-
O ideal seria fazer com javascript, mais da pra fazer em ASP sim. As suas fotos estão armazendas em algum BD???
-
O dark0 tem razão!!! apague aquela linha. e depois altere tudo que esta abaixo de: msg para msg2 ou ao final do envio da primeira mensagem zere o objeto msg e depois crie ele denovo no lugar do objeto msg2
-
Seguinte, nunca usei este componente, mais fiz alguma observações que considero importante em seu código. a primeirca mensagem é o objeto msg: Set msg = Server.CreateOBject( "JMail.Message" ) para a segunda mensagem voce cria outro objeto (msg2):Set msg2 = Server.CreateOBject( "JMail.Message" ) só que no restante do código você não passa nenhum parametro para o objeto msg2 pelo contratrio todos os parametros são passados para o objeto msg: Set msg2 = Server.CreateOBject( "JMail.Message" ) msg.from = "mauricio@manhtis.com.br" msg.FromName = "Empresa xxxx" msg.AddRecipient Request.Form ("email") msg.Subject = "Atendimento ao cliente " msg.Body = "Olá " & Request.Form ("nome") & "," & vbcrlf & vbcrlf & "recebemos seu contato através do site São Leopoldo e em breve entraremos em contato." & vbcrlf & vbcrlf & "Atenciosamente," & vbcrlf & vbcrlf & "Empresaxxxx - São Leopoldo/RS" & vbcrlf & "www.empresaxxxx.com.br" & vbcrlf & "Fone: (0xx51) 592-9211" & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf if not msg.Send("mail.terraempresas.com.br" ) then Response.write "Mensagem automática não foi enviada devido seguinte erro: <pre>" & msg.log & "</pre>" end if Tem algo errado ai!!!
-
Quanto ao numero de todos o MDB suporta sim. outra alternativa seria a criação de campos para identificar lista e escola, assim tudo ficaria em um MDB depois voce usa SQL para ler os dados separados é isso que você quer??
-
Usando FormatCurrency o valor é exibido de acordo com as configurações de moeda especificadas nas configurações regionais do painel de controle. Usando FormatNumber o valor é exibido com a seguinte mascara: 9.999,99
-
Voce corrigiu a linha que cria o objeto mailer?? ta dando erro ainda???
-
não entendi nada voce que que uma variavel assuma valor true ou false em uma condição??? é isso?? Explica melhor!!!
-
Não entendi!! Ta muito vago, tenta ser um pouco mais especifico, onde esta a dificuldade de fazer esse recalculo e se possivel passar um pouco da logica que você esta utilizando.
-
Download do arquivo: Instalador: 482 KB Tamanho Total: 76883 KB Link: http://www.microsoft.com/downloads/details...2b-20b602228de6
-
Ta muito estranho, principalmente por não dar erro deve ser pelo on error resume Next que ta no começo do arquivo. Percebi tambem que na instrução SQL voce não esta colocando aspas simples nos campos alfanumericos, tipo: nome='" & nome & "' da uma olhada se não é isso