Jump to content
Fórum Script Brasil

moe

Membros
  • Posts

    16
  • Joined

  • Last visited

About moe

moe's Achievements

0

Reputation

  1. 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...
  2. 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.
  3. moe

    Problema Na Busca

    o problema era: <form name="form2" method="post" action="buscar.asp" ENCTYPE="multipart/form-data"> o ENCTYPE, não era pra estar ali...
  4. moe

    Problema Na Busca

    Pelo amor de deus alguém me ajuda... o formulario não ta pegando o valor que to colocando no campo
  5. moe

    Problema Na Busca

    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???
  6. moe

    Problema Na Busca

    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...
  7. moe

    Problema Na Busca

    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 %>
  8. moe

    Problema Na Busca

    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
  9. 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!
  10. 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!
  11. moe

    Aspsmartupload

    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...
  12. moe

    Você Usa Script Prontos

    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...
  13. maravilha, perfeito, funcionou muito obrigado!
  14. porque você não faz um select seguido de order by ?
  15. 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!
×
×
  • Create New...