Victor

Salve asper's !!! Eu lembro que postei um link aonde tinha a dll do CDONTS para download, fiz uma busca mais não encontrei Alguém pode me ajudar a achar denovo?? VLWWW... []'s Victor

Deixa eu ver se entendi, tipo tem um site, você quer converter ele em ficar só o codigo de fonte na tela... Certo??? []'s Victor

Você usa o querystring....Olhe o codigo abaixo: <%if request.querystring("secao") <> "asp" and request.querystring("secao") <> "php" then%> <font size="5" color="#ff0000">Essa página não existe!!!</font> <% else select case request.querystring("secao") case "asp" %> <table> <tr> <td>Página ASP</td> </tr> </table><% case "php" %> <table> <tr> <td>Página PHP</td> </tr> </table> <% end select end if %> Vai ficar assim: www.site.com.br/arquivo.asp?secao=asp ou www.site.com.br/arquivo.asp?secao=php..... Mas você quer isso com algum arquivo que vem do bd, tipo o do forum, é um querystring de uma coluna de autonumeração no bd, que ele mostra de acordo com o cadastro, se você for mexer com bd fale, que assim poderemos te ajudar melhor!!!! []'s Victor

http://www.hostnet.com.br, http://www.locaweb.com.br, http://www.locahost.com.br/....Ai tem alguns que eu acho os melhores!!! Olhe os planos!!! Se precisar mais de alguma coisa é só gritar!!! []'s Victor

if len(RecSet("texto")) =< 90 then texto = Recset("texto") else texto = resume_campo(RecSet("texto"), 90) end if %> <font size="-2" color="dddddd"><%=texto%>...</font> Use isso que ele irá aparecer so os primeiros 90 caracters e dps vai aparecer os pontos!!!! Se precisar de mais alguma coisa é só gritar!!! []'s Victor

<% RecSet.Open "Select * from funcionario", conn if not RecSet.EOF then while not RecSet.EOF %> <table border="1" cellpadding="0" cellspacing="0" width="259" bordercolor="#000000"> <tr> <td width="80" rowspan="5"> <p align="center"><img border="0" src=<%=foto%> width="77" height="97"></p></td> <td width="173">&nbsp;Nome : <%=nome%></td> </tr> <tr> <td width="173">&nbsp;Função : <%=funcao%></td> </tr> <tr> <td width="173">&nbsp;Email : <a href="mailto:<%=email%>"><%=email%></a></td> </tr> <tr> <td width="173">&nbsp;Ramal : <%=ramal%></td> </tr> <tr> <td width="173">&nbsp;<%=nasc%></td> </tr> </table></td> </tr> </table> <%RecSet.MoveNext wend end if RecSet.Close%> Pega esse exemplo e junta com o resto da parte do seu codigo, eu só coloquei para ele enquanto não for final de arquivo ele pegar todos as linhas do bd, e aparecer todos os registros!!! Se precisar de mais alguma coisa é só falar!!!Estarei sempre disposto a ajudar!!! []'s Victor

E ele também me mandou me pedindo em ASP

Se não me engano tem outro tópico igual a esse e você mesmo que fez

então você tem que colocar if not rs.eof, ai ele vai pegar todas as linhas do bd, enquanto não for final de arquivo!!!

Seu sistema tem mais de um registro ou só um???

Urso, eu não estou conversando, só estou falando pro dark0, que eu não ia fazer para ele e sim ajudar a ele aprender, mas não posso falar nada e já acham q eu faço isso por causa de "posts", eu não faço por isso, pergunta pro resopi, eu tinha pedido para ele diminuir meus posts, ele diminiu um 50,60 posts pergunte para ele!!! []'s Victor

Você pode usar uma matriz..Olhe esse codigo abaixo: <% dim meses(12) meses(1)="Janeiro" meses(2)="Fevereiro" meses(3)="Março" meses(4)="Abril" meses(5)="Maio" meses(6)="Junho" meses(7)="Julho" meses(8)="Agosto" meses(9)="Setembro" meses(10)="Outubro" meses(11)="Novembro" meses(12)="dezembro" dim semana(7) semana(1) ="Domingo" semana(2) ="Segunda-Feira" semana(3) ="Terça-Feira" semana(4) ="Quarta-Feira" semana(5) ="Quinta-Feira" semana(6) ="Sexta-Feira" semana(7) ="Sábado" sem = weekday(date) dia = day(date) mes = month(date) ano = year(date) function diadomes(d) nc = len(dia) if nc < 2 then diadomes = 0&dia else diadomes = dia end if end function data = semana(sem)&", "&diadomes(dia)&" de "&meses(mes)&" de "&ano %> <hr> <font color="333333" size=-2 face="verdana"><b><%=data%></b></font> Ele vai aparecer assim: EX: Segunda-Feira, 17 de dezembro de 2003 Se tiver mais alguma dúvida é so gritar!!! []'s Victor

Por que é ilegal John Doe??

Deixa eu ver se entendi, você quer que grave no bd o que o cara escreveu no campo, e quer que apareça um texto de confirmação no site quando a pessoa se cadastra!!! Certo??? []'s Victor

Fazendo upload upload.asp <% Set RecSet = Server.CreateObject("adodb.recordset") if Request.QueryString("upload") <> "" then session("upload") = Request.QueryString("upload") end if if Request.QueryString("acao") = "gravar" then Set upl = Server.CreateObject("SoftArtisans.FileUp") Set FSO = Server.CreateObject("Scripting.FileSystemObject") on error Resume Next nome_foto = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1) if FSO.FileExists(endereco_fisico&"\imagens\"&nome_foto) = False Then if Request.QueryString("recorte") = "sim" then RecSet.Open "Select foto_recorte from promocao where id = "&session("upload")&"", conn foto_antiga = RecSet("foto_recorte") RecSet.Close FSO.DeleteFile endereco_fisico&"\imagens\"&foto_antiga upl.Path = endereco_fisico&"\imagens\" upl.Save Conn.Execute "Update promocao set foto_recorte = '"&nome_foto&"' where id = "&session("upload")&"" else RecSet.Open "Select foto from promocao where id = "&session("upload")&"", conn foto_antiga = RecSet("foto") RecSet.Close FSO.DeleteFile endereco_fisico&"\imagens\"&foto_antiga upl.Path = endereco_fisico&"\imagens\" upl.Save Conn.Execute "Update promocao set foto = '"&nome_foto&"' where id = "&session("upload")&"" end if else Response.Write "<script>alert('o sistema encontrou um outro arquivo com este mesmo nome, por favor renomeio o arquivo para prosseguir...')</script>" end if Set upl = Nothing Set FSO = Nothing end if RecSet.Open "Select * from promocao where id = "&session("upload")&"", conn t=RecSet("titulo") foto=RecSet("foto") foto_r=RecSet("foto_recorte") RecSet.Close %> <body topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0> <form method=post enctype="multipart/form-data" action="upload.asp?acao=gravar&recorte=<%=Request.QueryString("recorte")%>"> <table border=0 bgcolor="#CC0033" width="100%"> <tr height=20> <td align=center width="100%"><font color="#FFFFFF">Sistema de Envio de Imagens</font></td> </tr> <tr height=452 bgcolor=#FFFFFF> <td align=center valign=top width="100%"> ID.: <b><%=session("upload")%></b><br> <table border=1 width="100%" height="97%" style="border-collapse: collapse"> <tr height=20> <td width="100%" align=center><%=t%></td> </tr> <tr> <td colspan=4> <table border=0 width="100%" height="100%" style="border-collapse: collapse"> <tr width="100%" height="80%"> <td align=center> <% if Request.QueryString("recorte") = "sim" then if IsNull(foto_r) = true then%> não existe imagem cadastrada para este produto... <%else%> <img src="<%=endereco_virtual%>/imagens/<%=foto_r%>"><% end if else if IsNull(foto) = true then%> não existe imagem cadastrada para este produto... <%else%> <img src="<%=endereco_virtual%>/imagens/<%=foto%>"><% end if end if %> </td> </tr> <tr width="100%" height="10%"> <td> <input type=file name=up_foto size=30 class=form> </td> </tr> <tr width="100%" height="10%"> <td> <input type=submit value=Enviar class=form> </td> </tr> </table> </td> </tr> </table> </td> </tr> <tr height=20> <td align=center width="100%"><font color="#FFFFFF">Sistema de Envio de Imagens</font></td> </tr> </table> </form> </body>

Pelo que eu sei, ele estava sem tempo, por isso ele saiu da moderação, mas quanto ao forum, não sei porque ele está saindo []'s Victor

Acho que você tem que pedir permissão pro cara, para ver se pode fazer isso!!! []'s Victor

já que ele editou o dele estou editando o meu

DARK0, o cara quer em ASP, não JS Mas os dois dão para fazer!!! []'s Victor

Não entendi muito bem o que você quer!!! Pode ser mais claro???

Acho que você instanciou o objeto do CDONTS errado, poste o seu codigo aqui, para que possamos te ajudar melhor!!! E se cadastre-se em nossa comunidade, para que ela cresça!!! []'s Victor

Dá para você fazer uma ganbiarra, e fazer funcionar...Mas não é bom não cara!!! []'s Victor

Por que olhar minha palavras??? Sobre aquele negocio que eu tinha saido do sb??? Ou eu falei alguma coisa errada?? Eu to brincando contigo sobre o tal acolhimento ! Lembra ? há sim!!! Quando voltei todos me acolheram de volta Me aceitaram de braços aberto, como se fosse meu primeiro dia:D []'s Victor

A comunidade ScriptBrasil agradece, aqui cada um ajuda o outro, assim eu aprendo e você aprende!!!

Esse if e uma consição, ele so funciona quando clicar no botão submit pois ele vai pegar os dados do submit, por isso que eu postei a tradução: se o request.form, assim ele só irá pegar os dados do campo!!! E ele só ira trabalhar quando clicar no botão!!! ai se não tiver nada nos campos ele vai responder!!! []'s Victor