Rafael Spilki
-
Total de itens
1.583 -
Registro em
-
Última visita
Tudo que Rafael Spilki postou
-
Bom... eu acredito que o problema agora seja JavaScript. Mas preciso de mais informações: Como por exemplo... se você cria duas linha de input como fica o debug do contador e do insert? E se cria apenas 1 linha insere perfeito ou não? nesse caso como fica o debug do contador e do insert1? Se for o caso movemos seu tópico para o pessoal do JS, ok? []'s Rafael Spilki
-
Continuo não entendendo... acessei ali o seu site e vi o contador ali no topo da página! O que exatamente você quer fazer com ele? Melhorar o Design? mas se for isso você não deveria estar usando esse código pronto... porque fica meio limitado de design mesmo... o q você pode fazer é ir na página desse fornecedor e alterar suas opções de configuração... Bom... outra coisa... se sua dúvida for realmente layout ou design me faça saber, porque provavelmente isso não será resolvido com asp, então sabendo exatamente o que você quer vou poder mover o seu tópico para a sala correta, ok? []'s Rafael Spilki
-
Problemas de lógica amigão... pra começar o seu contador é "s" e a varivel nos inputs é "i"??? porque isso? e ainda tem um id com código produto e varivale "u"... daonde vem isso??? terás que dar uma analisada geral... olhar e studar aquele script que eu te mandei e funcionou... se você não conseguiu implantar essa mesma lógica no seu script é por conta do JS... entende? você terá primeiro que identificar exatamente o que está acontecendo? É um problema de numerador? de resgate? de nomes de variável? vai por partes... ficará mais fácil... []'s Rafael Spilki
-
CDONTS é um antigo componente de envio de e-mail... ainda pode ser usado, mas seu sucessor é o CDO.SYS... A utilização dos componentes para envio de e-mail vai depender da disposição do server e tais podem variar de acordo com a versão do IIS instalado na máquina. Existem tb outros componentes de envio de e-mails, tais como: aspmeil, aspEmail, dundasmail entre outros. Sugiro da próxima vez o uso do google... tem muitas coisas lá a respeito... um exemplo é este link: http://forum.wmonline.com.br/index.php?showtopic=144343 um forte abraço Rafael Spilki
-
Uhm... Não entendi o que você quer fazer meu amigo... podes explicar um pouquinho melhor? []'s Rafael Spilki
-
não tinha visto... mas o seu select está errado... quando o campo do bd é no formato data, você tem que abraçar as variaveis com # na query... troque esse trecho: sql = " select * from aniversariantes where data between "&datai&" and "&dataf&"" por esse aqui sql = " select * from aniversariantes where data between #"&datai&"# and #"&dataf&"#" poste aqui os resultados... []'s Rafael Spilki
-
Oi Arldin... é isso o que você quer? <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE></TITLE> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <META content="Microsoft FrontPage 4.0" name=GENERATOR> <META HTTP-EQUIV=Refresh CONTENT="5; URL=http://www.arldinartfest.com.br/contador.asp"> <base target="parte inferior"> </HEAD> <BODY bgProperties=fixed background=http://www.arldinartfest.com.br/index_arquivos/image306.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD> </TD> <TD><!-- Inicio Codigo Visitas online gratis opromo.com --> <script language=Javascript> src="http://www.opromo.com/servicos/usuariosonline/useronline.php?site=sitewwwarldinartfestcombr&corfont1=0009FF&texto=2&formato=negrito&tipo=arial&tamanho=4&simbo=1" type=text/javascript></SCRIPT> <!-- Fim Codigo Visitas online gratis opromo.com --></TD></TR></TBODY></TABLE></BODY></HTML> teste e veja se é isso, ok? []'s Rafael Spilki
-
Será que não estas sendo limitado pelo server? Existem algumas limitações em Nível de IIS que podem efetuar esse tipo de alteração... normalmente existem limitações quanto ao tamanho do arquivo... que por padrão acho que é 200kb! Já experimentou por teste apenas mandar um arquivo bem pequeno e ver o que acontece? Já checou com o seu servidor se tens permissão para executar esse tipo de operação? Dei uma examinada rápida aqui no seu script e nada me saltou aos olhos... confirme por gentileza essas infs acima... se você tiver permissões e mesmo com um arquivo bem pequeno (menor que 50kb) continuar não funcionando poste seu código completo... desde o form pra eu dar uma olhada mais minuciosa... ok? []'s Rafael Spilki
-
ok... agora deve estar funcionando... "anule" o debug colocando uma aspas simples antes dele! assim: nesse trecho: 'começando o debug response.write "datai = " & datai & "<BR>" response.write "dataf = " & dataf & "<BR>" response.write "sql = " & sql & "<BR>" response.end 'fim debug você deixa assim: 'começando o debug 'response.write "datai = " & datai & "<BR>" 'response.write "dataf = " & dataf & "<BR>" 'response.write "sql = " & sql & "<BR>" 'response.end 'fim debug teste e poste aqui os resultados, ok? []'s Rafael Spilki
-
tente assim: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final Set objConn = Server.CreateObject("ADODB.Connection") sql = " select * from aniversariantes where data between "&datai&" and "&dataf&"" objConn.Open "DBQ=" & Server.MapPath("bd/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'começando o debug response.write "datai = " & datai & "<BR>" response.write "dataf = " & dataf & "<BR>" response.write "sql = " & sql & "<BR>" response.end 'fim debug Set rs = objConn.Execute(sql) If rs.EOF Then ' Se não encontrou registros escreva Response.Write("Não há Aniversáriantes Para o Dia de Hoje.") Else 'Se encontrou registros escreva Response.Write("<b>" & rs.RecordCount & "</b> Usuarios Fazem Aniversario Hoje: <br>") Do While NOT rs.EOF ' Faça enquanto existir registros Response.Write(rs("nome") & "(<b>" & DateDiff("yyyy",rs("data"),Now) & "</b>)<br>") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %> []'s Rafael Spilki
-
Que santitade o que! rsssssssssssss... Nem de longe! hahaha Bom.. não entendi a sua dúvida... porque o objetivo é exatamente deixar sempre um input diferente do outro... Tipo você ta criando vários inputs com o nome teste... com o contador sabemos que o primeiro vai ser teste1, depois, teste2, teste3 exatamente até o contador parar de somar chegando no contador-1... sabemos por tanto exatamente onde começa e "exatamente" onde termina... você precisa ter as diferencições de nomes... tipo teste1 pao1 papel1... porque so assim você vai conseguir inserir cada qual em seu campo... Bom, quanto a esse seu código não consigo saber se está certo ou não... aparentemente está... mas sei pouco JS e essa sintaxe toda ai é basicamente JS... Acho que tens que esperar alguém mais te dar um toquezinho aí... acho que agora com a logica em asp funcionando um cara que sei que pode te ajudar é o Jothaz... ele sabe bastante JS e tem fluência em asp tb... derepente ele consegue casar os dois! Abração aí pra você!
-
Exatamente essa mesma lógica aí! observe bem como ficaram os textfield e repita os mesmos procedimentos... adicionando o marcador ao lado do nome e do ID, assim: <input name="teste<%=s%>" type="text" id="teste<%=s%>" value="<%response.write r1("DESCRICAO")%>" size="12"> Tome cuidado... você estava errando por causa de um espaço indevido e da falta de um response.write... abração!
-
testes e mais testes... segue: form\/\/\/ <!--#include file="conexao.asp"--> <% call abre_conexao sql = "Select * from OS_TECNOLOGIA_GESTOR" set r1 = conexao.execute(sql) %> <html> <body> <form method="post" action="1.asp"> <% s = 1 while Not r1.EOF %> <input name="teste<%=s%>" type="text" id="teste<%=s%>" value="<%response.write r1("DESCRICAO")%>" size="12"> <%s = s + 1 r1.MoveNext Wend %> <input name="contador" id="contador" type="hidden" value="<%=s - 1%>"> <input type="submit" value="submeter"> </form> </html> </body> <% call fecha_conexao set r1 = nothing set rs = nothing %> 1.asp\/\/\/ <%contador = request.form("contador") for i = 1 to contador 'response.write contador 'response.end teste = request.form("teste"&i&"") Conexao.Execute "Insert into TESTE (oi) values ('"&teste&"')" next %> caso não funcione faça a 1.asp desta forma postando os resultados: 1.asp\/\/\/ <%contador = request.form("contador") for i = 1 to contador teste = request.form("teste"&i&"") response.write "contador = " & contador & "<BR>" response.write "teste = " & contador & "<BR>" response.end Conexao.Execute "Insert into TESTE (oi) values ('"&teste&"')" next %> []'s Rafael Spilki
-
Mas td bem... mas cade o seu select que deve trazer os registros do bd? tipo... isso aí que eu coloquei é um exemplo pra você ver como funciona... nesse exemplo que eu dei você faz um select do bd, coloca os resultados em inputs... esses inputs serão numerados automaticamente pelo contador e depois você insere input por input atraves de um loop na instrução insert ou no caso acima em um upate... você deverá aplicar essa mesma lógica nos inputs que seu JS cria... ou seja... vai criando dinamicamente e a cada um que ele cria você vai adicionando +1 no contador... mas você ta tentando incluir um input que vem vazio do form porque não tem select nenhum, sacou? O que você deve fazer é aplicar isso dentro do seu código... entende? por isso não ta funcionando... não sei se eu consegui me explicar... qualquer coisa posta aí... se continuar não conseguindo posta o seu form... não esse que eu mandei pra você.. mas sim o seu com a lógica que eu te passei aplicada a ele... []'s Rafael Spilki
-
Mas cara, você tem alguma variavel teste vinda do form? e as outras variaveis todas onde estão??? e outra... porque seu contador deu 32? se seu contador deu 32 é porque você continua cometendo algum errinho aí no seu form... posta ele pra mim aí!
-
Acho que não... só não esqueça que mesmo os inputs sendo hidden da forma como está abaixo... veja... é exatamente assim que deverá ser a sua estrutura! <% s = 1 while Not rs.EOF %> <input name="teste<%=s%>" type="hidden" id="teste<%=s%>" value="<%Response.write rs("varaivel_bd")%>" size="12"> <%s = s + 1 rs.MoveNext Wend %> <input name="contador" id="contador" type="hidden" value="<%=s - 1%>"> sacou? tá bem mastigadinho aí... implanta isso no seu codigo depois coloca o insert exatamente assim: contador = request.form("contador") for i = 1 to contador campoteste = request.form("campoteste "&i&"") 'dai vem a instrução de insert inserindo campoteste no bd next Sacou? é exatamente assim... tenta ai que dará certo! []'s Rafael Spilki
-
o que??? isso é serio? mas cara... teu contador deveria passar um numero, tipo: 3, 5 ou 7 enfim... derepente 1 ou 2... depende do numero de registros que você tem no form... teu contedor certamente esta errado se esta passando essa inf... então assim: da uma olhadinha ali em como funciona o contador... eu coloquei ali em cima... verifica teu form e ve se acha o erro... se não conseguir posta o form aqui! []'s Rafael Spilki
-
vamos ver... da um debug nesse contador pra tentarmos entender o que ta vindo do form... contador = request.form("cdescri") 'inicia debug response.write contador response.end 'fim debug for x = 1 to contador Posta aqui os resultados, ok? []'s Rafael Spilki
-
só nessa linha? aquilo ali é um zero ou letra 'o' maiuscula? se for zero taí o erro... troque o '0' por zero por extenso... não esqueça de trocar no dim e no insert tb! se mesmo assim o erro continuar apenas nessa linha... temporariamente isola ela com um apostrofe na frente... ve se aparece mais algum erro depois disso... esse erro é muito especifico... é algo que ta vindo do form com problema... mas não esqueca que suas variaveis não podem ser numeros... ok? []'s Rafael Spilki
-
Debug sua datai, dataf e seu select, desta forma: mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final &"/"& mesatual &"/"& anoatual Set objConn = Server.CreateObject("ADODB.Connection") sql = " select * from aniversariantes where data between "&datai&" and "&dataf&"" objConn.Open "DBQ=" & Server.MapPath("bd/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'começando o debug response.write "datai = " & datai & "<BR>" response.write "dataf = " & dataf & "<BR>" response.write "sql = " & sql & "<BR>" response.end 'fim debug Set rs = objConn.Execute(sql) depois posta aqui os resultados, ok? []'s Rafael Spilki
-
Panox, td bem? você tentou fazer da forma que eu lhe sugeri? Veja sua sintaxe e a minha... acho mais interessante você usar o "contador", mas o seu request ali está errado... deveria ser assim: campoteste = request.form("campoteste "&x&"") sacou? []'s Rafael Spilki
-
o campo dataf esta passando um valor errado: sacou? por isso o erro! porque você esta fazendo isso aqui? data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) & "/" & data_q(2) final = dateadd("d",-1,data_f) Qual o seu objetivo com isso e porque data_q(2)??? O erro ta por aí... da uma repensada na lógica ou explica um pouquinho melhor o que você esta tentando fazer com a dataf, ok? []'s Rafael Spilki
-
Aparentemente é um problema na abertura da sua conexão... você tem um include ali... eu não sei como ele ta... mas eu tiraria ele fora pra testar... e testaria assim: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) & "/" & data_q(2) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final &"/"& mesatual &"/"& anoatual Set objConn = Server.CreateObject("ADODB.Connection") sql = " select * from aniversariantes where data between #"&datai&"# and #"&dataf&"#" objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set rs = objConn.Execute(sql) If rs.EOF Then ' Se não encontrou registros escreva Response.Write("Não há Aniversáriantes Para o Dia de Hoje.") Else 'Se encontrou registros escreva Response.Write("<b>" & rs.RecordCount & "</b> Usuarios Fazem Aniversario Hoje: <br>") Do While NOT rs.EOF ' Faça enquanto existir registros Response.Write(rs("nome") & "(<b>" & DateDiff("yyyy",rs("data"),Now) & "</b>)<br>") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %> </body> </html> Lembre-se de alterar o nome do seu BD e/ou o caminho! se continur não funcionando pode ser pelo fato de estar invertendo alguma data, colocando a mesma no estilo americano... se acontecer isso por favor avise! []'s Rafael Spilki
-
Igor, tudo bem? Bom, achei a ideia do sei site bem legal... e logicamente quando falamos aqui em críticas todas são construtivas. Certo tb que algumas dicas podem ser técnicas e outras com relação "aos gostos pessoais". Portanto vão aqui algumas e use apenas as que lhe convier, ok? 1) você não tem logomarca e acredite se quiser, isso faz uma falta danada; 2) o topo do seu site fica um pouco desencocontrado quando visto no firefox; 3) pude notar que você está usando tb muitas tabelas... procure as evitar; 3) não ta faltando algum movimento naquele menu quando o mouse passa em cima dos botões?; 4) No FireFox tb tem outra coisinha mau alinhada... o banner da direita tá muito encostado ao conteudo principal; Abração e muito sucesso! Rafael Spilki
-
Me faz uma gentileza, nesta página onde aparece a mensagem de erro que a página não pode ser exibida... cope e cole o link da barra de endereços do navegador aqui, por gentileza? Cara... tem que ser algum detalhezinho... algo pequeno que estamos nos passando... Essa mensagem de erro é bastante específica e na esmagadora maioria das vezes é porque a página não existe mesmo!!! você tem certeza que desabilitou as mensagens de erro amigáveis do seu navegador? isso tá rodando local ou web? []'s Rafael Spilki