") If iPos <> 0 then Title = replace(Mid(articleIn,iPos + 20,InStr(iPos,articleIn,"">

Send Page: ",1) then iPos = InStr(1,articleIn,"") If iPos <> 0 then Title = replace(Mid(articleIn,iPos + 20,InStr(iPos,articleIn," * denotes required fields *Recipient Email:    *Recipient Name:    *Your Email:    *Your Name:    Remember my name & email address! Message: