Bueno aca lo tienes copialo y pruebalo lcaro que me salta una duda para saber cual afiliado es lo tienes que buscar si es haci tienes que hacer la busqueda con el "codigo de afiliado" para que te tire el afiliado consultado bueno en todo caso si es asi me avisas para ayudarte
<%@ Language=VBScript %>
<html>
<head>
<title>Muestra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
Temp="Select * From TuTabla Where Codigo = "+Codigo //aca tira tu select codigo se refiere al codigo del afiliado
TBL.Open Temp ,DB ,1 ,2
TBL.close
%>
<TABLE width="46%" border='1' bgcolor='#CECECE'>
<% While Not TBL.EOF%>
<table>
<tr>
<td width="51%"> <font face="Verdana" color='#ffffff' size="2"><b>Fecha
Inicio :</b></font></td>
<td><input type="text" name="Nombre" value="<%= Tabla.Fields("NOmbre")%>">
</td>
</tr>
<tr>
<td width="51%"> <font face="Verdana" color='#ffffff' size="2"><b>Fecha
Inicio :</b></font></td>
<td><input type="text" name="Empresa" value="<%= Tabla.Fields("Empresa")%>">
</td>
</tr>
<tr>
<td width="51%"> <font face="Verdana" color='#ffffff' size="2"><b>Fecha
Inicio :</b></font></td>
<td><input type="text" name="FechaInicioReal" value="<%= Tabla.Fields("Correo")%>">
</td>
</tr>
<tr>
<td width="51%"> <font face="Verdana" color='#ffffff' size="2"><b>Observaciones
: </b></font></td>
<td>
<textarea name="Descripcion" rows="10" cols="40"><%= Tabla.Fields("Requisitos")%></textarea>
</td>
</tr>
<%
TBL.MoveNext
Wend
TBL.Close
DB.Close
%>
<tr>
<td colspan='2' align='center'>
<input type="submit" Value="GUARDAR" id=submit1 name=submit1><input type="reset" Value="RESET" id=reset1 name=reset1>
</td></tr>
</table>
</body>