problemas con un if ???

[mary*]

Hola a todos!!!...otra vez por aqui...tengo un problemilla, tengo este código:

Código:

If vMotor= 21B  and vArranque= 1 and vParo= 0 and vFallo=0 then
response.write "muestra una imagen"

y me aparece e siguiente error

Código:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03F9)
Se esperaba 'Then'
/report/F3_Monitoreo4.asp, línea 872, columna 13
If vMotor= 21B and vArranque= 1 and vParo= 0 and vFallo=0 then 

sé que el problema esta en comparar la variable vMotor, la cual es 21B, pregunta: cual es la sintaxis cuando en mi comparacion tengo un valor con numeros y letras o bien si tuviera solo letras, por ejemplo si mi dato fuera 21B o MOTORB??...nuevamente gracias!!!

[orharo2003]

If vMotor= "21B"

[mary*]

Hola orharo2003!!!

...disculpen por repetir el mensaje, no fue mi intención, la pagina esta fallando un poco y en mi intendo de enviar mi post, pues se envio 2 veces...sorry!!!

regresando al tema...ya puse esa sintaxis q sugieres...y ahora me marcó el siguiente error:

Código:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: '[string: "21B "]'
/report/F3_Monitoreo4.asp, línea 118

...que esta mal...

[u_goldman]

Podrías poner más código?

Saludos

[mary*]

ok...ahi va algo mas de codigo:

Código:

<%
	vFecha1= Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & "00:00"
	vFecha2= Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & "23:59"
	
	
	'Conección con la BD
	sConnStr = "Driver={SQL Server};Server=MGUEVARA;Database=Rssql;UID=sa;Password=sa;"
	Set objConn = Server.CreateObject("ADODB.Connection") 
	objConn.Open sConnStr

	'*** MOTOR13 ***
	Set rsMon13 = Server.CreateObject("ADODB.Recordset")
	strSQL_Mon13 = "SELECT TOP 1 ID, MOTOR, ARRANQUE, PARO, FALLO, AUTO, MANUAL, FECHC FROM MOTORES_ESC5 WHERE FECHC >='" & vFecha1 & "' AND FECHC <='" & vFecha2 & "'  ORDER BY FECHC DESC"		
	'Abre tabla temporal
	rsMon13.ActiveConnection = objConn
	rsMon13.Open strSQL_Mon13, objConn,2,2
	rsMon13.Requery
%>

<td width="54" align="left"><div align="center">
                        <%	
	'Obtener el valor de la consulta y asignarlo a la variable, vMotor=rsMon13("MOTOR")
vArranque=rsMon13("ARRANQUE")
vParo=rsMon13("PARO")
vFallo=rsMon13("FALLO")

	'Hacer comparacion.
If vMotor= 13B and vArranque= 1 and vParo= 0 and vFallo=0 then
response.write "muestra una imagen"
End If

If vMotor= 13B and vArranque= 0 and vParo= 1 and vFallo=0 then
response.write "muestra una imagen"
End If

If vMotor= 13B and vArranque= 0 and vParo= 0 and vFallo=1 then
response.write "muestra una imagen"
End If

%>
</div></td>

a ver que se puede hacer...gracias!!!...

Por cierto el tipo de dato que tengo en mi BD es "char".

[daniel00]

Que tal.

La respuesta que te dio orharo2003, es correcta entonces la primera de tus compraciones quedaría:

Código:

	'Hacer comparacion.
If vMotor= "13B" and vArranque= 1 and vParo= 0 and vFallo=0 then
response.write "muestra una imagen"
End If

Y se hace lo mismo con las otras dos, sólo te faltaba ponerlo entre comillas.

Ahora bien se esta suponiendo que los campos ARRANQUE, PARO, FALLO son de tipo entero diferente de nulos.

Saludos y suerte!

[daniel00]

También debes de asegurarte que el campo MOTOR es de tipo char(3) o varchar(3), seguramente es de tipo entero u por eso no se puede hacer la comparación.

Saludos nuevamente!

[u_goldman]

Lo que quisiera ver es la asignacion de vMotor, donde esta?

Saludos

[orharo2003]

Aca lo tiene master

vMotor=rsMon13("MOTOR")
vArranque=rsMon13("ARRANQUE")
vParo=rsMon13("PARO")
vFallo=rsMon13("FALLO")

Lo q es probable es que su consulta no le este devolviendo datos, mary ¿ Segura que si haces un response.write a tus variables te regresan valores ?

[u_goldman]

No me habia percatado que aparecia un poco escondida, bueno, entonces si es tal como dice orharo lo mas probable es que la consulta esta devolviendo un nulo para ese valor.

Hazte un

Response.write(isNull(vMotor))

para determinar si esto es cierto.

Saludos