<% OPTION EXPLICIT Response.Buffer = true Response.expires= -1 %> <% '-- Execute authentication process If g_sProcess="do_authentication_login" then 'if Do_Authentication_Login() then ' Response.Redirect g_sUrl 'end if ElseIf g_sProcess="do_authentication_email" then Call Do_Authentication_email() ElseIf g_sProcess="do_the_commentonnovica" then Call do_the_commentonnovica() ElseIf g_sProcess="do_update_user" then Call do_update_user() ElseIf g_sProcess="do_update_userprofile" then Call do_update_userprofile() elseif g_sProcess="do_insertupdate_mestodostave" then Call do_insertupdate_mestodostave() ElseIf g_sProcess="waction_change" then Call do_change_numOfItemsInCart() ElseIf g_sProcess="waction_deleteone" then Call do_delete_one() Elseif g_sProcess="natisni_pdf" then Call webform_create_pdf() ElseIf g_sProcess="waction_deleteall" then Call Do_Delete_Itemsincart() ElseIf g_sProcess="do_authentication_registerfizicne" then Call Do_Authentication_RegisterFizicne() ElseIf g_sProcess="do_authentication_registerpodjetja" then Call Do_Authentication_RegisterPodjetja() ElseIf g_sProcess="do_authentication_update" and g_oUser.Group<>"IT" then Call do_authentication_update() ElseIf g_sProcess="do_authentication_logoff" then Call do_authentication_logoff() Response.Redirect g_sUrl End If '-- Current webpage render Dim oPage Set oPage = new CPage oPage.Display Set oPage = Nothing %>