codice:
email = oRst("email") 
str = replace(email,"<","") 
str = replace(str,">","") 
arr_str = split(str," ") 
     

     
for xElem = 0 to Ubound(arr_str) 
     
    if InStr(arr_str(xElem), "@") > 0 Then 
        'response.write(trim(arr_str(xElem)) &"
") 
         
        strSQL = "UPDATE newsletter set email = '" & arr_Str(xElem) & "' WHERE email = "'& email &"'" 

        oConn.execute strSQL 
         
    else 
     
    End if 
next

Roby