Como fazer um select da minha tabela e mostrar as fotos.

[Nando Leads 0]

tenho a primeira tbl mas ñ sei o q estou fazendo d errado...

foi realizado o cadastro do funcionario com foto, aonde no BD motorista só foi salvo a o endereco da foto e os demais campos,

agora tenho de fazer a rotina pesquisar, aonde deverei mostrar os campos Nome, Apelido......e ect, juntamente com a foto do mesmo.

 

ai esta o codigo

 

motorista_pesquisa.asp

<style type="text/css"><!--.style2 {font-family: Tahoma}--></style><table width="958" border="2">  <tr>	<td align="center"><form name="form1" method="post" action="teste_motorista_pesquisa.asp">	  <label></label>	  <label></label>	  <div>		<input type="text" name="textfield">		<input type="submit" name="Submit" value="Pesquisar">	  </div>	</form>	</td>  </tr></table><table width="959" border="2">  <tr>	<td width="160" align="center"><div>	  <h3>Nome</h3>	</div></td>	<td width="156" align="center"><div>Apelido</div></td>	<td width="192" align="center">Foto1</td>	<td width="176"> </td>	<td width="239"> </td>  </tr>  <tr>	<td height="115" align="center"> </td>	<td align="center"> </td>	<td align="center"><span class="style2">	  <img src="<%=rsRecordSet("Foto")%>"> 	</span></td>	<td> </td>	<td> </td>  </tr>  <%  'const cntCaminho = "bd.mdb"  Set Conn = Server.CreateObject("ADODB.Connection")   Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")    Set rs = server.CreateObject("ADODB.recordset")  rs.open "select Foto from moto",Conn      %></table>

..........teste_motorista_pesquisa.asp

<%'const cntCaminho = "bd.mdb"Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")Response.Expires = 0Response.Buffer = TRUEResponse.ClearResponse.ContentType = "imagem/jpg"  varCod = rsquery("Código") Set conn = server.CreateObject("ADODB.Recordset")rs.open "Select Foto from moto where id=" & request.form("varCod") & "",ConnResponse.BinaryWrite rs("Foto")Response.End%>

............o erro quando executo é esse::::

 

Script error detected at line 32.

Source line: Response.Write rsRecordSet("Foto")

Description: Tipos incompatíveis: 'rsRecordSet'

 

 

 

se puderem me ajudar ae com dicas e explicações ficarei grato!!!!!!!!!!!!!!!!!!!!!

[Salgado 4]

Se está apenas o endereço da foto no BD não é necessário o Response.BinaryWrite. Outra coisa, o erro apresentado diz respeito à algum recordset que está nomeado de forma incorreta, além de apontar uma linha que não está identificada no código postado.

[Nando Leads 0]

Se está apenas o endereço da foto no BD não é necessário o Response.BinaryWrite. Outra coisa, o erro apresentado diz respeito à algum recordset que está nomeado de forma incorreta, além de apontar uma linha que não está identificada no código postado.

retirei o response.binarywrite. mas o erro ainda persiste...Script error detected at line 33. Source line: Response.Write rs.fields("Foto") Description: Objeto necessário: 'rs'não consigo encontrar aonde esta faltando esse rs!!!!!!!!!!!!!!!!!!!!!!!!!!!valeu ae pela ajuda!!!!!!!!!!!!!!!!!!!!!!

[jrcardozo 4]

você tem que criar o objeto RS

troque

Set conn = server.CreateObject("ADODB.Recordset")rs.open "Select Foto from moto where id=" & request.form("varCod") & "",ConnResponse.BinaryWrite rs("Foto")Response.End

por

Set rs= server.CreateObject("ADODB.Recordset")rs.open "Select Foto from moto where id=" & request.form("varCod") & "",ConnResponse.write(rs("Foto"))Response.End