
<HTML>
<HEAD>
<title>llenado de Cartas Responsivas</title></HEAD>
<BODY bgcolor="#FB9925">
<% dim con,rs,sql,inom,iapell,icorreo,fich,nom,depto,apat er,amater,catego,depto,subgerencia,jefenombre,jefe paterno,jefematerno
fich = Trim(request.form("ficha"))
nom = Trim(request.form("nombre"))
apater = Trim(request.form("apaterno"))
amater = Trim(request.form("amaterno"))
catego = Trim(request.form("puesto")
depto = Trim(request.form("dep"))
jefenombre = Trim(request.form("nombre1"))
jefepaterno = Trim(request.form("apater1"))
jefematerno = Trim(request.form("amater1"))
if Len("ficha") = "" then
rsponse.write("<center><b><font color=red >Debes rellenar todos los campos</font></b></center>")
else
set con = server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("./bd2.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select * From CARTA_SECODAM Order By Nombre"
rs.open sql,con,1,2
rs.addnew
rs.fields("Ficha") = fich
rs.fields("EMPLEADO_NOMBRE") = nombre
rs.fields("EMPLEADO_APATERNO") = apater
rs.fields("EMPLEADO_AMATERNO") = amater
rs.fields("CATEGORIA") = catego
rs.fields("DEP") = depto
rs.fields("EMPLEADO_1nombre") = jefenombre
rs.fields("EMPLEADO_1PATERNO") = jefepaterno
rs.fields("EMPLEADO_1PATERNO") = jefematerno
rs.update
rs.movefirst
do until rs.eof%>
<table border=7 BORDERCOLOR="Black" align="center" width=600>
<tr>
<td><b>Ficha.:</b><td><%=rs.fields("Ficha")%></td>
</tr>
<tr>
<td><b>Nombre.:</b></td><td><%=rs.fields("EMPLEADO_NOMBRE")%></td>
</tr>
<tr>
<td><b>Departamento</b></td><td><%=rs.fields("DEP")%></td>
</tr><br><p><br><p>
</table>
<%
rs.movenext
loop
rs.close
con.close
end if
%>
</BODY>
</HTML>