Ale_xacunois

é isso ae eu equivoquei foi mal é desmarque flws

Tenta assim Verifica se um nome exist no bd antes de gravar.... QUOTE sql = "select nome from membros where nome='"& nome &"'" set recordset= conn.execute(sql) if recordset.eof = true then "aqui você cria coloca o que deve acontecer se o nome procurado não existir.... no caso um insert...." response.redirect "pagina" else response.write "nome já existe.." end if ve assim so que isso é na hora de grava flws

ola va no meu ferramentas opções de internet - clique na guia avançadas e va na opção navegação, e marque mostrar mensagens de erro http amigáveis. Ai ele vai mostrar exatemente em qual linha esta dando erro, que no seu casso é na linha 113.. /thimatele/visitas.asp, line 113 Flws

ok vou tentar obrigado

Ola bareta nossa cara que legal você é MODERADOR, eu já estava esperando por isso e torcendo por vc. você merece você entende muito.. Mas me perdoe eu não entendi muito bem essa sua dica Ale

ola pessoa boa tarde é o seguinte Estou precisando depois que eu inserir um banco no dados, o meu sistema esta buscando uma outra tela para que eu possa inserir uma foto... então eu dou um UPDAT e ele grava certinhu.;.. Mas o problema é o seguinte se existe varios usuarios logados ao mesmo tempo e fazerem o cadastro, ali ele busca no banco o ultimo codigo cadastro e joga a foto, com isso pode ser que grave foto ao contrario... então fiz assim:

ow consegui resolver esse troço graças a ajuda do LEANDRO um rapaz aki da minha cidade valeu agradeço a ele, e a todos q tentaram me ajudar flws

oieeeee alguém poderia ter fazer o obséquio de poder me ajudar? bom se não souberem melhor avisar, dai não fico postando mas deem sinal de vida valeu Ale

ow já postei o erro ai ninguém vai me ajudar.. tipow assim eu tenho uma pagina de busca do tipo tipo modelo valor cidade Estado conforme eu preencher esses dados eles me traz na tela, mas qd eu clico em proxima na paginacao da um erro.. espero um resposta Ale

oi já que pediu que eu postasse o erro ae esta Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ARTESANATO.CodigoTipo = and ARTESANATO.Modelo <> '' and ARTESANATO.Valor <= and ARTESANATO.CodigoEstado = and ARTESANATO.CodigoCidade <> '''. /site/Artesanato.asp, line 53 aparece esse erro, a linha 53 é essa: SET RsMostraArtesanato = Server.CreateObject("ADODB.Recordset") RsMostraArtesanato.Open StrMostraArtesanato,ObjMostraArtesanato,3 ------> ESSA É A LINHA 53 espero uma resposta obrigado

o valeu ufa ate que enfim deu certo valeu ae mesmo pode fechar Abraços

Pessoal boa noite é o seguinte.. Coloquei um Script no campo CPF, mas na hora que eu for grava isso no banco não quero que apareça os sinais, quero que grave somente os numeros... então fiz assim: RCpf = Trim(Replace(Request.Form("Cpf"),".", "") beleza ai ele tirar o ponto e para tirar o tracinho? já tentei assim: RCpf = Trim(Replace(Request.Form("Cpf"),".", "") RCpf = Trim(Replace(Request.Form("Cpf"),"-", "" mas ae ele so tira o segundo, so tira o tracim.. alguém poderia me ajudar??? Ale

oi esta ai o codigo ninguém vai me ajudar????// Tipo ele faz a paginacao certinho, mas qd clico em proxima ele da um erro na sql.. porque é uma pagina de busca boa noite

não sei usar esse controle ActiveX pode me ajudar??

Segue abaixo todo o codigo: o erro da na hora que eu executo a sql, usando isso aki: SET RsMostraArtesanato = Server.CreateObject("ADODB.Recordset") RsMostraArtesanato.Open StrMostraArtesanato,ObjMostraArtesanato,3 isso esta logo após a SQL, se você poder me ajudar eu agradeço. <% Dim ObjMostraArtesanto, StrMostraArtesanato, RsMostraArtesanato, StrMostraEstadoArtesanato, RsMostraEstadoArtesanato Set ObjMostraArtesanato = Server.CreateObject("ADODB.Connection") ObjMostraArtesanato.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Dados/DADOS.MDB") If Request.Form("TipoArtesanato") <> "0" then AA = "ARTESANATO.CodigoTipo = " &Request.Form("TipoArtesanato") else AA = "ARTESANATO.CodigoTipo <> " &Request.Form("TipoArtesanato") End if if Request.form("Modelo") <> "" then BB = "ARTESANATO.Modelo like '%"&Request.form("Modelo")&"%'" else BB = "ARTESANATO.Modelo <> '"&Request.form("Modelo")&"'" end if if Request.form("Valor") <> "0" then CC = "ARTESANATO.Valor <= "&Replace(Request.form("Valor"),",",".") else CC = "ARTESANATO.Valor >= "&Replace(Request.form("Valor"),",",".") End if if Request.form("Uf") <> "0" then DD = "ARTESANATO.CodigoEstado = "&Request.form("Uf") else DD = "ARTESANATO.CodigoEstado <> "&Request.form("Uf") End if if Request.form("Cidade") <> "" then EE = "ARTESANATO.CodigoCidade = '"&Request.form("Cidade")&"'" else EE = "ARTESANATO.CodigoCidade <> '"&Request.form("Cidade")&"'" End if StrMostraArtesanato = "Select * from produtos inner JOIN Artesanato on ARTESANATO.CodigoTipo = PRODUTOS.CodigoP WHERE "&AA&" and "&BB&" and "&CC&" and "&DD&" and "&EE&" Order By Artesanato.Codigo Desc" SET RsMostraArtesanato = Server.CreateObject("ADODB.Recordset") RsMostraArtesanato.Open StrMostraArtesanato,ObjMostraArtesanato,3 If RsMostraArtesanato.EOF Then Response.Write("Nenhum Registro encontrado no Banco de Dados") Else ' Definindo o número de registros por página RsMostraArtesanato.PageSize = 3 ' Recupera o valor da variável pagina pagina = Request.QueryString("pagina") ' Se a variável pagina for vazio, indica que a página sera a primeira ' Senão a variável pagina recebe o valor da página corrente, definida acima If pagina = "" Then RsMostraArtesanato.AbsolutePage = 1 pagina = 1 Else RsMostraArtesanato.AbsolutePage = pagina End If %> <% ' Criando a barra de navegação ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link ' Senão imprime sem link If CInt(pagina) > 1 Then Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ") Else Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior") End If ' Lista todas as páginas encontradas if RsMostraArtesanato.PageCount < 4 then For i = 1 To RsMostraArtesanato.PageCount response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") Next end if if RsMostraArtesanato.PageCount > 3 then inicio=pagina fim=pagina + 3 tot = pagina + 3 if tot > RsMostraArtesanato.PageCount then inicio = pagina-((pagina+3)-RsMostraArtesanato.PageCount) fim = inicio+9 end if for i = inicio to fim response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") next end if ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link ' Senão imprime sem link If CInt(pagina) < RsMostraArtesanato.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>") Else Response.Write("Próxima</B></FONT></center>") End If End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Artesanato</title> </head> <body> <p align="left">&nbsp; <font face="Arial" size="2"><font color="#FFFFFF">Para fazer uma nova pesquisa </font><b> <a href="Index.asp?op=Pesquisa_Artesanato"><font color="#FFFFFF">clique aqui</font></a></b></font></p> <HR> <p> <font face="Arial" size="2" color="#FFFFFF"> <%While Not RsMostraArtesanato.EOF AND cont < RsMostraArtesanato.PageSize%> </font> </p> <table width="520" border="0" style="border-width: 0"> <tr> <td width="94" style="border-style: none; border-width: medium" rowspan="3"><a href="#" OnClick="window.open('fotos/<%=RsMostraArtesanato.Fields("Foto").value%>','','width=475, height=385, top=2, left=50, boton=2, scrollbars=no, menubar=no, directories=no, location=no, copyhistory=no, status=no, toolbar=no, maximized=yes, resizable=no');"}> <img width="100" height="70" src="fotos/<%=RsMostraArtesanato.Fields("Foto").value%>"></td> <td style="border-style: none; border-width: medium" width="75" height="26" align="right"> <font face="Arial" size="2"><b>Produto:</b></font>:</td> <td style="border-style: none; border-width: medium" width="337" height="26"> &nbsp;<%=RsMostraArtesanato.Fields("Tipo")%></td> </tr> <tr> <td style="border-style: none; border-width: medium" width="75" height="21" align="right"> <p align="right"><b><font face="Arial" size="2">Modelo:</font></b></td> <td style="border-style: none; border-width: medium" width="337" height="21"> <font face="Arial" size="2"><%=RsMostraArtesanato.Fields("Modelo")%></font></td> </tr> <tr> <td style="border-style: none; border-width: medium" width="75" align="right"> <b> <font face="Arial" size="2">Valor:</font></b></td> <td style="border-style: none; border-width: medium" width="337"> <font size="2" face="Arial"> <%=FormatCurrency(RsMostraArtesanato.Fields("Valor"),2)%> </font></td> </tr> <tr> <td width="94" style="border-style: none; border-width: medium">&nbsp;</td> <td style="border-style: none; border-width: medium" width="75" align="right"> <b><font face="Arial" size="2">Cidade:</font></b></td> <td style="border-style: none; border-width: medium" width="337"> <font size="2" face="Arial"><%=RsMostraArtesanato.Fields("CodigoCidade")%> &nbsp;</font></td> </tr> <tr> <td width="94" style="border-style: none; border-width: medium">&nbsp;</td> <td style="border-style: none; border-width: medium" width="75" height="18" align="right"> <p align="right"><b><font size="2" face="Arial">Obs:</font></b></td> <td style="border-style: none; border-width: medium" width="337" height="36" rowspan="2"> <font size="2" face="Arial"> <%=RsMostraArtesanato.Fields("Obs")%></font> </td> </tr> <tr> <td width="94" style="border-style: none; border-width: medium">&nbsp;</td> <td style="border-style: none; border-width: medium" width="75" height="18" align="right"> </td> </tr> </table> <HR> <font face="Arial"> <% cont = cont + 1 RsMostraArtesanato.MoveNext Wend %> <% RsMostraArtesanato.close ObjMostraArtesanato.close set ObjMostraArtesanato = Nothing set RsMostraArtesanato = Nothing %> </font> <p>&nbsp;</p> </body> </html>

valeu vou tentar

oi pessoal tem como eu colocar maxlength em uma area de texto? porque tipow assim em um edit da certo mas isso seria um campo memo e eu quero limitar caracteres aguarado resposta Alesandro

è isso mesmo eu quero paginar dados.. mas esse codigo que você me passou eu já usei... E sabe ele da erro de Sql qd eu passo para a pagina dois e assim por diante.. o que sera q esta acontecendo?? Ale

pessoal fiz a paginao de torcentas vezes diferente e sempre da o mesmo erro, hj descobri oerro.. e que faço uma consulta via sql.. ele tras os dados na tela e qd eu clico em proxma eu acho que ele perde akela pesquisa como resolver isso??? o que seria paginacao com getrows??? aguardo resposta Ale

oal meu amigo sofri muito para aprender fazer upload...mas graças a Deus a galera aki me ajudou... Bom se o seu servidor usar o ASPUpload eu te ajudo verifica isso para mim por favor abraços ale

Ow legal eu sei q tem, mas o problem que gratuito so tem ate o 8.5, e vcl para o 8.5 é só com o Delphi 6. Eu uso o Delphi 7.0 e vou começar a usar o 2005.... entendeu se alguém tiver o cristal para me doar.. ficarei feliz abraços Ale

oi valeu ai pela ajuda o problema que so tenho o cristal 8.5 e uso delphi 7.0 dai não tem como valeu

Helpe-me ninguém tem ideia.. so sei que preciso de um VCL. alguém ai tem a vcl pelo menos??? valeu

Pessoal boa noite gostaria de saber a partir de qual versao do cristal que é disponivel para montar relatorios no Delphi.. alguém sabe fazer isso?? por favor me de uma dica Abrs Ale

Ola bom dia pessoal consegui, graças a ajuda de todos, Mas o ponto chave foi com a dica do Espartaco Valeu pode fechar abraços Alesandro