ear <% Dim FP_SavedFields FP_InitFormConfirmation Sub FP_InitFormConfirmation On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 set FP_SavedFields = Server.CreateObject("Scripting.Dictionary") if IsArray(Session("FP_SavedFields")) and IsArray(Session("FP_SavedValues")) then Dim FP_arFields Dim FP_arValues Dim FP_idx FP_arFields = Session("FP_SavedFields") FP_arValues = Session("FP_SavedValues") for FP_idx = 0 to UBound(FP_arFields) FP_SavedFields.Item(FP_arFields(FP_idx)) = FP_arValues(FP_idx) next Session("FP_SavedFields") = "" Session("FP_SavedValues") = "" end if Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") End Sub Sub FP_ConfirmField(sField) On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 sOut = FP_SavedFields(sField) sOut = Replace(sOut,"&","^^@^^") sOut = Server.HTMLEncode(sOut) sOut = Replace(sOut,"^^@^^","&") Response.Write sOut Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") End Sub %><%FP_ConfirmField("T1")%> <%FP_ConfirmField("T2")%>,
Thank you for sending us your information. If you have any question, feel free to contact us. This form will be used by us for the following information:
E-mail: <%FP_ConfirmField("T4")%>
If any of this information is incorrect, please go back to the feedback form and change it. We thank you for taking the time to donate with us.
Sincerely,
Manager