moe

Novembro 25, 2005

cara, vlw, mas agora deu certo...

e já tava desmarcada essa opção...

pela mensagem "erro interno do servidor", acredito que tenha sido um problema pelo qual eles passaram no momento... a unica coisa estranha é não ter dado esse erro no firefox... bom, vai saber não é?...

vlws...

Novembro 24, 2005

Pessoal, estou com um problema...

No admin que estou fazendo, um erro está acontecendo, quando cadastro um produto através do internet explorer, mas no firefox esta funcionando normal!!! Já fuçei o código mas não achei nada...

E a proposito, o produto é cadastrado corretamente pelo IE, mas ao cadastrar ele esta me direcionando a uma pagina de erro ao invés da pagina correta...

Deem uma olhada POR FAVOR, pelo amor de deus...

Esse é o codigo que esta gravando no banco as informacoes cadastradas...

<!-- #include file="abre_conexao.asp" -->

<%

dim recCadastro
dim sql
dim categoria_produto
Dim mySmartUpload
Dim arquivo
Dim oConn
Dim oRs
Dim intCount
Dim caminho
intCount = 0
caminho = "imagens/produtos/"

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

intCount = mySmartUpload.Save("../imagens/produtos")

strSQL = "SELECT arquivo, foto, nome, descricao, preço, categoria FROM produtos"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = conBDcatalogo
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open

For each file In mySmartUpload.Files
	If not file.IsMissing Then
  nome_produto = mySmartUpload.form("prod_nome")
  descricao_produto = mySmartUpload.form("prod_desc")
  preco_produto = mySmartUpload.form("prod_prec")
  categoria_produto = mySmartUpload.form("prod_cat")
  oRs.AddNew
  file.FileToField oRs.Fields("arquivo")
  oRs("foto") = caminho & file.FileName
  oRs("nome") = nome_produto
  oRs("descricao") = descricao_produto
  oRs("preço") = preco_produto
  oRs("categoria") = categoria_produto
  oRs.Update
  intCount = intCount + 1
	End If
Next

response.write "<script>alert('O Registro " & nome_produto & " foi inserido com sucesso!');location.href = 'listagem_produto.asp'</script>"
conBDcatalogo.close
oRs.Close
set conBDcatalogo = Nothing
Set oRs = Nothing

%>

E éssa é a mensagem de erro que aparece no IE quando cadastro o produto:

 A página não pode ser exibida 
Há um problema com a página que você está tentando acessar e ela não pode ser exibida. 

--------------------------------------------------------------------------------

Tente o seguinte:

Abra a www.awl.com.br home page, e procure os links para as informações desejadas. 
Clique no botão  Atualizar ou tente novamente mais tarde.

Clique em  Pesquisar para procurar informações na Internet. 
Você também pode ver uma lista de sites relacionados. 




HTTP 500 - erro interno do servidor 
Internet Explorer

Muito obrigado a quem puder ajudar.

Novembro 24, 2005

o problema era:

<form name="form2" method="post" action="buscar.asp" ENCTYPE="multipart/form-data">

o ENCTYPE, não era pra estar ali...

Novembro 21, 2005

Pelo amor de deus alguém me ajuda...

o formulario não ta pegando o valor que to colocando no campo

Novembro 21, 2005

descobri o que ta acontecendo...

a variavel não ta recebendo o valor do campo do formulario...

na verdade, acho que nem o campo do formulario ta recebendo valor algum...

o que pode estar acontecendo???

Novembro 21, 2005

o abre_conexao.asp é só o arquivo que abre a conexao com o banco...

o banco de dados é access...

e os campos do banco de dados são ou TEXTO ou MEMORANDO...

Novembro 21, 2005

busca.asp:

<form name="form2" method="post" action="buscar.asp" ENCTYPE="multipart/form-data">
Busca por produtos em todo o catálogo: <input name="campo_busca" type="text" size="45" class="texto_padrao campos_form" maxlength="30"> <input name="Submit" type="submit" value="Buscar" class="texto_padrao">
</form>

buscar.asp:

<!-- #include file="admin/abre_conexao.asp" -->
<%
dim recBusca
set recBusca = Server.CreateObject("ADODB.recordset")
valor_busca = request.form("campo_busca")
recBusca.open "SELECT * FROM produtos where nome like '%" & valor_busca & "%' or descricao like '%" & valor_busca & "%' or categoria like '%" & valor_busca & "%' or preço like '%" & valor_busca & "%'", conBDcatalogo

	response.write "<tr>"
	response.write "<td bgcolor=""#E6E6E6"" COLSPAN=""2"" VALIGN=""middle"" HEIGHT=""25"" STYLE=""padding-left:13px""><strong>Catálogo Online - Produtos - Resultado da Busca</strong></td>"
	response.write "</tr>"
	response.write "<form name=""form2"" method=""post"" action=""buscar.asp"" ENCTYPE=""multipart/form-data"">"
	response.write "<tr>"
	response.write "<td colspan=""2"" bgcolor=""#ffffff"" VALIGN=""top"" width=""100%"" align=""left"" STYLE=""padding-left:13px; padding-bottom:13px; padding-top:13px"">Busca por produtos em todo o catálogo: <input name=""campo_busca"" type=""text"" size=""45"" class=""texto_padrao campos_form"" maxlength=""30""> <input name=""Submit"" type=""submit"" value=""Buscar"" class=""texto_padrao""></td>"
	response.write "</tr>"
	response.write "</form>"
	response.write "<tr>"
	response.write "<td colspan=""2"" valign=""top"" style=""padding-bottom: 13px""><hr width=""100%"" color=""#C0C0C0"" noshade size=""1""></td>"
	response.write "</tr>"

if recBusca.EOF then
	response.write "<tr>"
	response.write "<td bgcolor=""#ffffff"" COLSPAN=""5"" VALIGN=""middle"" HEIGHT=""270""><center>NENHUM PRODUTO ENCONTRADO</center></td>"
	response.write "</tr>"
else

Do While not recBusca.EOF
	response.write "<tr>"
	response.write "<td valign=""top"" style=""padding-bottom: 13px""><img WIDTH=""100"" HEIGHT=""100"" src=""" & recBusca.fields("foto") & """></td>"
	response.write "<td valign=""top"" width=""100%"" style=""padding-left: 13px; padding-bottom: 13px""><b><font size=""2"">" & recBusca.fields("nome") & "</b></font><br><br>" & recBusca.fields("descricao") & "<br><br><strong>Preço:</strong> R$" & FormatNumber(recBusca.fields("preço"),2) & "</td>"
	response.write "</tr>"
	response.write "<tr>"
	response.write "<td colspan=""2"" valign=""top"" style=""padding-bottom: 13px""><hr width=""100%"" color=""#C0C0C0"" noshade size=""1""></td>"
	response.write "</tr>"
	recBusca.MoveNext
Loop
recBusca.Close
conBDcatalogo.Close	

end if
%>

Novembro 21, 2005

Pessoal,

Tudo bom?

Estou com um problema no meu "sistema" de busca, eu fiz ele normal, mas quando ele retorna o resultado, ele me manda TUDO do banco de dados, e não só o que eu pedi...

deem uma olhada se souberem o que pode estar acontecendo, o codigo da busca é esse:

valor_busca = request.form("campo_busca")
recBusca.open "SELECT * FROM produtos where nome like '%" & valor_busca & "%' or descricao like '%" & valor_busca & "%' or categoria like '%" & valor_busca & "%' or preço like '%" & valor_busca & "%'", conBDcatalogo

Vlw galera

Novembro 10, 2005

cara, não rolou...

ele não ta mandando valor nenhum pro banco mesmo...

mas vlw ae...

o que eu fiz então foi o seguinte, eu deixei o valor padrão do campo do banco, como essa imagem que eu quero, porque se cadastrar algum produto sem imagem, ele já mostra essa imagem direto...

MAS, to com um problema na hora de cadastrar isso... se eu não cadastro uma imagem, ele não manda informacao nenhuma pro banco...

você tem ideia de como eu posso resolver isso?

vou mandar o codigo todo pra você ver, por favor:

<!-- #include file="abre_conexao.asp" -->

<%

dim recCadastro
dim sql
dim categoria_produto
Dim mySmartUpload
Dim arquivo
Dim oConn
Dim oRs
Dim intCount
Dim caminho
intCount = 0
caminho = "imagens/produtos/"

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

intCount = mySmartUpload.Save("../imagens/produtos")

strSQL = "SELECT arquivo, foto, nome, descricao, preço, categoria FROM produtos"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = conBDcatalogo
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open

For each file In mySmartUpload.Files
	If not file.IsMissing Then
  nome_produto = mySmartUpload.form("prod_nome")
  descricao_produto = mySmartUpload.form("prod_desc")
  preco_produto = mySmartUpload.form("prod_prec")
  categoria_produto = mySmartUpload.form("prod_cat")
  oRs.AddNew
  file.FileToField oRs.Fields("arquivo")
  oRs("foto") = caminho & file.FileName
  oRs("nome") = nome_produto
  oRs("descricao") = descricao_produto
  oRs("preço") = preco_produto
  oRs("categoria") = categoria_produto
  oRs.Update
  intCount = intCount + 1
	End If
Next

response.write "<script>alert('O Registro " & nome_produto & " foi inserido com sucesso!');location.href = 'listagem_produto.asp'</script>"
conBDcatalogo.close
oRs.Close
set conBDcatalogo = Nothing
Set oRs = Nothing

%>

vlw!

Novembro 10, 2005

pessoal, segue o codigo:

dim recCatalogo
set recCatalogo = Server.CreateObject("ADODB.recordset")
recCatalogo.open "SELECT * FROM produtos where categoria='" & catcod & "'", conBDcatalogo

if recCatalogo.EOF then
	response.write "<tr>"
	response.write "<td bgcolor=""#ffffff"" COLSPAN=""5"" VALIGN=""middle"" HEIGHT=""270""><center>NENHUM PRODUTO ENCONTRADO</center></td>"
	response.write "</tr>"
else

Do While not recCatalogo.EOF
	response.write "<tr>"
	response.write "<td style=""padding-bottom: 13px""><img WIDTH=""100"" HEIGHT=""100"" src=""" & recCatalogo.fields("foto") & """></td>"
	response.write "<td valign=""top"" width=""100%"" style=""padding-left: 13px""><b><font size=""2"">" & recCatalogo.fields("nome") & "</b></font><br><br>" & recCatalogo.fields("descricao") & "<br><br><strong>Preço:</strong> R$" & FormatNumber(recCatalogo.fields("preço"),2) & "</td>"
	response.write "</tr>"
	recCatalogo.MoveNext
Loop
recCatalogo.Close
conBDcatalogo.Close	

end if

ali onde ele exibe a imagem:

Do While not recCatalogo.EOF
	response.write "<tr>"
	response.write "<td style=""padding-bottom: 13px""><img WIDTH=""100"" HEIGHT=""100"" src=""" & recCatalogo.fields("foto") & """></td>"
	response.write "<td valign=""top"" width=""100%"" style=""padding-left: 13px""><b><font size=""2"">" & recCatalogo.fields("nome") & "</b></font><br><br>" & recCatalogo.fields("descricao") & "<br><br><strong>Preço:</strong> R$" & FormatNumber(recCatalogo.fields("preço"),2) & "</td>"
	response.write "</tr>"
	recCatalogo.MoveNext
Loop

mais especificamente nessa linha:

	response.write "<td style=""padding-bottom: 13px""><img WIDTH=""100"" HEIGHT=""100"" src=""" & recCatalogo.fields("foto") & """></td>"

eu quero que, se não tiver nenhuma imagem cadastrada, ele mostre essa imagem:

http://www.awl.com.br/rstocco/imagens/img_prod.gif

como eu faco esse tratamento? eu tentei aqui, mas ele parece que carrega as imagens, mas depois ele não as exibe... ;/

se alguém puder ajudar, eu agradeço, vlw!

Novembro 10, 2005

Pessoal,

Eu estou querendo fazer upload de fotos, mas não sei como fazer, e o servidor que estou hospedando o site, suporta o aspsmartupload...

Eu não sei usar esse componente, e eu dei uma lida em um tutorial bem ruinzinho mas não consegui entender o que o componente vai enviar pro banco, e como vai ser a chamada disso depois, pra mostrar a foto no site...

Se alguém puder me ajudar como se eu fosse um bebezinho mesmo, a entender e fazer funcionar esse aspsmartupload, vou ficar muito, mas muito grato mesmo... é um trabalho da faculdade que tenho que fazer e o tempo ta comecando a apertar agora, e puts... preciso fazer isso

obrigado...

Novembro 8, 2005

Eu to começando a mexer com ASP, to fazendo um sitezinho pro meu tcc, e ateh agora desenvolvi 90% dos meus códigos... mas sempre tem alguma coisa que eu ainda não sei, e fuço na net, alguma função no meio do código, e etc...

Senao nunca vou aprender tb, tem diversos comandos que nem conheco...

Novembro 8, 2005

maravilha, perfeito, funcionou

muito obrigado!

Novembro 8, 2005

porque você não faz um select seguido de order by

?

Novembro 8, 2005

fantasma vlw ae cara, mas eu copiei e colei tudo conforme você digitou ai, e deu o seguinte erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01C2)
Número de argumentos incorreto ou atribuição de propriedade inválida: 'formatMoeda'
/stocco/lista_produtos.asp, line 42

e andreia, no meu banco já esta casas decimais automatico...

só não entendi como eu vou usar essa funcao que você citou...

vlw!

Novembro 8, 2005

Pessoal, sou novo por aqui, e já chego com uma dúvida...

Se alguém puder me ajudar, ficarei muito grato... Segue a questão:

Tenho um banco de dados access, e uma tabela que um de seus campos é do tipo moeda...

Ao inserir um valor 3000 por exemplo no campo, atraves do site, o valor é armazenado no banco normalmente, e se eu vizualizo pelo access, aparece 3.000,00, mas, quando eu recupero esse valor pelo site para exibi-lo, só me é apresentado 3000 sem ponto e sem virgula...

Gostaria de saber se existe alguma forma de buscar esse valor e apresenta-lo da forma monetaria.

meu código:

"<td>Preço: R$" & recCatalogo.fields("preço") & "</td>"

Grato desde já pela atenção,

Rafael Stocco

Entrar

moe

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por moe

Problema Ao Usar O Aspsmartupload

Problema Ao Usar O Aspsmartupload

Problema Na Busca

Problema Na Busca

Problema Na Busca

Problema Na Busca

Problema Na Busca

Problema Na Busca

Tratamento Para Exibir Imagem Padrao

Tratamento Para Exibir Imagem Padrao

Aspsmartupload

Você Usa Script Prontos

Recuperando Dados Do Tipo Moeda Do Access

Comparar Valor Com O Anterior

Recuperando Dados Do Tipo Moeda Do Access

Recuperando Dados Do Tipo Moeda Do Access

Navegação

Atividades