
PASP
Membros-
Total de itens
151 -
Registro em
-
Última visita
Tudo que PASP postou
-
Cara, adiantou e não adiantou Seguinte preciso de um componente com sua respectiva rotina, para inserir uma figura no BD! Tá osso, outro dia vi o dark0 com uma duvida semelhante, resolveu? se sim, me ajuda? é que to precisando urgentasso, falou obrigado!
-
Qual tipo de dados eu uso para gravar um arquivo .jpg, .gif .bmp enfim uma imagem, no banco mysql? Binario? não? Me falem? Um ABraço
-
Como eu gravo no bd uma figura.jpg ou .gif em binário? Falous
-
Bom, Testei aqui e deu corretamente... O que fazer? Seguinte... . Botão Direito na pasta do site... . Compartilhamento . Compartilhamento da Web . Clique em 'Compartilhar esta Pasta' . Escolha um 'Alias' para tal pasta . Acesse a página através de --> http://localhost/ALIAS_ESCOLHIDO Falou!
-
Cara, o código em vermelho é para (lock) bloqueia e (Unlock) desbloqueia, para que o cálculo seja feito corretamente, independente se ouver acesso simultâneo ou não. Li em alguns lugares que caso eu compartilhe minha pasta para WEB funciona, mas ainda não testei, vou testar e qualquer coisa eu posto, estou aberto a dicas/sugestões..
-
Consideração importante: . O arquivo Global.asa e o arquivo .asp estão em subdiretórios, não estão na raíz; Alguma dica?
-
Olá, a Global.asa não funciona.. O que fazer? . Desistir; . Formatar; . Contratar o Lula; Bom... Arquivo Global.asa <script LANGUAGE=vbscript RUNAT=server> Sub Application_OnStart Application.Lock Application("usuariosonline") = 0 Application("total") = 0 Application.Unlock End sub Sub Session_OnStart Application.Lock Application("usuariosonline") = application("usuariosonline") + 1 Application("total") =application("total") + 1 Application.Unlock End sub Sub Session_OnEnd Application.Lock Application("usuariosonline") = Application("usuariosonline") -1 Application.Unlock End sub </SCRIPT> Arquivo .asp <%@LANGUAGE=VBSCRIPT %> <%= "Total de Usuários: " & Application("total") & "<br>" "Usuários Online: " & Application("usuariosonline") %> Windows: 2000, IIS... Me ajudem...
-
Cara, fiz e revisei rotina, olhei todos os tópicos, mas o erro persiste... Erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0046) Permissão negada /supermarket/envia.asp, line 13 Script: Set msg = Server.CreateObject("CDONTS.NewMail") msg.From = "meumail@mail.com.br" msg.To="meumail@mail.com.br" msg.Subject = "Email via ASP" msg.Body = "Aqui vem o corpo da mensagem. Você pode escrever o que desejar!" msg.Send Set msg = Nothing Line 13 -> msg.Send :/
-
Cara, tem códigos que nós fazemos que podemos passar o olho mil vezes que não achamos, uma outra pessoa bate o olho já acha.. auheuhae falou
-
Não pderia ser um Botão de Opção não? (Radio) se marcar uma opcao INCREMENTA se marcar a outra DECREMENTA.. faz um formulário, e na página onde você for receber os dados você os cálculos para incrementar e decrementar, se puder e você tiver dúvida nós te ajudamos com a rotina, acho que fica mais fácil e mais interativo
-
Ou a tabela está vazia (sem registros), ou não existe o nome do campo que você colocou.. Atenção!
-
Cara, o Windows 2000 server e o XP têem um servidor SMTP próprio, no IIS, basta você configurar o IIS e disponibilizar o servidor.
-
Dá uma olhada.. Sempre procurar na pesquisa do fórum
-
faça o select xsoma=0 if rs.eof or rs.bof then response.write "não tem registro" else rs.movefirst do while not rs.eof xsoma = xsoma + rs("NOME_DO_CAMPO") rs.movenext loop response.write "a soma dos valores do campo 'TAL' foi de " & [COLOR=red][B]xsoma[/B][/COLOR] end if Errei ali, desculpas
-
seguinte... faça o select xsoma=0 if rs.eof or rs.bof then response.write "não tem registro" else rs.movefirst do while not rs.eof xsoma = xsoma + rs("NOME_DO_CAMPO") rs.movenext loop response.write "a soma dos valores do campo 'TAL' foi de " & rs("NOME_DO_CAMPO") end if Espero ter ajudado
-
<% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp@provedor.com.br" Mail.From = "De" Mail.FromName = "Para (Nome)" Mail.AddAddress "Para (E-Mail)" Mail.Subject = "Assunto" Mail.Body = "texto" Mail.Send If Err <> 0 Then ' Ocorreu erro strErr = Err.Description else response.write "E-Mail enviado com sucesso" End If %> Tudo certo? Espero ter ajudado!
-
set rs=conexao.execute("select * from tabela where familia like '"+ CONDIÇÃO +"' order by familia") Você selecionou na 'tabela' do BD, todos os registros onde o campo familia seja a igual à CONDIÇÃO (você deve determinar).. if rs.eof or rs.bof then response.write "não tem registros" else rs.movefirst do while not rs.eof cont = cont +1 rs.movenext loop response.write "foram encontrados " & cont & " registros." end if Espero que seja isso e que tenha ajudado!
-
objFS.DeleteFile( Server.MapPath(caminho))
-
Olá, Fiz o seguinte, instalei o windows 2000, conseuqtentemente o servidor é o IIS, ah e estou usando agora, o CDONTS, acontece que... Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.from = request.form("email") objmail.to = "meumail@uol.com.br" objmail.subject = request.form("assunto") objmail.body = request.form("msg") objmail.send set objmail = nothing Erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0046) Permissão negada /envia.asp, line 14 Line 14 --> set objmail = nothing Obs: Dll (cdonts.dll) em /windows/system32 e registrada! Aff, o que pode ser?
-
Olá Pessoal, Eu tenho um formulário que envia os dados para a pagina envia.asp, então... <form method="POST" action="envia.asp"> <input type="text" name="nome"><br> <input type="submit" name="btenvia" value="Enviar"> </form> Com base nisso, gostaria de que essa página que recebe os dados, envia.asp, fosse aberta em uma janelinha POPUP e não em seu tamanho normal, como eu poderia fazer isso?
-
As dúvidas acima, eu já achei aqui e deu certo, porém... Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Meu nome" Mailer.FromAddress= "meuemail@uol.com.br" Mailer.RemoteHost = "smtp.uol.com.br" Mailer.AddRecipient request.form("nome"), request.form("email") Mailer.Subject = request.form("assunto") Mailer.BodyText = request.form("msg") if Mailer.SendMail then Response.Redirect "emailcerto.asp" else Response.Redirect "emailerro.asp" end if set Mailer = Nothing o que tem de errado aí que ele só entra no Response.Redirect "emailerro.asp"
-
Bom, A dll dele está em C:\Windows\System e ainda registrei (RegSVR32 ...) porém eu uso o PWS, este componente funciona no PWS? E como eu verifico permissões como disse o ursolouco? Muito Obrigado, Um Abraço
-
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Resultado: Objeto Server error 'ASP 0177 : 800401f3' Falha em Server.CreateObject O que pode ser? Obrigado, Um Abraço!
-
Olá, andei procurando uma OCX que tivesse o Estilo do Windows XP ou algo do gênero, e me deparei com a OSenXPsuite, porém ela é cara e não rola! Alguém teria algum outro exemplo aê! Falou, Obrigado ;]
-
bom galera, tive que fazer uma matematicazinha já que no mysql é: (aaaa-mm-dd) então vamos la? ANO = mid(date,7,4) MES = mid(date,4,2) DIA = mid(date,1,2) Formatando... data = ANO & "-" & MES & "-" & DIA Pra gravar em um BD MySQL seria com a variavel "data".. Pra exibir então uma data do BD é só fazer o contrario.. Duvidas? Espero ter ajudado Bom agradeço ai