26/03/2008, 07:54
|
 | Colaborador | | Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses Puntos: 126 | |
| Re: Consulta desde Lista/Menu
¿Será esto lo que quieres  ?
La pagina se llama datos.asp
Código:
Lo primero que has de hacer es recoger los valores del form
id_cliente = Request.Form("nom_cte")
servicios = Request.Form("id_serv")
Dim registros
Dim cliente ' de aquí para abajo son nombres ficticios de los campos de tu tabla
Dim serivio
Dim valor_cliente
Dim tipo_servicio
cliente = 0
servicio = 1
valor_cliente = 2
tipo_servicio = 3
Verificas el estado de los campos
IF IsEmpty(id_cliente) or IsEmpty(servicios) then
SQL="SELECT * FROM tabla"
rs.Open SQL ....
registros=rs.getrows
limpias rs y conexion
ELSE
SQL="SELECT * FROM tabla WHERE cliente ="&id_cliente&" and servicio ="&servicios&""
rs.Open SQL ....
registros=rs.getrows
limpias rs y conexion
%>
<form id="form1" name="form1" method="post" action="./datos.asp">
<table width="507" border="0" cellpadding="1" cellspacing="2">
<tr>
<td colspan="8"><table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="95%"><div align="right"><strong>CÓDIGO ORDEN</strong></div></td>
<td width="5%">
<div align="left"><strong>
<input name="id_orden" type="text" class="TEXT_AREA" id="id_orden" onkeyup="this.value=this.value.toUpperCase()" size="8" maxlength="15" readonly />
</strong></div></td>
</tr>
</table></td>
</tr>
<tr>
<td width="54" valign="top"><p align="left"><strong>CLIENTE </strong></p> </td>
<td width="419" colspan="7"><div align="left">
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td><div align="left"><strong>
<select class="TEXT_AREA" name="nom_cte" id="id_serv">
<option>--Seleccione Cliente--</option>
For i=0 to UBound(registros,2)
<%=registros(cliente,i)%>
Next 'i </select>
<br />
<br />
<%
IF IsEmpty(id_cliente) then
%>
<input name="id_cte" type="text" class="TEXT_AREA" id="id_cte" onkeyup="this.value=this.value.toUpperCase()" size="21" maxlength="8" style="color:gray" onfocus="color(this,0,'COD. CLIENTE')" onblur="color(this,1,'COD. CLIENTE')" value=""/>
<%
ELSE
<input name="id_cte" type="text" class="TEXT_AREA" id="id_cte" onkeyup="this.value=this.value.toUpperCase()" size="21" maxlength="8" style="color:gray" onfocus="color(this,0,'COD. CLIENTE')" onblur="color(this,1,'COD. CLIENTE')" value="<%=registros(valor_cliente)%>"/>
<%
END IF
%>
</strong></div> <div align="left"></div></td>
</tr>
</table>
</div></td>
</tr><tr>
<td height="30" colspan="8"> <div align="center">
<label> </label>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td height="23" colspan="2" valign="top"><div align="center">
<table width="100%" border="0" align="center" id="base">
<tr class="celda">
<td width="18%" class="Estilo1" style="padding:3px;"><div align="center"><strong>CANTIDAD</strong></div></td>
<td width="24%" class="Estilo1" style="padding:3px;"><div align="center"><strong>SERVICIO</strong></div></td>
<td width="16%" class="Estilo1" style="padding:3px;"><div align="center" class="Estilo2">
<p>GASTO</p>
</div></td>
<td width="21%" class="Estilo1" style="padding:3px;"><div align="center"><strong>COSTO</strong></div></td>
<td width="19%" class="Estilo1" style="padding:3px;"><div align="center"><strong>TOTAL</strong></div></td>
</tr>
<tr id="example" class="celda">
<td align="center" valign="middle">
<div align="center">
<input name='cantidad' type='text' class="TEXT_AREA" id='cantidad' value="00" size="2" maxlength="2" style="color:gray" onfocus="color(this,0,'00')" onblur="color(this,1,00')"/>
</div></td>
<td align="center" valign="middle" style='padding:3px;'><div align="center">
<select class="TEXT_AREA" name="id_serv" id="opera">
<option>--Seleccione Servicio--</option>
For z=0 to UBound(registros,2)
<%=registros(servicio,z)%>
Next 'z
</select>
</div></td>
<td align="center" valign="middle"><div align="center">
<%
IF IsEmpty(servicios) then
%>
<input name='gasto' type='text' class="TEXT_AREA" id='gasto' size="5" maxlength="5" value="<%=registros(tipo_servicio)%>" readonly="readonly"/>
<%
ELSE
%>
<input name='gasto' type='text' class="TEXT_AREA" id='gasto' size="5" maxlength="5" value="<%=registros(tipo_servicio)%>" readonly="readonly"/>
<%
END IF
%>
</div></td>
<td align="center" valign="middle"><div align="center">
<input name='costo' type='text' class="TEXT_AREA" id='costo' size="5" maxlength="5" readonly="readonly"/>
</div></td>
<td align="center" valign="middle"><div align="center">
<input name='total' type='text' class="TEXT_AREA" id='total' size="5" maxlength="5" readonly="readonly"/>
<input type="hidden" name="btnAction" value="next" />
</div></td>
</tr>
</table>
<img src="imagenes/but_agregar.jpg" width="66" height="24" onClick="addNewRow(event)"/><img src="imagenes/but_eliminar.jpg" width="66" height="24" onclick="removeLastRow(event)"/>
</div></td>
</tr>
<tr>
<td height="14" valign="top"> </td>
<td valign="bottom"> </td>
</tr>
<tr>
<td width="19%" height="14" valign="top"><strong>OBSERVACIONES</strong></td>
<td width="81%" valign="bottom"><div align="left">
<textarea name="ob_oservicio" cols="45" rows="5" class="TEXT_AREA" id="ob_oservicio" onkeyup="this.value=this.value.toUpperCase()" value="OBSERVACIONES">
</textarea>
</div></td>
</tr>
<tr>
<td height="35" colspan="2" valign="bottom"><div align="center">
<input type="image" value="submit" name="entrar" src="imagenes/but_ingresarorden.jpg" id="entrar"/>
</div>
<div align="left"></div></td>
</tr>
</table>
<label></label>
</div>
</table>
</form>
Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" /> |