11/05/2009, 08:05
|
| | Fecha de Ingreso: abril-2003
Mensajes: 10
Antigüedad: 21 años, 7 meses Puntos: 0 | |
Respuesta: Uso de sentencia if en codigo de Dreamweaver Que gracias por responder , el codigo es el siguiente, Ahi veo que al principio el codigo revisa la info capturada en cada campo de texto con la sentencia if , pero veo que no hace nada si no se caprura algo , lo que necesito es que si en cualquiera de los campos de texto no capturan un dato que mande una leyenda que faltan datos, y otra seria que si en la busqueda no encuentra nada que mande tambien eso, pq si no encuentra nada mando error en la pagina . Gracias de antemano.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/mipc.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("fechai") <> "") Then
Recordset1__MMColParam = Request.QueryString("fechai")
End If
%>
<%
Dim Recordset1__Regina
Recordset1__Regina = "1"
If (Request.QueryString("fechaf") <> "") Then
Recordset1__Regina = Request.QueryString("fechaf")
End If
%>
<%
Dim Recordset1__unidadv
Recordset1__unidadv = "1"
If (Request.QueryString("select") <> "") Then
Recordset1__unidadv = (Request.QueryString("select"))
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_mipc_STRING
Recordset1.Source = "SELECT * FROM dbo.final WHERE fechaviaje BETWEEN '" + Replace(Recordset1__MMColParam, "'", "''") + "' and '" + Replace(Recordset1__Regina, "'", "''") + "' and Unidad = '" + Replace(Recordset1__unidadv, "'", "''") + "' ORDER BY fechaviaje"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
<style type="text/css">
<!--
.Estilo3 {font-family: Arial, Helvetica, sans-serif; font-size: 10px; }
.Estilo4 {
font-family: Arial, Helvetica, sans-serif;
font-size: 36px;
}
body {
background-color: #3399FF;
}
-->
</style>
<meta http-equiv="Refresh" content="60" />
</head>
<body>
<p align="center" class="Estilo4">Bitacoras del Día <%=(Recordset1.Fields.Item("fechaviaje").Value)% ></p>
<p>
<label></label>
</p>
<p align="right"> <strong><a href="ebita.html">Nueva Busqueda</a></strong></p>
<table width="200" border="1">
<tr bgcolor="#CCFFFF">
<th scope="col">Viaje</th>
<th scope="col">Fecha de Viaje </th>
<th scope="col">Unidad</th>
<th scope="col">Producto</th>
<th scope="col">Origen </th>
<th scope="col">Destino</th>
<th scope="col">Llegada a Cargar </th>
<th scope="col">Llegada a descargar </th>
<th scope="col">Salida Vacio </th>
<th scope="col">Peso de Carga 1 </th>
<th scope="col">Peso de Carga 2 </th>
<th scope="col">Peso de descarga </th>
<th scope="col">Folio de Carga 1 </th>
<th scope="col">Folio de Carga 2 </th>
<th scope="col">Folio de descarga 1 </th>
<th scope="col">Folio de Descarga 2 </th>
<th scope="col">Remolque 1 </th>
<th scope="col">Remolque 2 </th>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr bgcolor="#E8FFFF">
<td><div align="center"><span class="Estilo3"></span><%=(Recordset1.Fields.Item("id_viaje").Value) %></div></td>
<td><div align="center"><span class="Estilo3"></span><%=(Recordset1.Fields.Item("fechaviaje").Valu e)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Unidad" ).Value)%></div></td>
<td><div align="center"><span class="Estilo3"></span><%=(Recordset1.Fields.Item("Producto").Value) %></div></td>
<td><div align="center"><span class="Estilo3"></span><%=(Recordset1.Fields.Item("Origen").Value)%> </div></td>
<td><div align="center"><span class="Estilo3"></span><%=(Recordset1.Fields.Item("Destino").Value)% ></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Llegada a Cargar").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Llegada Descargar").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Salida vacio").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Peso Carga1").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Peso Carga2").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Peso Descarga").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Folio Carga1").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Folio Carga2").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Folio descarga1").Value)%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("Folio Descarga2").Value)%></div></td>
<td><%=(Recordset1.Fields.Item("Remolque1").Value) %></td>
<td><div align="center"><span class="Estilo3"></span><%=(Recordset1.Fields.Item("Remolque2").Value )%></div></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%> |