Bueno man el codigo esta listo y andando claro que tengo una duda
bueno no se como lo va a hacer para mostrar al afiliado mediante una busqueda que solamente buesque al afiliados o si va amostrara a todos los afiliados si quiere mostrar a todos los afiliados tan solo tiene que cambiar el SQL por "selecy * from afiliados" eso estodo si lo quiere hacer por una busqueda bueno aca esta echo espero que le sirve y avise cualquier cosa
Blessed
--------------------------------------------------------------------
busca.htm
<html>
<head>
<title></title>
<SCRIPT language="JavaScript">
function LP_data(){
var key=window.event.keyCode;//codigo de tecla.
if (key < 48 || key > 57){//si no es numero
window.event.keyCode=0;//anula la entrada de texto.
}
}function comprobar()
{
if (document.form.id.value=='')
{
alert('Debe introducir Código del Afiliado')
return(1)
}
return(0)
}
</SCRIPT>
</head>
<body><center>
<table>
<tr>
<td width="366" height="147">
<form method="post" action="muestra.asp" onSubmit="if (comprobar()) return(false)" name="form">
<table>
<tr>
<td width="168" bgcolor="#999999"> <strong>Busquéda de Afiliados</strong></td>
<td bgcolor="#999999"> <font color="#000000"> <strong>Código</strong></font></td>
</tr>
<tr>
<td>Código de Afiliado</td>
<td width="171">
<input type="text" name="id" size="15" onKeypress="LP_data()"></td>
</tr>
</table>
<center><input type="Submit" value="Enviar"></center>
</form>
</td>
</tr>
</table>
----------------------------------------------------------------
muestra.asp
<%@ 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">
<%
id = Request.Form("id")
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
Set TBL = Server.CreateObject("ADODB.RecordSet")
Temp="Select * From afiliados where id="+id
TBL.Open Temp ,DB ,1 ,2
%>
<TABLE width="450" border='1' bgcolor='#CECECE'>
<%While Not TBL.EOF%>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>Código :</b></font></td>
<td width="344"><input type="text" name="Empresa" value="<%=TBL.Fields("id")%>">
</td>
</tr>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>Nombre :</b></font></td>
<td width="344"><input type="text" name="Empresa" value="<%=TBL.Fields("nombre")%>">
</td>
</tr>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>Empresa :</b></font></td>
<td width="344"><input type="text" name="FechaInicioReal" value="<%= TBL.Fields("empresa")%>">
</td>
</tr>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>E-mail :</b></font></td>
<td width="344"><input type="text" name="FechaInicioReal" value="<%= TBL.Fields("correo")%>">
</td>
</tr>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>Requisitos : </b></font></td>
<td width="344">
<textarea name="Descripcion" rows="5" cols="35"><%= TBL.Fields("requisitos")%></textarea>
</td>
</tr>
<%
TBL.MoveNext
Wend
TBL.Close
DB.Close
%>
</table>
</body>