cyberalexxx

acho q seria algo assim: <% limite = 30 ' numero maximo de caracteres para exibição texto="teste de formatação<br><div align='center'>mais uma linha para teste</div>bla <b>bla</b> bla" caracteres=0 contador = 0 controle = 1 Do while contador <= limite a = mid(texto,controle,1) if a <> "<" then controle = controle + 1 contador = contador + 1 else do while a <> ">" caracteres = caracteres + 1 controle = controle+1 a = mid(texto,controle,1) loop caracteres = caracteres + 1 end if loop response.write left(texto,(limite+caracteres)) %> Testa ai, acho q precisa de alguns ajustes ainda, mais a idéia é essa.

vencimento=date() + 5

beleza!! Tópico Fechado!!

quanto ao ponto, voce pode colocar um replace para trocar o ponto pela virgula: tipo altura=replace(Rs("altura"),".",",") quanto ao peso da pra usar a mesma metodologia da altura. O ideal mesmo é colocar validação na hora do cadastro para não permitir qualquer tipo de informação.

Voce percebeu o que foi mudado??? a passagem para o próximo registro e o loop foram passados para depois de todo o bloco de exibição. A mesma mudança deve ser realizada nos 2 scripts.

beleza!! Se der tudo certo avisa a gente pra fecharmos o tópico. []'s

Partindo do pressuposto d q ninguém mede mais de 3 metros voce pode testar assim: if rs("altura") > 3 then : altura=Rs("altura")/100 : end if ou procurar a virgula: if instr(rs("altura"),",") = 0 then : altura=Rs("altura")/100 : end if

é só dividir o valor que vem do BD por 100

<% sqlstmt = "SELECT * FROM noticias ORDER BY data, id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 1, 1 x=0 Do while not Rs.Eof if x > 0 then fotel = rs("foto") date1 = rs("data") id = rs("ID") name1 = rs("titulo") link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>" description = date1 end if x=x+1 %><font size="1"> </font> <tr> <td width="189"> <% if rs("foto") = "N" then %><font size="1"> </font> <font size="1"> &nbsp;<% else %>&nbsp; <% end if %> <br> - <% =link %> <br> <%Rs.MoveNext loop%>

Sim!! mais alguns requisitos devem sem preenchidos: a variavel deve ser declarada a função deve ser executada (isso é obvio)

localiza.asp?cod=1&categoria=2

as informações buscadas no recordset devem estar dentro do loop!!! O exemplo que eu postei foi feito de acordo com a quantidade de código que voce postou anteriormente.

não tem como sair das comparações, eu faria assim: function titulo if request("data")<>"" then titulo="<tr><td>nome</td><td>data</td><td>idade</td></tr>" else titulo="<tr><td>nome</td><td>idade</td></tr>" end if end function function detalhe if request("data")<>"" then detalhe="<tr><td>" & rs("nome") & "</td><td>" & rs("data") & "</td><td>" & rs("idade") & "</td></tr>" else detalhe="<tr><td>" & rs("nome") & "</td><td>" & rs("idade") & "</td></tr>" end if end function 'cria o recordset response.write titulo() Do while not Rs.Eof response.write detalhe() Rs.MoveNext loop

Primeira Pagina: <% sqlstmt = "SELECT top 1 * FROM noticias ORDER BY data, id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 1, 1 Do while not Rs.Eof fotel = rs("foto") date1 = rs("data") id = rs("ID") name1 = rs("titulo") link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>" description = date1 loop %> Segunda Pagina: <% sqlstmt = "SELECT * FROM noticias ORDER BY data, id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 1, 1 x=0 Do while not Rs.Eof if x > 0 then fotel = rs("foto") date1 = rs("data") id = rs("ID") name1 = rs("titulo") link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>" description = date1 end if x=x+1 Rs.MoveNext loop %>

é so resgatar o valor na pagina de ação: variavel=request("combo")

é ai que nos remetemos ao que eu estava falando, nós aspers conhecemos o VbScript e muitas vezes não usamos.

beleza!! Como o Dark0 falou é ate mais facil da uma olhada: caminho = Server.Mappath("arquivo.txt") Set TXT = FSO.OpenTextFile(caminho) linha =Split(txt.readLine,".") frase = linha(0)

Certo!! Certo!! Só quero demonstrar que nem sempre Javascript é a unica saida e sim a mais usada.

acredito que não. Acho q voce tera que ler a linha e antes de exibir procurar o fim da frase que eu acredito que seja um ponto "." da pra fazer com Instr() e depois usar um left do inicio da linha até a posição encontrada no Instr()

Com relação a funções em tempo de execução, gostaria de registrar o meu descontentamento em relação ao descaso que é feito com o VBScript nossa linguagem de script nativa. Pois sempre ouvimos: só da pra fazer com Javascript e as vezes por causa de uma simples validação de um campo de formulário o programador tem que aprender javascript ou pior pega um script pronto em JS que ele tranquilamente desenvolveria em VBScript. Vou deixar abaixo um pequeno exemplo que fiz de validação de um campo de formulário, se o campo não for preenchido ele mostra um alerta e o botão enviar fica desabilitado, caso contrario o botão é habilitado. <script language='VBScript'> function validacampo if len(document.formulario.nome.value) = 0 then msgbox("O campo deve ser preenchido") document.formulario.nome.focus() else document.formulario.botao.disabled=false end if end function </script> <form name='formulario' method=post action='<%=request.servervariables("script_name")%>'> Digite o valor: <input type='text' size='50' name='nome' OnBlur='validacampo'><br> <input type='button' name='botao' value='enviar' disabled='true'> </form>

OK!! Tópico Fechado!! Que a força esteja com voce!!!

voce já olhou a documentação do componente de upload???

voce quer dar refresh na pagina ou carregar a função antes do refresh??? caso voce queira dar o refresh na pagina, voce pode pode comparar se o botão foi clicado testando o valor do botão, tipo: if request.form("botao") = "enviar" then executa a funçao. Caso não queira recarregar a pagina ai voce tera que criar a função para ser executada no Client Side ou seja dentro das tags <script></script> e não das tags <% %> e para executar a função voce pode colocar a propriedade OnSubmit='função()' no form.

Livro eu não conheço, mais uma apostila que me ajudou muito quando eu comecei no ASP, voce pode baixar aki: http://www.crieseuwebsite.com/apostilas/de...a=ASP&arquivo=2

execute esse script que ele ira lhe mostrar todas as servervariables e seu resultado: <% response.write "<style type='text/css'>" response.write "tr { background-color: #E4EAF2; font-color: #465584; font-family:Arial; font-size:12 }" response.write "</style>" response.write "<table>" For each Item in Request.ServerVariables Response.write "<tr><td>" & Item & "<td>" & Request.ServerVariables(Item) & "<tr>" Next response.write "</table>" %>