Otra duda. Error "Se esperaba instruccion"

[angel_dope]

A ver si alguien le ve el fallo xq yo no veo na d na
El código es el siguiente:

Código PHP:

  'Creo la conexión con la base de datos
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Publicom.mdb"))
 
Set Result=createobject("ADODB.Recordset")
Result.cursortype = AdOpenKeyset
Result.LockType = AdLockOptimistic
sql_Result = "Select * From Resultados"
Result.open sql_Result, conn
 
    while not result.eof    
        if result.fields("tipocliente")="1" then
                texto = "Tipo1"
 
        else if result.fields("tipocliente")="2" Then
                texto = "Tipo2"
        else if result.fields("tipocliente")="3" then
                texto = "Tipo 3"
        else
            'nada
        end if
 
    direccion = Result.fields("mail")
    
        ' CDO mail object
            Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
            
            ' CDO mail settings
                with objCDOMail
                    .BodyFormat = cdoBodyFormatHTML
                    .MailFormat = cdoMailFormatMIME
                    .Body = Texto
                    .Subject = "Pruebas Publicom"
                    .From = "[email protected]"
                    '.Bcc = "[email protected]"
                    .Bcc = direccion
                    '.Cc = strCC                
                    .MailFormat = 0            
                    '.AttachFile ThisFile
                    .Send
                end with
        
            ' destroy object, free memory
            set objCDOMail = nothing
        
    result.movenext
    
    WEND <--------AQUI ME DA EL ERROR 
   

Pues en el wend me da este error:

Error de compilación de Microsoft VBScript (0x800A0400)
Se esperaba una instrucción
/publicom/envio.asp, line 92

Alguien tiene idea de por que puede ser?????
Mucas gracias por adelantado, salu2,

[Mickel]

Yo tampoco veo el error. Que tal si cambias
while not result.eof
por
do while not result.eof
y
wend
por
loop
?

[angel_dope]

Probé con el do while....loop pero también me mostraba un error diciendo "Loop sin do" He estado probando y al final ha resultado ser el if. Si pongo los if con else no funciona. Sin embargo si pongo 3 if separados, cada uno con su end if, funciona perfectamente. me lo axpliquen