Back to InfoStuff

By now, the user would have created a string like 0001010001 and has been sent back to infostuff.asp. Now we need to sort out this string -

If Len(Session("pers")) Then Dim pers Dim ind Dim sto Dim tod Dim tec Dim sci pers = Session("pers") ind = Mid(pers, 1, 2) sto = Mid(pers, 3, 2) tod = Mid(pers, 5, 2) tec = Mid(pers, 7, 2) sci = Mid(pers, 9, 2) 'more to come

This checks to see if the personalization string is there and then chops it up into the individual parts that were assigned earlier.
Next we need to call the appropriate subs, depending on what the user chose to display -

Call page_top If ind = "01" Then Call page_in End If If sto = "01" Then Call page_st End If Call page_inner If tod = "01" Then Call Page_to End If If tec = "01" Then Call page_te End If If sci = "01" Then Call page_sc End If Call page_end

So - If the user chose to view only Technology and Stocks, then the string would look like - 0001000100. Then when it is broken up, only stocks and technology are 01 (the rest are 00). Then these if statements would only call page_top (always there), page_st (stocks), page_inner (always there), page_te (technology) and page_end (always there).

Else Call page_top Call page_in Call page_st Call page_inner Call Page_to Call page_te Call page_sc Call page_end End If

And if they haven't personalized, then the normal page is displayed.