PASP
-
Total de itens
151 -
Registro em
-
Última visita
Posts postados por PASP
-
-
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
-
-
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..
-
-
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..
-
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 noResponse.Redirect "emailerro.asp"
-
-
-
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
Binário
em ASP
Postado
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!