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
Pergunta
moe
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:Muito obrigado a quem puder ajudar.
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados