Send Link to your Friends !

 

Your Name:
Your Email:
Your Friend Email:

Thank you for helping to spread the word !!!

<% Dim temp Dim pos Dim strOriginal Dim strOldChar Dim strNewChar temp = "" strOriginal= FP_FieldVal(fp_rs,"Texto") strOldChar = Chr(13)& Chr(10) strNewChar = "
" pos = InStr(1, strOriginal, strOldChar) While pos > 0 temp = temp & Mid(strOriginal, 1, pos - 1) & strNewChar strOriginal = Right(strOriginal, Len(strOriginal) - pos - Len(strOldChar) + 1) pos = InStr(1, strOriginal, strOldChar) Wend ChangeStr = temp & strOriginal Response.Write ChangeStr %>