hola tengo un gran problemilla que me a desvelado sin poder conseguir nada por favor si se apiadan de mi ayudenme estoy vuelto nadita. aqui les va mi problematica:
tengo un gran problemilla es el sgte:
hola!!!!!!!!!!!!!!
tengo un gran problemilla y la verdad no se por donde comenzar, saben tengo un proyecto de grado y pues tengo que terminarlo para la proxima semana, hay una parte que es el de hacer el proceso de vacunacion de unos niños y pues tengo que manejar la parte de las vacunas, pues bien detalles como el registro de una nueva vacuna que salga, osea insertar vacuna, tambien el de por ejemplo si un usuario se a colocado algunas vacunas entonces debe quedar registrado segun las dosis que este se halla apliacado, puede que una vacuna tenga 3 dosis las caules se tenga que aplicar cada periodo de tiempo puede ser de cuando nace, a los dos meses y a los 4 meses.
alguien me podria hechar una ayudita de como podria hacer esto y si tiene un ejemplo de algo parecido en asp pues que me ayude es full urgente.
chao, les agradeceria muchisim
tengo una tabla que tiene los sgtes campos:
cod_vacuna,nom_vacuna,num_dosis,tiempo_dosis
en numero de dosis pues tu colocas por decir 3
bueno en una primera pagina listo todas las vacunas que hay en la base de datos y al lado aparecen una serie de checkbox dependiendo el numero de dosis que tiene la vacuna eso lo hago con este codigo:
<html>
<head>
<title>Buscar Paciente Por Apellido</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style type="text/css">
<!--
.Estilo1 {
color: #008000;
font-weight: bold;
font-size: large;
}
-->
</style>
<body bgcolor=skyblue>
<p> </p>
<div id="Layer2" style="position:absolute; width:571px; height:58px; z-index:2; left: 171px; top: 18px;">
<div align="center" class="Estilo1">Busqueda de Paciente en el Area de Promocion y Prevencion en Salud </div>
</div>
<div id="Layer1" style="position:absolute; width:175px; height:218px; z-index:1; left: 0px; top: 2px;"><img src="Imagenes%20Web%20Servir/Simbolo%20medicina.jpg" width="174" height="229"></div>
<p><BR>
<BR>
</p>
<p> </p>
<form name=myform method="POST" action="histovacu.asp">
<div align="center">
<center>
<%
Dim Conoo,rst
Set Conoo = Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
Conoo.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};Server=127.0.0.1;uid=root;DataBase=datos1"
Conoo.Open
SQL="SELECT distinct(nom_vacuna),num_dosis,cod_vacuna FROM vacunacion "
Set rst = Conoo.Execute(SQL) %>
<table border="1" width="56%" bgcolor="skyblue">
<%
'Generamos el menu desplegable
Do while (not rst.Eof)
%>
<tr>
<td><div align="center"><strong><%=rst("nom_vacuna")%></strong></div></td><td>
<center>
<td>
<%
for i=1 to rst("num_dosis")
%>
<input type="checkbox" name=che value="<%=rst("num_dosis")%>">
<%
next
rst.MoveNext
Loop
%>
</td></tr>
<% Conoo.Close
set rst = nothing
set Conoo = nothing
%>
<TD colspan=10 valign=middle align=center><div align="center">
<font size=+1><input type=submit value="Ingresar Datos de Vacuna " ></font></div></TD>
</TR>
</table>
</center>
</div>
<input type= "hidden" name="cedu">
</form>
</body>
<br>
<br>
<br>
<br>
<br>
<br>
<a href="./principal.asp"><font color=blue>Volver al Menu Principal</font></a>
</html>
bueno lo ideal seria que yo pudiera escojer los checkbox de varias vacunas, pudiendo ser asi:
escojer checkbox1,checkbox3 para la vacuna sarampion
escojer checkbox2,checkbox4 para la vacuna viruela
y asi sucesivamente, pero no lo logro conseguir.
ademas de eso por ejemplo si yo escojo el checkbox1 y checkbox3 deberia insertarme en la base de datos dos registros en el campo num_dosis deberian insertarse los valores 1 y 3.
tengo el sgte codigo en donde inserto de mal manera, no como yo quiero y que espuse anteriormente:
<%
Dim oConn,strSQL,RS,cod,v
v = Split(request.form("che"), ",")
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};Server=127.0.0.1;uid=root;DataBase=datos1"
oConn.Open
for i=0 to UBound(v)
strSQL = "insert into detalle_vacuna(codigo,num_vacuna) values('0100','" & v(i) & "')"
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
next%>
<br>
<br>
<br>
<body bgcolor=skyblue>
<center>
<font face="Georgia, Times New Roman, Times, serif" color="GREEN" size> <B>Sus datos han sido registrados satisfactoriamente</B> </font>
</center>
</body>
