Ver Mensaje Individual
  #5 (permalink)  
Antiguo 31/12/2004, 06:47
edcala
 
Fecha de Ingreso: diciembre-2004
Mensajes: 207
Antigüedad: 20 años, 4 meses
Puntos: 0
Gracias Ramondi por las respuestas.

El formulario por la que ingreso los datos en forma individual es el siguiente:
-----------------------
<form name="RegistroNuevo" method="Post" action="RegisInser02.asp" onSubmit="return val3()">
<table width="100%" height="321" border="1" cellpadding="0" cellspacing="0">
<tr>
<td height="19" colspan="2">
<p align="center"><strong><font face="Tahoma" size="2">TENGA MUCHO CUIDADO AL HACER LOS CAMBIOS, PUEDE ALTERAR LA BASE DE DATOS.<br>
Siga las INSTRUCCIONES al &quot;pie de la letra&quot;</font></strong> </td>
</tr>
<tr bgcolor="#3399FF">
<td width="37%" bgcolor="#3399FF"><div align="right"><strong>Colegiatura<span class="letrasblancas"> (*)</span> </strong></div></td>
<td width="63%"><input name="CQFP" type="text" id="CQFP" size="5" maxlength="5">
<strong>Debe ingresar CINCO d&iacute;gitos </strong></td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right"><strong>Apellido Paterno<span class="letrasblancas"> (*)</span></strong></div></td>
<td height="25"><input name="ApPaterno" type="text" id="ApPaterno">
En MAY&Uacute;SCULA </td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right"><strong>Apellido Materno<span class="letrasblancas"> (*)</span></strong></div></td>
<td height="25"><input name="ApMaterno" type="text" id="ApMaterno2">
En MAY&Uacute;SCULA </td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right"><strong>Nombre (s )<span class="letrasblancas">(*)</span></strong></div></td>
<td height="25"><input name="Nombre" type="text" id="Nombre">
En MAY&Uacute;SCULA </td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right"><strong>Documento de Indentidad <span class="letrasblancas">(*)</span></strong></div></td>
<td height="25"><input name="DNI" type="text" id="DNI2">
Puede ser DIN, Carn&eacute;t de extranjer&iacute;a, etc </td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right"><strong>Departamento <span class="letrasblancas">(*)</span></strong></div></td>
<td height="25"> <select name="DPTO" id="select">
<option selected>Seleccione el Departamento</option>
<option>ANCASH</option>
<option>APURIMAC</option>
<option>AREQUIPA</option>
<option>AYACUCHO</option>
<option>CAJAMARCA</option>
<option>CALLAO - PROVINCIA</option>
<option>CUSCO</option>
<option>HUANCAVELICA</option>
<option>HU&Aacute;NUCO</option>
<option>ICA</option>
<option>JUN&Iacute;N</option>
<option>LA LIBERTAD</option>
<option>LAMBAYEQUE</option>
<option>LIMA</option>
<option>LORETO</option>
<option>MADRE DE DIOS</option>
<option>MOQUEGUA</option>
<option>PASCO</option>
<option>PIURA</option>
<option>PUNO</option>
<option>SAN MART&Iacute;N</option>
<option>TACNA</option>
<option>TUMBES</option>
<option>UCAYALI</option>
</select> </td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right"><strong>Vencimiento de la recarnetizaci&oacute;n <span class="letrasblancas">(*)</span> </strong></div></td>
<td height="25"><input name="RecarnetVence" type="text" id="RecarnetVence2" size="10" maxlength="10">
Usar el formato: <strong>dd/mm/aaaa</strong> (a veces <strong><strong>dd/mm/aa</strong></strong>)</td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right"><strong>Fecha de HABILITACI&Oacute;N <span class="letrasblancas">(*)</span> </strong></div></td>
<td height="25"><input name="HabilDesde" type="text" id="HabilDesde" size="10" maxlength="10">
Usar el formato: <strong>dd/mm/aaaa</strong> (a veces <strong><strong>dd/mm/aa</strong></strong>)</td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right"><strong>E-mail</strong></div></td>
<td height="25"><input name="Email" type="text" id="Email">
En MIN&Uacute;SCULA</td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><div align="right">
<p><strong>Comentarios</strong><br>
</p>
</div></td>
<td height="25"><textarea name="Comentario" cols="50" id="Comentario"></textarea></td>
</tr>
<tr bgcolor="#3399FF">
<td height="25"><span class="letrasblancas"><strong>(*)</strong></span><strong> Campos obligatorios para llenar. </strong></td>
<td height="25">&nbsp;</td>
</tr>
</table>
<p>
<INPUT name="SUBMIT" TYPE="SUBMIT" value="Ingresar">
<input type="reset" value="Restablecer" name="B2">
</p>
</form>
-----------------------




El código de la página ASP es el siguiente:
-----------------------
<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")

Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("../../db/bdcqfp.mdb")

Dim Temp

Temp="Select * From cqfp Where UCase(CQFP)='" & UCase(Request("CQFP")) & "' And UCase(ApPaterno)='" & UCase(Request("ApPaterno")) & "' And UCase(ApMaterno)='" & UCase(Request("ApMaterno")) & "' And UCase(Nombre)='" & UCase(Request("Nombre")) & "' And UCase(DNI)='" & UCase(Request("DNI")) & "' And UCase(DPTO)='" & UCase(Request("DPTO")) & "' And UCase(RecarnetVence)='" & UCase(Request("RecarnetVence")) & "' And UCase(HabilDesde)='" & UCase(Request("HabilDesde")) & "' And UCase(Email)='" & UCase(Request("Email")) &"' And UCase(Comentario)='" & UCase(Request("Comentario")) &"'"
Tabla.Open Temp,Conexion,2,3,1

If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("CQFP") = Request("CQFP")
Tabla("ApPaterno") = Request("ApPaterno")
Tabla("ApMaterno") = Request("ApMaterno")
Tabla("Nombre") = Request("Nombre")
Tabla("DNI") = Request("DNI")
Tabla("DPTO") = Request("DPTO")
Tabla("RecarnetVence") = Request("RecarnetVence")
Tabla("HabilDesde") = Request("HabilDesde")
Tabla("Email") = Request("Email")
Tabla("Comentario") = Request("Comentario")
Tabla.Update

%>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="640" style="border : 1px solid rgb(0,0,0)">
<tr>
<td bgcolor="#FFFBF0" style="padding-top: 4; padding-bottom: 4; padding-left: 4; padding-right: 4">
<center>
<p>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="500" bgcolor="#33FFFF" style="border : 1px solid rgb(0,0,0)">
<tr>
<td width="100%" valign="TOP">
<table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="silver">
<tr>
<td width="100%" style="border-bottom: 1px solid rgb(128,0,0)"><b><font color="#990000" face="Arial, Helvetica">COLEGIO
QU&Iacute;MICO FARMAC&Eacute;UTICO DEL PER&Uacute; (CQFP)</font></b></td>
</tr>
</table>
<p align="center"><font size="5"><b>Ingreso de datos completado</b></font> </p>
<%

Else
Response.Write "El registro ya existe"
End If

Tabla.Close
Conexion.Close
%>
---------------------------------

Mira, lo que deseo es lo siguiente:
- Ingresar esos datos de 20 en 20 o más.
- Si fuera posible, consolidarlos en un archivo excel o access y agregar a lo que ya existe en mi base de datos.
Estare esperando tu ayuda. Gracias de antemano.