Problema

[br1 0]

Pessoal estou com esse problema de tipo de dados mais não consigo achar a solução talvez possam me ajudar

 

 

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Data type mismatch in criteria expression.

/clientes/adm/conteudo/link.asp, line 13

 

---------------------------------------------///----------------------------------------------

 

 

1.asp

 

 

<%

'dnsname="dbase"

dnsname= "Data Source=" & Server.Mappath("admin/database/bdhome.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"

%>

 

<%

 

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

Conn.Open dnsname

set RS = Conn.Execute("SELECT * FROM conteudo ")

 

 

%>

 

<%

 

if not rs.eof then

 

while not rs.eof

%>

<center><p><p><br>

<br><p>

<%

Response.write fontstuff

response.write " <a href=list.asp?inc=conteudover&listar="&RS("site")&">"

Response.write RS("link")

response.write "</a>"

 

%>

<center>

<p></p>

 

<%

rs.Movenext

wend

end if

%>

 

 

 

--------------------------------------------------------///---------------------------------

List.asp

 

 

<%

'dnsname="dbase"

dnsname= "Data Source=" & Server.Mappath("admin/database/bdhome.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"

%>

 

<% idmessage=Request.QueryString("listar") %>

 

 

<%

'Abre o Recordset

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

Conn.Open dnsname

set RS =conn.Execute("SELECT * FROM conteudo WHERE site = '" &idmessage& "'")

 

 

%>

 

<%

 

response.write fontstuff

Response.write RS("conteudolist")

 

%>

[ska_ska 0]

o erro diz no arquivo link.asp....você naum postou ele aki ne... mostra a linha do erro no arquivo link.asp pra facilitar, ok.... ;)