If Then

[Jose C. Jordan]

Hola, tengo un problema al crear una sentencia con If. Dentro de la misma página tengo otras i no me da ningún problema, el código es el siguiente y lo he probado de diferentes maneras. Lo que hago, es lo siguiente, al enviar un mail, con ASPEMAIL, pongo una serie de campos de un formulario, pero si uno no tiene datos, no lo envío.

Código:

  
For index = 1 to Request.Form.Count
		
		Producto = Request.Form("Producto" & index) 
                If Producto = "" Then
                 next
                End If
		Cantidad = Request.Form("Cantidad" & index)
		ProductoTotal = Request.Form("ProductoTotal" & index)
		Mensaje = Mensaje & "Producto" & index & ": " & Producto & Chr(13) & Chr(10)
		Mensaje = Mensaje & "Cantidad" & index & ": " & Cantidad & Chr(13) & Chr(10)
		Mensaje = Mensaje & "ProductoTotal" & index & ": " & ProductoTotal  & Chr(13) & Chr(10) & Chr(13) & Chr(10)
	
next

Tambien he probado de poner if Producto <> "" entonces hace el proceso else next y tambien me da error.

[Jose C. Jordan]

Y esto que tiene de malo?

Código:

For index = 1 to Request.Form.Count
		
		
			Producto = Request.Form("Producto" & index) 
			Cantidad = Request.Form("Cantidad" & index)
			ProductoTotal = Request.Form("ProductoTotal" & index)
			Mensaje1 = "Producto" & index & ": " & Producto & Chr(13) & Chr(10)
			Mensaje1 = Mensaje1 & "Cantidad" & index & ": " & Cantidad & Chr(13) & Chr(10)
			Mensaje1 = Mensaje1 & "ProductoTotal" & index & ": " & ProductoTotal  & Chr(13) & Chr(10) & Chr(13) & Chr(10)

		If Cantidad <> 0 Then
			Mensaje = Mensaje & Mensaje1
		EndIf
	   
next

He probado de 5000000 maneras y no se donde tengo el error. si le quito el if, funciona bien, pero envia todo.

no entiendo que

Código:

  
		If Cantidad <> 0 Then
			Mensaje = Mensaje & Mensaje1
		EndIf

de error, y

Código:

 
If Err <> 0 Then
   Response.Write "Error encountered: " & Err.Description
End If

No lo de.

Gracias.

[urjose]

Entendi lo que quires hacer, pero no entendi nada de tu codigo...

For Each Item In Request.Form
If Item<>"" Then
Variable=Variable & Item
End If
Next

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[Mickel]

Aguanta, aguanta.

For...
If...
Next...
End If...
?????

Oye, que esto no es HTML!