Has intentado mezclar peras y manzanas
Cuando especificas que tipo de dato va a ser visualizado por el navegador (el ContentType) y le dices que va a ser de tipo image/jpeg no escribas texto.
Te recomiendo que uses una página solo para imagenes y la otra para datos:
imagen.asp
Código:
<%
response.ContentType = "image/jpg"
Dim sql, oConn, RS
sql = "SELECT frente FROM FD WHERE id = " & request("id")
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\wamp\www\Access\tabla.mdb"
RS.Open sql, oConn, 1
if not RS.EOF then Response.BinaryWrite(RS("frente"))
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>
Y en otra página:
pagina.asp
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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>Untitled Document</title>
</head>
<body>
<%
Dim sql, oConn, RS
sql = "SELECT * FROM FD WHERE( paterno = 'COSME' and materno = 'ZAPATA' and nombre = 'SERGIO')"
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\wamp\www\Access\tabla.mdb"
RS.Open sql, oConn, 1
Do While not RS.EOF
response.Write "<img src='imagen.asp?id=" & RS.Fields("id") & "' />"
Response.Write RS.Fields("paterno")
Response.Write RS.Fields("materno")
Response.Write RS.Fields("nombre")
RS.MoveNext
Loop
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>
</body>
</html>
Suponiendo que tengas un campo id, en todo caso el que utilizes como clave primaria o sea unico
Un saludo