Your Virtual Vacation

[ Home | Contents | Search | Post ]


CONFIRMATION

Your article, titled <% 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("Subject")%>, has been submitted to the discussion group Your Virtual Vacation.

If you return to the contents page and refresh it you should see your new article appear in the list.


Last changed: 01/26/05