<% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit. FP_CharSet = "windows-1252" FP_CodePage = 1252 %> Mailing List

Mailing List

 
<% if 0 then %> <% end if %> <% fp_sQry="SELECT article FROM Articles where type = 'register'" fp_sDefault="" fp_sNoRecords="No records returned." fp_sDataConn="FES" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_sColTypes="&article=203&" fp_iDisplayCols=1 fp_fCustomQuery=True BOTID=0 fp_iRegion=BOTID %>

<% Dim temp Dim pos Dim strOriginal Dim strOldChar Dim strNewChar temp = "" strOriginal= FP_FieldVal(fp_rs,"article") 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 %>

First name
Last Name
   
Address 1
Address 2
City
State
Zip code
   
Phone
Email
Referred By
Delivery