
01/02/2008, 16:21
|
 | Colaborador | | Fecha de Ingreso: febrero-2007 Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 2 meses Puntos: 88 | |
Re: rellenar un formulario haber si te sirve esto Código PHP: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%sub formulario(parametro) select case 1%> <table width="599" border="0"> <tr><td width="216" class="trebuchet13"><strong> <label><span class="trebuchet13">Apellido</span></label></strong></td> <td width="373"><input type="text" name="apellido" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Nombre</strong></span></td> <td><input type="text" name="nombres" /></td></tr> <tr><td class="trebuchet13"><strong>Edad</strong></td> <td><input type="text" name="edad" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Tipo de doc. </strong></span></td> <td><span class="trebuchet13"><strong> <input name="radio1" type="radio" value="DNI" />DNI <input name="radio1" type="radio" value="CI" />CI <input name="radio1" type="radio" value="LE" />LE <input name="radio1" type="radio" value="Pasaporte" />Pasaporte </strong></span></td></tr> <tr><td class="trebuchet13"><strong><label>N° doc. </label></strong></td> <td><input type="text" name="numero" /></td></tr> <tr><td class="trebuchet13"><strong>C.U.I.L. </strong></td> <td><input type="text" name="cuil" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Estado Civil</strong></span></td> <td><span class="Estilo4"> <label class="trebuchet13"> <input name="radio2" type="radio" value="Soltero/a" />Soltero/a <input name="radio2" type="radio" value="Casado/a" />Casado/a <input name="radio2" type="radio" value="Divorciado/a" />Divorciado/a <input name="radio2" type="radio" value="Viudo/a" />Viudo/a </label> </span> </td></tr> <tr><td class="trebuchet13"><strong><label>Nacionalidad </label></strong></td> <td><input type="text" name="nacionalidad" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Dirección</strong></span></td> <td><label><input type="text" name="direccion" /></label></td></tr> <tr><td class="trebuchet13"><strong><label>Cod. Postal </label></strong></td> <td><input type="text" name="codpostal" /></td></tr> <tr><td class="trebuchet13"><strong><label>Tel Cel </label></strong></td> <td><input type="text" name="cel" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Teléfono</strong></span></td> <td><input type="text" name="tel" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>E-Mail</strong></span></td> <td><input type="text" name="mail" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Estudios cursados </strong></span></td> <td><textarea name="estudios" cols="50" rows="5"></textarea></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Otros estudios </strong></span></td> <td><textarea name="otros" cols="50" rows="5"></textarea></td></tr> <tr><td class="trebuchet13"><strong><label>Idiomas </label></strong></td> <td><label><textarea name="idiomas" cols="50" rows="5"></textarea></label></td></tr> <tr><td class="trebuchet13"><strong><label>Antecedentes laborales </label></strong></td> <td><label><textarea name="antecedentes" cols="50" rows="5"></textarea></label></td></tr> </table><% select case 2%> <table width="599" border="0"> <tr><td width="216" class="trebuchet13"><strong> <label><span class="trebuchet13">Apellido</span></label></strong></td> <td width="373"><input type="text" name="apellido" value="<%=RS.fields.item("apellido")%>" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Nombre</strong></span></td> <td><input type="text" name="nombres" value="<%=RS.fields.item("nombres")%>" /></td></tr> <tr><td class="trebuchet13"><strong>Edad</strong></td> <td><input type="text" name="edad" value="<%=RS.fields.item("edad")%>" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Tipo de doc. </strong></span></td> <td><span class="trebuchet13"><strong> <% rad=RS.fields.item("radio1") items="DNI,CI,LE,Pasaporte" iterar=split(items,",") for i=0 to ubound(iterar) if rad=items(i) then%> <input name="radio1" checked="checked" type="radio" value="<%=items(i)%>" /><%=items(i)%><% else %><input name="radio1" type="radio" value="<%=items(i)%>" /><%=items(i)%><% end if next redim iterar(0)%></strong></span></td></tr> <tr><td class="trebuchet13"><strong><label>N° doc. </label></strong></td> <td><input type="text" name="numero" value="<%=RS.fields.item("numero")%>" /></td></tr> <tr><td class="trebuchet13"><strong>C.U.I.L. </strong></td> <td><input type="text" name="cuil" value="<%=RS.fields.item("cuil")%>" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Estado Civil</strong></span></td> <td><span class="Estilo4"> <label class="trebuchet13"> <% rad=RS.fields.item("radio2") items="Soltero/a,Casado/a,Divorciado/a,Viudo/a" iterar=split(items,",") for i=0 to ubound(iterar) if rad=items(i) then%> <input name="radio2" checked="checked" type="radio" value="<%=items(i)%>" /><%=items(i)%><% else %><input name="radio2" type="radio" value="<%=items(i)%>" /><%=items(i)%><% end if next%></label></span></td></tr> <tr><td class="trebuchet13"><strong><label>Nacionalidad </label></strong></td> <td><input type="text" name="nacionalidad" value="<%=RS.fields.item("nacionalidad")%>" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Dirección</strong></span></td> <td><label><input type="text" name="direccion" value="<%=RS.fields.item("direccion")%>" /></label></td></tr> <tr><td class="trebuchet13"><strong><label>Cod. Postal </label></strong></td> <td><input type="text" name="codpostal" value="<%=RS.fields.item("codpostal")%>" /></td></tr> <tr><td class="trebuchet13"><strong><label>Tel Cel </label></strong></td> <td><input type="text" name="cel" value="<%=RS.fields.item("cel")%>" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Teléfono</strong></span></td> <td><input type="text" name="tel" value="<%=RS.fields.item("tel")%>" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>E-Mail</strong></span></td> <td><input type="text" name="mail" value="<%=RS.fields.item("mail")%>" /></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Estudios cursados </strong></span></td> <td><textarea name="estudios" cols="50" rows="5"><%=RS.fields.item("estudios")%>" </textarea></td></tr> <tr><td class="trebuchet13"><span class="Estilo13"><strong>Otros estudios </strong></span></td> <td><textarea name="otros" cols="50" rows="5"><%=RS.fields.item("otros")%></textarea></td></tr> <tr><td class="trebuchet13"><strong><label>Idiomas </label></strong></td> <td><label><textarea name="idiomas" cols="50" rows="5"><%=RS.fields.item("idiomas")%></textarea></label></td></tr> <tr><td class="trebuchet13"><strong><label>Antecedentes laborales </label></strong></td> <td><label><textarea name="antecedentes" cols="50" rows="5">value="<%=RS.fields.item("antecedentes")%>" </textarea></label></td></tr> </table><% end select end sub
sub consulta(criterio) Query="select " & campos & " from TUTABLA where nombre = '" & criterio & "'" set RS=conexion.execute(Query) if Err=0 then if RS.EOF=False then formulario 2 else Response.Write "No se encontraron datos para este criterio (" & crierio & ")" end if else Response.Write "No se puede concretar la busqueda, Ha axistido un Error, llame a su Administraro. Erro:" & Err end if set RS=nothing conexion.close set conexion= nothing end sub%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Documento sin título</title> </head>
<body> <% if request.ServerVariables("REQUEST_METHOD")="POST" then strconsulta=request.form("campo") '<--- MODIFICA ESTE CAMPO POR EL DE TU FORMULARIO if isnull(strconsulta) or isempty(strconsulta) then formulario 1 else consulta(strconsulta) end if elseif request.ServerVariables("REQUEST_METHOD")="GET" then criterio=request.QueryString("campo") '<--- MODIFICA ESTE CAMPO POR EL DE TU FORMULARIO if isnull(strconsulta) or isempty(strconsulta) then formulario 1 else consulta(strconsulta) end if end if %> </body> </html>
__________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra |