aferlim

Veja se o caminho está correto assim: <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") caminho = Server.MapPath("\testes\catalogo\teste.txt") Response.Write caminho Response.end Set GRAVAR = FSO.CreateTextFile(caminho,true) gravar.write ("teste de gravação") gravar.close response.write "GRAVADO!" %>

dá uma olhada nesse pequeno script para evitar palavras repetidas: palavra = "como fazer como o João Fez" ' aqui a sua string dim separada(10)'Um array para obter as palavras cont=0 ' Um contador para manipularmos o array for i=1 to len(palavra)'num caracteres var=mid(palavra,i,1) str=str&var if var=" " then' espaços em branco significa próxima palavra cont=cont+1 separada(cont)=str str="" ' então zeramos a string end if next cont=cont+1 separada(cont)=str ' para não perdermos a última palavra for i=1 to cont ' para evitar palavras repetidas for i2=1 to cont if separada(i)=separada(i2) and not i=i2 then separada(i)="" end if next next for i3=1 to cont ' para evitar palavras pequenas ex: é , sim, tem , não é opcional if not len(separada(i3)) < 4 then Response.Write(separada(i3)&"<br>") end if next

Tente isso: <% Set objConn = Server.CreateObject("ADODB.Connection") objconn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq="&server.MapPath("amor_arte")&";Uid=Admin;Pwd=;" Dim campo,strsql,rsdbcon,verifica,cont,cdprodutos,cddepartamento,nome,descricao,preço,precovenda,quantidade cdproduto=Request.Form("cdproduto") cddepartamento=Request.Form("cddepartamento") nome=Request.Form("nome") descricao=Request.Form("descricao") preço=Request.Form("preço") precovenda=Request.Form("precovenda") quantidade=Request.Form("quantidade") campo=Request.Form("campo") response.write campo strsql ="UPDATE Produtos SET CodigoProduto='"&cdproduto&"', CodigoDepartamento="&cddepartamento&",NomeProduto='"&nome&"', DescricaoProduto='"&descricao&"', preço='"&preço&"',PrecoVenda='"&precovenda&"',Quantidade='"&quantidade&"' where CodigoProduto='"&campo&"'" objConn.Execute(strsql) %>

Cara mas na página ASP ou no editor SQL?

O problema está sendo entaum no html não no asp. tente assim: TEnte a última vez: <% function destaca(frase) destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>") end function %> . . . <% set rs = objConnection.Execute("SELECT etc... etc....") %> <table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0"> <% If not rs.EOF Then cor= "#FFFFFF" while not rs.eof if cor <> "#FFFFFF" then cor="#FFFFFF" else cor = "#F0F0F0" end if %> <tr> <td bgcolor="<%=cor%>" width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%> %&nbsp; </font></div></td> <td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td> </tr> <% rs.MoveNext wend End if %> Não esqueça do: </table>

Fórum encerrado!!!!!

TEnte a última vez: <% function destaca(frase) destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>") end function %> . . . <% set rs = objConnection.Execute("SELECT etc... etc....") %> <table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0"> <% If not rs.EOF Then cor= "#FFFFFF" while not rs.eof if cor <> "#FFFFFF" then cor="#FFFFFF" else cor = "#F0F0F0" end if %> <tr bgcolor="<%=cor%>"> <td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%> %&nbsp; </font></div></td> <td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td> </tr> <% rs.MoveNext wend End if %>

Faz Assim

manda ai!

o erro tá dando porque a palavra sub é reservada do asp, não pode ser usada como variavel entaum a troque: <% function destaca(sub) sub = replace(sub,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>") end function %> por: <% function destaca(frase) sub = replace(frase,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>") end function %>

Você montou a função errada. Nesse caso deve ficar assim: <% function destaca(sub) sub = replace(sub,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>") end function %> obs: as tags <b></b>são de negrito, e <u></u> sublinhado Caso for sublinhado substitua... Ok?

faltou uma coisa: Aonde tem: str="select * from funcionario where nome = '"&request("nomecompleto")&"'"&restante troque por: if Request("id_principal") <>"" then str="select * from funcionario where id = "&request("id_principal")&restante else str="select * from funcionario where nome = '"&request("nomecompleto")&"'"&restante end if

Bom! entaum vamos lá: Qualque dúvida post!!!!!!!! Implemete com o seu código pagina.asp: <% if Request("totalregistros") <> "" then ' Pra poder pesquisar vários registros for i=1 to Cint(Request("totalregistros")) restante=restante&" or id="&Request("hidden_cliente"&(i)) next contador_refresh=Cint(Request("totalregistros"))+1 else contador_refresh=1 end if str="select * from funcionario where nome = '"&request("nomecompleto")&"'"&restante Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open str, suaconexão %> <html> <body> <form action="pagina.asp?totalregistros=<%=contador_refresh%>" method="post"> <% for i=1 to contador_refresh%> <input type="hidden" name="hidden_cliente<%=i%>" value="<%=Rs("id")%>"> <%next%> <input type="text" name="nomecompleto"> <input type"text" value="envia"> </form> <p> Até aqui acho que está claro!!! Abaixo é aonde vai exibir os dados<br> <% while not rs.eof for i=1 to contador_refresh ids=ids&"&id"&i&"="&Rs("id") next %> <a href="pagina.asp?totalregistros=<%=contador_refresh%><%=ids%>&id_principal=<%=Rs("id")%> <% if Request("id_principal")<> "" then if Cint(Request("id_principal")) = Cint(Rs("id")) then nomedocracha=Rs("nomecompleto") fotodocracha=Rs("imagem") outrosdados=Rs("outros") end if end if Rs.movenext wend %> </p> cracha: <table> <tr> <td><%=fotodocracha%></td> </tr> <tr> <td><%=nomedocracha%></td> </tr> <tr> <td><%=outrosdados%></td> </tr> </table> </body> </html> putz., espero ter sido claro!!!!

Vamos lá fale pra nós qual o componente que você usa? Ai poderemos ajudar, se não souber, informe-se no seu servidor. A outra forma, mas com um componente vai ficar muito melhor até pro seu entendimento.

Vamos lá: imagino q já tem o link: entaum deixa eu ver se entendi: aqui os nomes: nome1 nome2 nome3 e ai o usuário escolhe um e o q ele escolher deverá aparecer a foto e os dados do crachá? é isso?

Pude perceber que situacao é um campo alpha entaum faça assim: CODE mrnome = (Request("nome")) serie = (Request("serie")) serie2 = (Request("serie2")) mrturma = serie+serie2 SQL = " Select * FROM Alunos WHERE nome='"& Request.Form("nome")&"' " Rs.Open SQL, Conn,3,3 IF not Rs.Eof then mrsituacao = Cint(rs("situacao")) + 1 sqlString = " UPDATE Alunos SET situacao='"&mrsituacao&"' WHERE nome='"& Request.Form("nome")&"' " Conn.Execute sqlString ELSE mrsituacao = 1 Rs2.Open "Alunos", Conn,3,3 Rs2.AddNew Rs2("nome") = mrnome Rs2("turma") = mrturma Rs2("situacao") = mrsituacao Rs2.Update Rs2.Close END IF Rs.Close

Ai Guest se cadastra aí cara, seja um parceiro. Já sofri muito com a linguagem ASP há 04 anos atrás. Sejamos solidários, vamos ajudar nossos futuros aspers. E sempre que tiver um tempo esteja ai conosco!!! Valeu Cara!!!! kwead.com

vamos lá: abra sua tabela em modo estrutura e posta aí pra nós o tipo de dados de cada campo. Por favor! kwead.com ano'5

ah c num falou tente isso: coloque uma function no topo da página ou include, você escolhe: function sublinhado(valor) sublinhado = replace(valor,"ViniciusJau","<u>ViniciusJau</u>") end function Response.Write (sublinhado("O meu nome é ViniciusJau ")) e até Response.Write (sublinhado(Rs("campo_nome"))) e assim consecutivamente e cada campo que possa conter Seu nome. kwead.com ano´5

cara por favor copie esse código e veja se está exibindo o camonho exatamente onde se encontra salvo seu db. <% set conn= server.createobject("ADODB.Connection") caminho="DBQ=" & server.mappath("pmm.mdb") 'conn.Open= "DRIVER={Microsoft Access Driver (*.mdb)};" & caminho response.write caminho %> Depois posta, ai resolvemos isso!!

Cara podem haver várias hipóteses, põe o código ai no ar pra nós darmos uma olhada. valeu's [] kwead.com ano'5

Se há hipotese de as vezes não ser uma Session, ou seja, uma consulta direta do db. Coloque dentro do Seu banco de dados no registro onde possui seu nome as tags: <u>Seu nome</u> (dentro do registro) OK?

O segredo está na Session("nome_completo") ela vem atribuida de algum lugar, de onde vier coloque: sei q vem duma tabela Session("nome_completo")="<u>"&Rs("nome_completo")&"</u>" reparou q é lá aonde você atribui o valor da Session? pois é , agora onde você chama-la virá sublinhada. agora não mais precisa colocar a tag html(<u></u>) asiim: <% If IsEmpty(Session("login")) Then Response.redirect("login_errado.asp") Else Response.Write("<b>Bem Vindo:</b><br>" & Session("nome_completo")) End if %> fui claro? senão post ai! Kwead.com ano'5

Um Refresh é quando você recarrega uma página. Quanto a foto o usuário insere a foto e o nome do arquivo vai prum campo da tabela?

realmente: vendo seu código melhor percebi possui aspas incoretas: <a href="PesGenEmpresa.asp"?CodEmp="<% =CodEmpresa %>"> <% response.write Rs("Nome") %> </a> faça assim: <a href="PesGenEmpresa.asp?CodEmp=<% =CodEmpresa %>"> <% response.write Rs("Nome") %> </a> remova as aspas