Dear <% 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 Session.LCID = 1033 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 Session.LCID = 1033 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("T22")%><%FP_ConfirmField("T23")%>,
Thank you for sending us your information:
E-mail: <%FP_ConfirmField("T24")%>
Birthday: <%FP_ConfirmField("D4")%>/<%FP_ConfirmField("D5")%>/<%FP_ConfirmField("D6")%>
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 help us be a better company.
Sincerely,
Manager, Customer Services