Que erro é este?

asp.net · Outubro 15, 2004

Estou com os cripts abaixo

::::::::::Produtos.ASP:::::::::::::::::::::::::::::::::::::::::::::::::

<tr>

<tr>

<tr>

<%

'::::::::::::::::::::::::::::::Inicio do IF principal::::::::::::::::::::::::::::::::::::::::

If Len(Request.QueryString("subcategoria"))=0 then

response.Write("<table>")

sql_categoria = "Select produto.codigo as codigo, imagem.caminho as caminho, produto.nome as nome, sub_categoria.codigo as subcategoria, categoria.codigo as categoria from categoria, imagem, produto, sub_categoria where produto.sub_categoria=sub_categoria.codigo and imagem.produto=produto.codigo and sub_categoria.categoria="&Request.QueryString("categoria")&" group by produto.codigo limit 0,4"

br_rs.Open(sql_categoria)

While Not(br_rs.Eof)

response.Write("<td valign='top'><img src='"&br_rs("caminho")&"' width='100' border='1'><br><a href='produtos.asp?p="&br_rs("nome")&"&categoria="&Request.QueryString("categoria")&"&subcategoria="&br_rs("subcategoria")&"&d="&br_rs("codigo")&"'><div align='center'>"&br_rs("nome")&"</div></a></td>")

br_rs.MoveNext

wend

br_rs.close

response.Write("</table>")

':::::::::::::::::::::::::::::Inicio da Exibição dos produtos:::::::::::::::::::::::::::::::::

else

if Len(Request.QueryString("r"))<>0 then

response.Write("<table>")

sql_categoria = "Select produto.codigo as codigo, imagem.caminho as caminho, produto.nome as nome, sub_categoria.codigo as subcategoria, categoria.codigo as categoria from categoria, imagem, produto, sub_categoria where produto.sub_categoria=sub_categoria.codigo and imagem.produto=produto.codigo group by produto.codigo limit 0,4"

br_rs.Open(sql_categoria)

While Not(br_rs.Eof)

response.Write("<td valign='top'><img src='"&br_rs("caminho")&"' width='100' border='1'><br><a href='produtos.asp?p="&br_rs("nome")&"&categoria="&Request.QueryString("categoria")&"&subcategoria="&br_rs("subcategoria")&"&d="&br_rs("codigo")&"'><div align='center'>"&br_rs("nome")&"</div></a></td>")

br_rs.MoveNext

wend

br_rs.close

response.Write("</table>")

elseif Len(request.QueryString("d"))<>0 then

'::::::::::::::::::::::::::::Buscando as informações detalhadas sobre um referido produto:::::::::::::::::::::::::::::::::::::

dim sql_detalhe, sql_imagem, sql_cor

sql_detalhe = "Select produto.fornecedor, produto.codigo_fornecedor, produto.nome, produto.codigo, produto.descricao, produto.altura, produto.largura, produto.profundidade, produto.peso, produto.preco_dolar, produto.preco_libra, produto.preco_euro, produto.pedido_minimo, produto.pedido_urgente from produto where produto.codigo="&request.QueryString("d")

br_rs.open sql_detalhe

codigo_produto=br_rs("codigo")

produto=br_rs("nome")

descricao=br_rs("descricao")

altura=br_rs("altura")

largura=br_rs("largura")

prof = br_rs("profundidade")

peso = br_rs("peso")

dolar=br_rs("preco_dolar")

euro=br_rs("preco_euro")

libra=br_rs("preco_libra")

minimo=br_rs("pedido_minimo")

urgente=br_rs("pedido_urgente")

codigo_fornecedor=br_rs("codigo_fornecedor")

fornecedor=br_rs("fornecedor")

br_rs.close

sql_imagem = "Select caminho from imagem where produto="&Request.QueryString("d")

br_con.Open (stringconexao)

Set imagem = br_con.Execute(sql_imagem)

imagens=imagem.GetRows

br_con.close%>

<td width="150" valign="top"><img src="<%=imagens(0,0)%>" width="150" border="0"></td>

</table>

</td></tr>

</td>

</tr>

<tr>

<tr>

</tr>

<tr>

<td colspan="4" valign="top" bgcolor="#E6E6E6">Colours</td>

</tr>

<tr>

</tr>

<%sql_cores = "Select Distinct(cor.nome) from cor INNER JOIN cores ON cor.codigo=cores.cor where cores.produto="&Trim(Request.QueryString("d"))

br_rs.Open sql_cores

if (Not(br_rs.Bof)) and (Not(br_rs.eof)) then

While not br_rs.Eof

If linha=4 then

response.Write("<tr>")

linha=0

else

response.Write("<td>"&br_rs("nome")&"</td>")

linha=linha+1

end if

br_rs.MoveNext

wend

br_rs.close

end if%>

</table></TD>

</tr>

<tr>

<tr>

</tr>

<tr>

<td colspan="4" valign="top" bgcolor="#E6E6E6"> Dimension & Prices</td>

</tr>

<tr>

</tr>

<tr>

<%if Len(altura)<>0 then%>

<td width="25%" valign="top">Height <%=trocar(altura)%></td>

<%end if%>

<%if len(largura)<>0 then%>

<td width="25%">Width <%=trocar(largura)%></td>

<%end if%>

<%if Len(prof)<>0 then%>

<td width="25%" valign="top">Depth <%=trocar(prof)%></td>

<%End if%>

<%if len(peso)<>0 then%>

<td width="25%">Weight <%=trocar(peso)%></td>

<%end if%>

</tr>

<tr>

<%if Len(dolar)<>0 then%>

<%end if%>

<%if len(euro)<>0 then%>

<%end if%></td>

<%if len(libra)<>0 then%>

<%end if%></td>

</table></td>

</tr>

</table></TD>

</tr>

</tr><tr>

<td colspan="2" valign="top" bgcolor="#E6E6E6">Other Details </td>

</tr><tr><td height="1" colspan="2" valign="top" bgcolor="#333333"></td>

</tr>

<td width="40%">Order Minimum <%=minimo%></td>

</table>

</td>

</tr>

<tr>

<%if Ubound(imagens,2)<>0 then

li=0

response.write("<tr><td height='1' colspan='4' valign='top' bgcolor='#333333'></td></tr><tr><td colspan='4' valign='top' bgcolor='#E6E6E6'>More Pictures</td></tr><tr><td height='1' colspan='4' valign='top' bgcolor='#333333'></td></tr>")

response.Write("<tr><td><table cellpadding='0' cellspacing='1'>")

For xi = 1 to Ubound(imagens,2)

response.Write("<td><img src="&imagens(0,xi)&" width='100'></td>")

li=li+1

if li=4 then

response.Write("<tr>")

end if

end if%>

</table>

</td>

</tr>

<tr>

<td colspan="2">Interest Basket</td>

</tr>

<tr><td width="68%" valign="top">Quant.

</table>

</form>

</td>

</tr>

</table>

<%else

'Exibi produtos de cada categoria. Esta parte está concluida. A exibição está correta nesta parte

Dim sql_produto

sql_produto = "Select produto.codigo as codigo, produto.sub_categoria, produto.nome, produto.descricao, produto.preco_dolar, produto.preco_libra, produto.preco_euro, imagem.caminho as img from produto INNER JOIN imagem ON imagem.produto=produto.codigo where sub_categoria="&Trim(Request.QueryString("subcategoria"))&" group by produto.codigo"

br_rs.Open sql_produto

while not br_rs.Eof

response.Write("<tr><td align='left' width='100%'>")

response.write("<table border='0' align='left' width='100%' cellpading='0' cellspacing='0' bgcolor='#c9c9c9'>")

response.write("<td align='left' bgcolor='#ffffff'><img src='"&br_rs("img")&"' border=0 width='80'></td>")

response.Write("<td valign='top' width='80%' bgcolor='#ffffff'><table border='0' width='100%' cellpading='0' cellspacing='0'>")

response.Write("<td bgcolor='#0000cf' width='3'></td>")

response.Write("<td colspan='2' bgcolor='#E6E6E6'> <a href='produtos.asp?p="&Request.QueryString("p")&"&categoria="&Request.QueryString("categoria")&"&subcategoria="&br_rs("sub_categoria")&"&d="&br_rs("codigo")&"'>"&Ucase(br_rs("nome"))&"</a></td>")

response.Write("<tr><td colspan='3'></td><tr>")

response.Write("<tr><td></td><td colspan='2'> "&br_rs("descricao")&"</td><tr>")

response.Write("<tr><td></td><td colspan='2'> ")

if len(br_rs("preco_dolar"))<>0 then

response.write("$"&FormatNumber(br_rs("preco_dolar"),2)&" ")

end if

if len(br_rs("preco_euro"))<>0 then

response.write("€"&FormatNumber(br_rs("preco_euro"),2)&" ")

end if

if len(br_rs("preco_libra"))<>0 then

response.Write("£"&FormatNumber(br_rs("preco_libra"),2)&"</td><tr>")

end if

response.Write("</table></td>")

response.Write("</table>")

response.write("</td></tr>")

response.Write("<tr><td height='1' colspan='2' valign='top' bgcolor='#cccccc'></td></tr>")

br_rs.MoveNext

wend

br_rs.close

end if

'::::::::::::::::::::::::::::Fim do If principal::::::::::::::::::::::::::::::::::::::::::::::

end if

%>

</td>

</tr>

</table>

::::::::::Conexão.ASP:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::

StringConexao = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=brasil"

'StringConexao = "driver={MySQL ODBC 3.51 Driver};server=mysql.hostlocation.com.br;uid=brazilliantexpor;pwd=qs8m6c;databas

e=brazilliantexpor"

Set br_con = Server.CreateObject("ADODB.Connection")

Set br_rs = Server.CreateObject("ADODB.Recordset")

br_rs.ActiveConnection = stringconexao ' Passando para o recordset a string de conexão

Function formata_data(valor)

Dim dia, mes, ano

ano = Right(valor,4)

mes = Mid(valor,4,2)

dia = Left(valor,2)

formata_data = ano&"-"&mes&"-"&dia

end function

E algumas vezes quando estou rodando o Script ele me retorna este erro abaixo.

:::::::::::::::Erro:::::::::::::::::::::::::::::::::::::::::::::::::::

Active Server Pages error 'ASP 0241'

CreateObject Exception

/teste/braziliant/produtos.asp

The CreateObject of '(null)' caused exception C0000005.

Active Server Pages error 'ASP 0241'

CreateObject Exception

/teste/braziliant/produtos.asp

The CreateObject of '(null)' caused exception C0000005.

Server object error 'ASP 0177 : c0000005'

Server.CreateObject Failed

/teste/braziliant/conexao/conexao.asp, line 5

c0000005.

Ai basta eu dar um refresh para ele exibir normalmente o site, alguem poderia me ajudar?

michelsp · Outubro 15, 2004

ASP, ñ manjo nda, mas se na 1 vez ele dá erro, e nas seguintes vai, funciona, pela lógica é alguma variavel (ou ação, coisa do genero) q não está sendo definida inicialmente e por isso, nas seguintes execuções, refresh, funciona, pois está deve estar sendo definida posteriormente...

Sei lá, Opinando pela lógica msm...

cassitos · Outubro 15, 2004

é véi...d asp tbm num manjo nada...pegunta pro povo do fórum de ASP, pq pela mensagem é qdo CreateObject("ADODB.CONNECTION")

Entrar

Arquivado

Que erro é este?

Recommended Posts

asp.net 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

michelsp 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cassitos 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

Javascript - Calcular Valores Monetário em Tempo Real

JavaScript - Exibir logo dentro da Tabela html

PHP+Codeigniter - Implementar o Input CÓDIGO ou ID do Produto

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante