") 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: