18/04/2015, 10:05
|
| | Fecha de Ingreso: noviembre-2014
Mensajes: 8
Antigüedad: 10 años, 1 mes Puntos: 0 | |
Concatenar if...elseif...else Buenas tardes. Tengo un pequeño problema y es que no me deja concatenar
if...them
elseif....them
else
end if
Me explico. Quiero personalizar cuando me da un error por no haber introducido un dato en el cuestionario ya sea el mes, el año, etc. No sé si el problema que tengo es que estoy nombrando mal la variable a la cual estoy poniendo la condición. El problema esta cuando introduzco el dato del mes correcta o incorrectamente <% elseif m<>"mes" then %> siempre me da como DATOS INCORRECTOS. Os muestro parte de la pagina para que me podáis indicar donde esta el error.
<% Dim m,a,c,i,im,id,conex,sqltext
m=Request.Form("mes")
a=Request.Form("ano")
c=Request.Form("concepto")
i=Request.Form("ingreso")
im=Request.Form("importe")
id=Request.Form("registro")
set conex=Server.CreateObject("adodb.connection")
conex.open "provider=microsoft.jet.oledb.4.0;data source="&Server.mappath ("./BD/contabilidad.mdb")
if a="" or m="" or c="" or i="" or im="" then%>
<FONT COLOR=BLACK SIZE=+3 FACE="VERDANA">FALTAN DATOS
</FONT><BR>
<TABLE ALIGN=CENTER CELLSPACING="10" CELLPADDING="25" BORDER=0>
<TR>
<TD>
<BUTTON TYPE="RESET" ID="IMPRIME" STYLE="WIDTH:auto;HEIGHT:36PX;FONT-SIZE:10PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX;"ONCLICK="location.href='CONTABILIDAD.H TML'">
<IMG SRC="ATRAS.PNG" ALIGN="ABSMIDDLE" HSPACE='4'/> ATRAS
</BUTTON>
</TD>
</TR>
</TABLE>
<% elseif m<>"mes" then %>
<FONT COLOR=BLACK SIZE=+3 FACE="VERDANA">DATOS INCORRECTOS
</FONT><BR>
<TABLE ALIGN=CENTER CELLSPACING="10" CELLPADDING="25" BORDER=0>
<TR>
<TD>
<BUTTON TYPE="RESET" ID="IMPRIME" STYLE="WIDTH:auto;HEIGHT:36PX;FONT-SIZE:10PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX;"ONCLICK="location.href='CONTABILIDAD.H TML'">
<IMG SRC="ATRAS.PNG" ALIGN="ABSMIDDLE" HSPACE='4'/> ATRAS
</BUTTON>
</TD>
</TR>
</TABLE>
<% else
sqltext= "insert into contabilidad (mes,ano,concepto,f_ingreso,importe) values ('"&m&"','"&a&"','"&c&"','"&i&"','"&im&"');"
conex.execute(sqltext) %>
<FONT COLOR=BLACK SIZE=+3 FACE="VERDANA">DATOS GUARDADOS
</FONT><BR><BR>
<% end if %>
De antemano agradeceros la ayuda.
Un saludo. |