Ver Mensaje Individual
  #7 (permalink)  
Antiguo 08/06/2005, 04:33
Jucagovi
 
Fecha de Ingreso: septiembre-2004
Mensajes: 24
Antigüedad: 19 años, 7 meses
Puntos: 0
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>PAGINA DE MARRAS</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK href="../../estilo.css" type=text/css rel=stylesheet>
<script type="text/javascript" language="JavaScript1.2" src="../../funciones.js"></script>
</head>

<body>
<div align="center">

<%
usuario = Request.Form("usuario")
contrasena = Request.Form("contrasena")
'comunidad = Request.Form("comunidad")

nombre = Request.Form("nombre")
apellidos = Request.Form("apellidos")
colegiado = Request.Form("colegiado")

Response.Write("<td class='cabecera'>Resultado de la consulta de datos de " & nombre &" "& apellidos & "</td>")%>
</tr>
<tr>
<td><div align="center">
<%
Set Conexion = Server.CreateObject("ADOdb.Connection")
Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("../../datos/colegio.mdb")

Set consulta = Conexion.Execute("select * from Personales where Colegiado='" & colegiado & "'")
Response.write("<table align='center' width='95%' border='0' cellspacing='1'>")
Response.write("<tr><td colspan='2' class='cabecera' height='15'>DATOS PERSONALES</td>")
Response.Write("</table>")
cont_var = 0
Do while not consulta.eof
Response.write("<table align='center' width='95%' border='0' cellspacing='1'>")
Response.write("<form name='intro' method='post' action='personales.asp'>")
Response.write("<tr><td width='30%'>Nombre<b><b></td><td width='40%'><input class='text' name='nombre' value='" & consulta("Nombre") & "'></td></tr>")
Response.write("<tr><td width='30%'>Apellidos<b><b></td><td width='40%'><input class='text' name='apellidos' value='" & consulta("Apellidos") & "'></td></tr>")
Response.write("<tr><td width='30%'>Direccion<b><b></td><td width='40%'><input class='text' name='direccion' value='" & consulta("Direccion") & "'></td></tr>")
Response.write("<tr><td width='30%'>Correo Electronico<b><b></td><td width='40%'><input name='email' class='text' value='" & consulta("Email") & "'></td></tr>")
Response.write("<tr><td width='30%'>Codigo Postal<b><b></td><td width='40%'><input class='text' name='cp' value='" & consulta("cp") & "'></td></tr>")
Response.write("<tr><td width='30%'>Directorio<b><b></td><td width='40%'><input name='directorio' class='text' value='" & consulta("Directorio") & "'></td></tr>")
Response.write("<tr><td width='30%'>Localidad<b><b></td><td width='40%'><input name='localidad' class='text' value='" & consulta("Localidad") & "'></td></tr>")
Response.write("<tr><td width='30%'>Provincia<b><b></td><td width='40%'><input name='provincia' class='text' value='" & consulta("Provincia") & "'>")
%>
<select name='provincia_select' onChange="provincia.value = provincia_select.value" >
<option>Alava</option><option>Albacete</option><option>Alicante/Alacant</option>
<option>Almeria</option><option>Asturias</option><option>Avila</option><option>Badajoz</option><option>Baleares</option>
</select></td></tr>
<%
Response.write("<tr><td width='30%'>Comunidad Autonoma<b><b></td><td width='40%'><input name='autonoma' class='text' value='" & consulta("Autonoma") & "'> ")
%>
<select name='autonoma_select' onchange='autonoma.value=this.value'>
<option>Andalucia</option><option>Aragon</option><option>Asturias (Principado de)</option>
</select></td></tr>
<%
Response.write("<tr><td width='30%'>Delegacion a la que Pertenece<b><b></td><td width='40%'><input name='delegacion' class='text' value='" & consulta("Delegacion") & "'> ")
%>
<select onchange='delegacion.value=this.value' name='delegacion_select'>
<option>Andalucia</option>
<option>Balears (Illes)</option>
<option>Cantabria</option>
<option>Catalunya</option>
<option>Comunitat Valenciana</option>
<option>Galicia</option>
<option>Delegacion Central</option>
</select></td></tr>
<%
Response.write("<tr><td width='30%'>Se ha dado de Baja<b><b></td><td width='40%'><input name='baja' class='text' value='" & consulta("Baja") & "'> ")
%>
</td></tr>
<%
cont_var = cont_var + 1
consulta.MoveNext
Response.write("<tr><td colspan=2><div align='center'><input class='botlar' name='' type='submit' value='MODIFICAR DATOS'></div></td></tr>")
Response.write("<input type='hidden' name='usuario' value='" & usuario & "'>")
Response.write("<input type='hidden' name='contrasena' value='" & contrasena & "'>")
Response.write("</form>")
Loop

Response.write("</table><br>")

'Response.write("</form>")
End If

%>
</div></td>
</tr>
</table>
</body>
</html>