Fim da instrução esperado

[designmix 0]

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/bene/admin/enviar2.asp, line 13, column 14

else cont = 4 then

 

 

o que acontece

Set oDundas = Server.CreateObject("Dundas.Upload.2")			oDundas.UseUniqueNames = False			oDundas.Save Server.mapPath("foto\")			For Each vFiles In oDundas.Files			cont = cont + 1  			if cont = 1 then					Foto1 = Trim(oDundas.GetFileName(oDundas.Files(1).Path))			elseif cont = 2 then					Foto2 = Trim(oDundas.GetFileName(oDundas.Files(2).Path))			elseif cont = 3 then					Foto3 = Trim(oDundas.GetFileName(oDundas.Files(3).Path))			else cont = 4 then					Foto4 = Trim(oDundas.GetFileName(oDundas.Files(4).Path))					end if			Next

 

putz esta certo como fiz galera

 

grato

[designmix 0]

mais não tenho que terminha o if com else??tipo if elseif else end if

[designmix 0]

quero que cont so a te 4

 

fiz assim cont = cont + 1 to 4 mais deu erro

 

 

Erro de compilação do Microsoft VBScript (0x800A0401)Fim da instrução esperado/bene/admin/enviar2.asp, line 6, column 17cont = cont + 1 to 4