Ir para conteúdo
Fórum Script Brasil
  • 0

Iniciante Confuso

Warez

Perguntado por Warez,

 Share

Pergunta

Warez

Warez

Postado
Postado

Olá a todos

Estou com problemas para preparar a pagina de detalhes de produtos, de um catalogo on line, fiz algumas modificações no cod de consultas por categoria, pra exibir detalhes porem tem retornado seguinte erro :

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ServerCreateObject'

/detalhe.asp, line 4

segue o trecho do cod ...

========================
<% 
set ConnString = ServerCreateObject("ADODB.Connection")
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;"
sql = "SELECT * FROM Produtos WHERE Produtos.IDProduto='" & Request.QueryString("id") & "'"
Set Registros = ConnString.Execute(sql)


%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>. : : xxxxx : : .</title>
<style type="text/css">
<!--

.style1 {
	color: #FF0000;
	font-family: Arial, Helvetica, sans-serif;
}
-->
</STYLE>

</head>

<body>
<em><font face="Geneva, Arial, Helvetica, sans-serif"><strong>Categoria</strong></font> 
<strong><font face="Geneva, Arial, Helvetica, sans-serif">&gt;&gt;</font></strong></em> 
<strong> 
<% =Registros("Categoria") %>
</strong> <em><strong><font face="Geneva, Arial, Helvetica, sans-serif">&gt;</font></strong></em> 
<% Registros("Produto")%>
<p>&nbsp;</p>
<table width="322" height="145" border="0" bordercolor="#0000FF">



  <% While NOT registros.EOF %>
<tr> 
<td width="316"><div align="center"><font size="2"><strong><font size="2"><strong><font face="Courier New, Courier, mono"> 
  
</font></strong></font><font size="2"><strong><font face="Courier New, Courier, mono"> 
  <%imagem1 = Registros("Imagem") & ".jpg"
  pasta ="xxxxx\web\imagens\"
  Set fso = CreateObject("Scripting.FileSystemObject")
  if (fso.FileExists(pasta & imagem1)) then 
  Foto = "imagens/" & imagem1
  else
  Foto = "imagens/indisponivel.jpg"
  end if %>
</font></strong></font><font face="Courier New, Courier, mono"><img src ="<%= foto%>" width="130" height="120"></font></strong></font></div></td>
  <tr> 
    <td><div align="center"><font size="2"><strong><font face="Courier New, Courier, mono"><%= Registros("Produto") %></font></strong></font></div></td>
  <tr> 
    <td><div align="center"><%Registros("Fabricante")%></div></td>
  <tr> 
    <td><div align="center"><%=Registros("Características")%></div></td>
  <tr> 
    <td height="29"> <div align="center"><font size="2"><strong><font face="Courier New, Courier, mono">R$ 
        <%= Registros("Preço") %></font></strong></font></div></td>
    <%  
	Wend 
	'fecha as variaveis
	Registros.close
	set Registros = nothing
  %> 
</table>
</body>
</html>

==========================

interessante q o cod funciona bem pra todos exibir os produtos da categoria

agradeço qualquer ajuda

Warez

Link para o comentário
Compartilhar em outros sites

13 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

voce esta repetindo os nomes dos objetos e variaveis, da uma olhada:

<%

set ConnString = ServerCreateObject("ADODB.Connection")

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;"

sql = "SELECT * FROM Produtos WHERE Produtos.IDProduto='" & Request.QueryString("id") & "'"

Set Registros = ConnString.Execute(sql)

%>

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

deixa assim:

<% 
set ConnString = ServerCreateObject("ADODB.Connection")
ConnString.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;"
sql = "SELECT * FROM Produtos WHERE Produtos.IDProduto='" & Request.QueryString("id") & "'"
Set Registros = Server.CreateObject("ADODB.Recordset")
Registros.Open sql, connstring, 3, 3
%>

Link para o comentário
Compartilhar em outros sites
  • 0
Warez

Warez

Postado
  • Autor
Postado

valeu

como não chupim queria entender melhor

o q siginifica o 3,3 na linha q executa a query ?

o campo IDProduto é numerico sim, valru a dica....

mas o desgranhento continua aprensentando erro na linha do create object:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ServerCreateObject'

/detalhe.asp, line 3

==========

de ante mão agradeço a ajuda..

Warez

PS a porpósito cyberalexx tenho uns manuais de sf sobre reamasterização em portugues q podem lhe interessar, se kiser terei prazer em enviar...são meio grandinhos os pdf mas achuq valem a pena

Link para o comentário
Compartilhar em outros sites
  • 0
DELPHI-Man32

DELPHI-Man32

Postado
Postado

kro amigo, desculpe me entrometer assim mas sou iniciante em asp, e tive um erro semelhanete ao do nosso amigo ai em cima, ele não deveria também colocar antes de criar o objeto de conexao um (.)

tipo:

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

não reparei os outros erros!

fui... rs*

t+v

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

faltou um ponto da uma olhada:

<%

set ConnString = Server.CreateObject("ADODB.Connection")

ConnString.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;"

sql = "SELECT * FROM Produtos WHERE Produtos.IDProduto='" & Request.QueryString("id") & "'"

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

Registros.Open sql, connstring, 3, 3

%>

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Quanto ao 3,3 no recordset, o DELPHI-Man32 teve a mesma duvida:

http://scriptbrasil.com.br/forum/index.php?showtopic=46452

Off-topic: Quanto aos tutoriais sobre remasterização, c você me mandar eu agradeço, pode mandar para o meu endereço que esta no forum pois é do Gmail e cabe mais coisa.

Link para o comentário
Compartilhar em outros sites
  • 0
Developer

Developer

Postado
Postado 
<% 
set ConnString = Server.CreateObject("ADODB.Connection")
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;"
sql = "SELECT * FROM Produtos WHERE IDProduto=" & Request.QueryString("id") & ""
Set Registros = ConnString.Execute(sql)


%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>. : : xxxxx : : .</title>
<style type="text/css">
<!--

.style1 {
color: #FF0000;
font-family: Arial, Helvetica, sans-serif;
}
-->
</STYLE>

</head>

<body>
<em><font face="Geneva, Arial, Helvetica, sans-serif"><strong>Categoria</strong></font> 
<strong><font face="Geneva, Arial, Helvetica, sans-serif">&gt;&gt;</font></strong></em> 
<strong> 
<% =Registros("Categoria") %>
</strong> <em><strong><font face="Geneva, Arial, Helvetica, sans-serif">&gt;</font></strong></em> 
<% Registros("Produto")%>
<p>&nbsp;</p>
<table width="322" height="145" border="0" bordercolor="#0000FF">



 <% While NOT registros.EOF %>
<tr> 
<td width="316"><div align="center"><font size="2"><strong><font size="2"><strong><font face="Courier New, Courier, mono"> 

</font></strong></font><font size="2"><strong><font face="Courier New, Courier, mono"> 
 <%imagem1 = Registros("Imagem") & ".jpg"
 pasta ="xxxxx\web\imagens\"
 Set fso = CreateObject("Scripting.FileSystemObject")
 if (fso.FileExists(pasta & imagem1)) then 
 Foto = "imagens/" & imagem1
 else
 Foto = "imagens/indisponivel.jpg"
 end if %>
</font></strong></font><font face="Courier New, Courier, mono"><img src ="<%= foto%>" width="130" height="120"></font></strong></font></div></td>
 <tr> 
   <td><div align="center"><font size="2"><strong><font face="Courier New, Courier, mono"><%= Registros("Produto") %></font></strong></font></div></td>
 <tr> 
   <td><div align="center"><%Registros("Fabricante")%></div></td>
 <tr> 
   <td><div align="center"><%=Registros("Características")%></div></td>
 <tr> 
   <td height="29"> <div align="center"><font size="2"><strong><font face="Courier New, Courier, mono">R$ 
       <%= Registros("Preço") %></font></strong></font></div></td>
   <%  
Wend 
'fecha as variaveis
Registros.close
set Registros = nothing
 %> 
</table>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
Warez

Warez

Postado
  • Autor
Postado

perfeito galera

tudo funcionando

mas agora tenho uma duvida , surgui um problema ao exibir um campo memorando de uma tabela , ele gera um overflow, simplesde resolver, só preciso saber o tamanho max q um campo pode ter no asp...

olhem o erro

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/detalhe.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.

no aspfaq num encontrei o tamnho max...

se alguém souber o tamanho ou me apresentar outra ideia como solução, agradeço

Warez

Link para o comentário
Compartilhar em outros sites
  • 0
Developer

Developer

Postado
Postado
perfeito galera

tudo funcionando

mas agora tenho uma duvida , surgui um problema ao exibir um campo memorando de uma tabela , ele gera um overflow, simplesde resolver, só preciso saber o tamanho max q um campo pode ter no asp...

olhem o erro

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/detalhe.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.

no aspfaq num encontrei o tamnho max...

se alguém souber o tamanho ou me apresentar outra ideia como solução, agradeço

Warez

Acho que é 255 á 500 caracters

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

isso não esta com cara de overflow não.

tive esse mesmo erro uma vez, só que o problema era o seguinte eram muitos registros para serem exibidos e a solução que usei foi colocar no inicio do código: Response.buffer=true e depois a cada dez registros dava um response.flush

O problema é que a performance do sistema cai bastante, mais para de dar erro.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...