thicomp

Cara, tenta assim... function verifica(){ if (document.forms.tip[0].checked != true && document.forms.tip[1].checked != true && document.forms.tip[2].checked != true) { alert('Por favor, escolha uma das opções!'); return false; } return true; } No form você chama a função

Mas que true você diz, o do return??

Pessoal, será que alguém saberia me dizer onde está o erro neste código. É o seguinte, se eu retirar a validação dos campos "radio" (primeiro if), o código funciona legal. Deixando como está, se um dos campos "radio" não for selecionado ele retorna a mensagem, mas se um deles for selecionado, o código não faz a verificação dos outros campo. Será que alguém teria alguma sugestão?? function verifica(){ if (document.forms.tip[0].checked != true && document.forms.tip[1].checked != true && document.forms.tip[2].checked != true) { alert('Por favor, escolha o campo Tipo do Documento!'); return false; } if (document.forms[0].colab.value.length == 0) { alert('Por favor, preencha o campo Colaborador!'); return false; } if (document.forms[0].prodpd.value.length == 0) { alert('Por favor, preencha o campo Produto!'); return false; } return true; } Abçs

Caso não haja valores para carregar a célula da tabela, pra não deixá-la em branco, colocar algo do tipo N/D. Abçs

Vlw galera... Era isso mesmo... Obrigado pela ajuda

Caro Kuroi Estou com um problema... No meu txt há duas colunas que são de valores numéricos, mas haverá situações em que precisarei entrar também com letras, pontos e vírgulas (estes últimos em caso de números decimais). Quando faço a leitura destes campos, mesmo eles tendo conteúdos, no txt, diferentes de números, ele não consegue chamar estes campos, só chama mesmo os campos numéricos, e no caso de numeros com "." ou com ",", ele lê só a parte numérica. Se eu colocar um caracter normal em cada campo, aí sim ele faz a leitura. Tem como eu definir o tipo de valores destes campos?? Saberia responder a estas dúvidas? Agradeço pela atenção Abçs

Exatamente Assim, como meu campo "input text" já virá com um valor pré-definido, ou seja, a opção "value" deste campo já virá preenchida e caso o usuário mude este mesmo conteúdo, o "form" vai enviar o conteúdo definido pelo campo "value", e não pelo conteúdo alterado... <input type=text name=nome value="teste">teste --> meu código está assim... Mas se o usuário modificar, assim: <input type=text name=nome value="teste">teste 1 o valor que será enviado será o valor definido no campo "value", ou seja, "teste" Abçs

andreia_sp, me desculpe mas já descobri onde está o problema if session("int") = "PD" then numeroatual=right(alfaNum,2) elseif alfaNum = "x" then numeroatual=right(alfaNum,5) else numeroatual=right(alfaNum,4) end if São as numerações em vermelho. Como aí no caso esta definido como "2", ele só lia as 2 primeiras, quando chegava em 99, ele voltava pro 01 Muito obrigado pela ajuda e paciencia Abçs

É texto... É o seguinte: O meu código pega o nome do arquivo txt, que é quem vai controlar esta sequência numérica. Quando o usuário envia este formulário, o contador é executado, renomeando o arquivo txt com a próxima sequência. Do 0099 ele vai para o 0100. Se eu executar mais uma vez, ele volta para o 0001. Aí, no caso eu coloque a numeração 0999, ele vai para o 0100. Se for executado novamente, volta para 0001. Veja se expliquei legal Abçs Ahh!! Outra coisa. O formato do código é assim PD_0001

Aqui o código completo <% session("codint") session("prod") Const forWriting=2, forAppending=8 Dim objteste, objtextstream, FSO dim alfaNum, numeroatual, novoNumero alfaNum=session("codint") if session("int") = "PD" then numeroatual=right(alfaNum,2) elseif alfaNum = "x" then numeroatual=right(alfaNum,5) else numeroatual=right(alfaNum,4) end if novoNumero=cint(numeroatual)+1 Select Case len(novoNumero) Case 1 novoNumero="000"&novoNumero Case 2 novoNumero="00"&novoNumero Case 3 novoNumero="0"&novoNumero Case 4 novoNumero=""&novoNumero end select if session("codint") = "PD" then novaVariavel=left(alfaNum,3)&novoNumero elseif alfaNum = "x" then novaVariavel=left(alfaNum,6)&novoNumero else novaVariavel=left(alfaNum,5)&novoNumero end if Dim objname set objteste = createobject("scripting.FileSystemObject") set objname = createobject("scripting.FileSystemObject") set fso = createobject("scripting.FileSystemObject") 'Verifica se arquivo existe na pasta específica if objteste.FileExists ("F:\Produtos\"& session("prod") &"\"& session("codint") &"\"& alfanum &".txt") = true then Set fileobject = fso.GetFile("F:\Produtos\"& session("prod") &"\"& session("codint") &"\"& alfanum &".txt") 'Renomeia arquivo antigo fileobject.Name = ""& novaVariavel &".txt" name1 = ""& novaVariavel &".txt" end if set fileObject = nothing set objteste = nothing set objname = nothing set fso = nothing

Pessoal, alguém sabe o problema deste contador?? Até o número 99 ele lê normal, quando chega no 100, ele volta para o 001 novoNumero=cint(numeroatual)+1 Select Case len(novoNumero) Case 1 novoNumero="000"&novoNumero Case 2 novoNumero="00"&novoNumero Case 3 novoNumero="0"&novoNumero Case 4 novoNumero=""&novoNumero end select Obrigado

Pessoal, estou com um problema... Veja se alguém poderia me ajudar. Bom, tenho um formulário que é preenchido inicialmente, e suas informações são gravadas em um txt. No entanto, em determinado momento, as informações deste txt são mostradas ao usuário dentro de campos text e, caso ele necessite alterar, ele consiga fazer normalmente. O problema é que pra eu disponibilizar estas informações dentro destas caixas text, vou precisar definir o campo (value), e com isso não vou conseguir alterá-las, pois ele enviaria novamente o mesmo campo lido. Seria inviável passar todas as informações dentro de um campo hidden e montar o txt novamente. O ideal seria mesmo alterar somente um campo específico. Alguém teria alguma sugestão para que eu possa solucionar este problema?? Desde já, agradeço pela atenção Abçs

Cara, deu certo Utilizando a function de formata data, as datas agora aparecem corretas... Muito Obrigado

É cara, colocando um mês inexistente ele retorna a data correta definida no txt, ou seja 13/08/2006 e não 08/13/2006, como é o que vem acontecendo...

Cara, a questão da data, como pode ser, se no meu arquivo txt a data está certa, mas quando o código é executado, ele altera para o padrão americano... O código ficou assim: <% session("int") session("prod") response.write "<table cellpadding=1 cellspacing=1 border=1 width=700>" response.write "<tr><td>Codigo<td>Data Abertura<td>Responsável<td>Produto<td>Etapa<td>Resumo/Descricao</td>" Dim Conn, rs Set Conn = Server.CreateObject("ADODB.Connection") ' Set the Dbq portion of the string to the physical folder where your price files reside Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "Dbq=F:\Produtos\"& session ("prod") &"\"& session("int") &"\conc;" & _ "Extensions=asc,csv,tab,txt;" & _ "Persist Security Info=false" Dim sql sql = "SELECT * from "& session("int") &".txt order by Codigo" '(implicit recordset creation through execute method) set rs = conn.execute(sql) if cor ="#e2eedf" then cor = "#c4d4ee" else cor ="#e2eedf" end if While Not rs.EOF Response.Write "<TR BGCOLOR="& cor &"><TD BGCOLOR="& cor &">" & rs(0) & "</TD>" Response.Write "<TD BGCOLOR="& cor &">" & rs(1) & "</TD>" Response.Write "<TD BGCOLOR="& cor &">" & rs(2) & "</TD>" Response.Write "<TD BGCOLOR="& cor &">" & rs(3) & "</TD>" Response.Write "<TD BGCOLOR="& cor &">" & rs(4) & "</TD>" Response.Write "<TD BGCOLOR="& cor &">" & rs(5) & "</TD>" rs.MoveNext Wend Response.write "</TABLE>" rs.close set rs = nothing conn.close set conn = nothing %> Lembrando que as informações do txt estão separadas por ";" Muito Obrigado

Cara, só mais uma coisinha... você saberia me dizer o porque da data lida no txt aparece no formato americano, por exemplo: a data 4/8/2006 aparece 8/4/2006, sendo que no txt a data aparece certo... Abçs

Cara, beleza, deucerto sim... Vou ter que modificar e separar os campos com ";". Valeu mesmo pela ajuda... Muito obrigado Abçs

beleza cara, defini um nome pra minha coluna e ele ordenou legal, agora só preciso fazer a separação da linha do txt por colunas, já que todas as informações estão um uma única célula. Caso você puder me ajudar, ficarei muito agradecido. Mas mesmo assim, obrigado pela paciência Abçs

Então, eles estão separados por tabulação. Só que quando mando imprimir na tela, ele imprime uma linha como sendo uma só celula da tabela. Na questão da ordenação, eu preciso que ele imprima na tela os dados ordenados pela primeira coluna, independente se o txt estiver ou não, apesar de achar que se o txt já estiver ordenado ele vai exigir menos do servidor... Abçs

Era isso mesmo cara... É que ele lê cada linha do txt, e não cada coluna dele. Preciso separar cada item de cada linha em celulas e fazer a ordenação dos valores (1ª célula de cada linha) Poderia me ajudar? Abçs

Pessoal, alguém sabe onde está o erro? [code/<% Dim Conn, rs Set Conn = Server.CreateObject("ADODB.Connection") ' Set the Dbq portion of the string to the physical folder where your price files reside Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "Dbq=F:\produto\conc;" & _ "Extensions=asc,csv,tab,txt;" & _ "Persist Security Info=False" Dim sql sql = "SELECT * from teste.txt" '(implicit recordset creation through execute method) set rs = conn.execute(sql) Response.write "<Table><TR BGCOLOR=lightblue>" While Not rs.EOF 'here we have stock price text file in format: Date High Low Close Volume' Response.Write "<TR bgcolor=lightblue><TD>" & rs(0) & "</TD><TD>" & rs(1) & "_</TD><TD>" & rs(2) & "</TD><TD>" & rs(3) & "</TD><TD> " & rs(4) & "</TD><TD>" & rs(5) & "</TD><TD>" & rs(6) & "</TD><TD>" & rs(7) & "</TD><TD>" & rs(8) & "</TD><TD>" & rs(9) & "</TD></TR>" rs.MoveNext Wend Response.write "</TABLE>" rs.close set rs = nothing conn.close set conn = nothing %> ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /produto/conc/teste4.asp, line 17 Abçs

Pessoal, deem uma olhada neste código e vejam se alguém pode me auxiliar no que preciso. A diferença que eu preciso é que ele vai ler as informações de um txt <% FUNCTION SortArray(varArray) For i = UBound(varArray) - 1 To 1 Step - 1 MaxVal = varArray(i) MaxIndex = i For j = 0 To i If varArray(j) > MaxVal Then MaxVal = varArray(j) MaxIndex = j End If Next If MaxIndex < i Then varArray(MaxIndex) = varArray(i) varArray(i) = MaxVal End If Next END FUNCTION REDIM arrSORT(8) arrSORT(0)="Elvis" arrSORT(1)="Helicopter" arrSORT(2)="Corn" arrSORT(3)="Apple" arrSORT(4)="Drum" arrSORT(5)="Green" arrSORT(6)="Flowers" arrSORT(7)="Big" Response.write "<TABLE BORDER=1 WIDTH=100% ><TR><TD><B>UNSORTED</B></TD><TD><B>SORTED</B></TD></TR>" Response.write "<TR><TD>" FOR i = 0 TO UBOUND(arrSORT) - 1 Response.write "<B>arrSORT(" & i & ") value: </B>" & arrSORT(i) & "<BR>" NEXT Response.write "</TD><TD>" SortArray arrSORT FOR i = 0 TO UBOUND(arrSORT) - 1 Response.write "<B>arrSORT(" & i & ") value: </B>" & arrSORT(i) & "<BR>" NEXT Response.write "</TD></TR></TABLE>" %>

Tenho um arquivo txt onde serve como um "BD". Cada linha tem as informações de um formulário e as várias informações estão separadas por tabulação. Mais ou menos assim... codigo /t Nome /t Endereço /t A cada preenchimento do formulário, as informações são preenchidas na linha seguinte... Preciso com que o sistema faça o ordenamento do campo "codigo", visto que esta codificação que será inserida no txt não será sequencial... Portanto, preciso organiza-la... Espero ter sido claro na resposta... Abçs

Olá pessoal, beleza?? Estou com um probleminha que é o seguinte: Tenho um código que faz a leitura de arquivos txt. Este txt contém as informações de preenchimento de um formulário, portanto, as posições são as mesmas em cada linha, separadas por tabulação. Preciso fazer com que os campos relacionados com o código (que são a primeira coluna do arquivo) sejam sequenciais, portanto preciso fazer uma organização destes dados. Alguém teria alguma sugestão? Desde já, agradeço pela atenção

Tá aí alfaNum=session("codint") numeroatual=right(alfaNum,4) novoNumero=cint(numeroatual)+1 Select Case len(novoNumero) Case 1 novoNumero="000"&novoNumero Case 2 novoNumero="00"&novoNumero Case 3 novoNumero="0"&novoNumero Case 4 novoNumero=""&novoNumero end select novaVariavel=left(alfaNum,5)&novoNumero response.write novaVariavel