Erro Na Conexão Com Bd

[--Ludson--]

Olha eu ai de novo galera.

Tipo, eu to criando um álbum, fiz uma área de administração pra adicionar imagens em diferentes categorias e bla bla bla, enfim, o erro ta acontecendo na hora de exibir as imagens na página.

Criei uma página chamada: imagem.asp, no meu BD tenho a tabela imagens com os campos: ID, IMG, TITULO, CATEGORIA

Na imagem.asp, eu seleciono as imagens por categoria, a categoria é informada através de QueryString.

" imagem.asp?cat=Decoracoes "

fiz isso através de WHERE. enfim até então tudo bem, mas quando tento rodar a página dá o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21' 

O driver ODBC não dá suporte para as propriedades solicitadas. 

/agt/imagem.asp, line 42 

tipo, o código é o seguinte:

<%
cat = request.querystring("cat")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("bd/arquivos.mdb")
          sqlstmt = "SELECT * FROM produtos where categoria =" & cat & " ORDER BY id DESC"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp,1
TotalRecs = rs.recordcount
   %>

       <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5" cellpadding="0">
        	<% 
	Do while NOT rs.EOF 
	ColNum = 1 
  Do while ColNum < 3
	%>	
          <tr>
            <td width="33%">
            <p align="center">
            <img src="images/<%= rs("img")%>" height="117"></p></td>
<% 
if NOT rs.EOF then 
 rs.MoveNext 
end if 
 ColNum = ColNum + 1 
if NOT rs.EOF then 
%>
            <td width="33%">            <p align="center">
            <img src="images/<%= rs("img")%>" height="117"></p></td>
<% 
end if
if NOT rs.EOF then 
 rs.MoveNext 
end if 
 ColNum = ColNum + 1 
if NOT rs.EOF then 
 %>
            <td width="34%">            <p align="center">
            <img src="images/<%= rs("img")%>" height="117"></p></td>
<% 
end if
ColNum = ColNum + 1 
Loop 
%>
         </tr>
        <tr>
            <td width="33%">
            &nbsp;</td>
            <td width="33%">            &nbsp;</td>
            <td width="34%">            &nbsp;</td>
          </tr>
<% 
if NOT rs.EOF then  
rs.MoveNext  
end if 
Loop 
%>
</table>
<% rs.close
Conn.Close
set Conn = nothing
%>

alguém pode me ajudar como resolver o problema???

Vlew galera

[[ GuTo ]]

Qual é a linha 42?

Dê uma revisada passo a passo no seu código, por via das dúvidas!

[ursolouco]

É vamos lá.....

<%
	Dim strConn, cBanco, Conn 

	cBanco = Server.MapPath("./bd/arquivos.mdb")
	strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & cBanco &";"
	Set Conn = Server.CreateObject("adodb.connection")

	Conn.Open(strConn)

	Response.Write("Conexao Ok")

	Conn.Close
	Set Conn = Nothing
%>

Conectando no banco de dados e escrevendo na tela..

abraços!!