Hola!! mi problema es el siguiente.
Estoy recibiendo en una pagina en una variable llamada correo una direccion al estilo ("nombre del autor" <
[email protected]>) todo eso excepto los ()
Necesito que me quede solo <
[email protected]>, ya consulte algunos mensaje posteaos aqui y coloque un codigo, pero me arroja un error y quiero ver si hay alternativas.
El codigo de mi pagina es:
pInicial = InStr(Request.Form("correo"),"<& quot;)
vCadena = Request.Form("correo")
vAutor = Mid(1,vCadena,pInicial,1)
Response.Write(vAutor)
Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = "mailsmtp.bancomext.gob.mx"
Mail.From = vAutor
.....
y me arroja este error el browser
Error de Microsoft VBScript en tiempo de ejecución error '800a01c2'
Número de argumentos erróneo o asignación de propiedad no válida: 'Mid'
Creo que tiene que ver con el tipo de datos, pero ya intente definir la variable pInicial como Dim pInicial as Integer y me arroja error diciendo que esperaba final de instruccion.