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">>></font></strong></em>
<strong>
<% =Registros("Categoria") %>
</strong> <em><strong><font face="Geneva, Arial, Helvetica, sans-serif">></font></strong></em>
<% Registros("Produto")%>
<p> </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
