post - href リンクから POST を呼び出す VBScript

Question

私たちのオフィス チームは、VBScript を使用して従来の ASP アプリケーションを維持および開発しています。

リンクの作成を伴う技術的なタスクに遭遇しました。リンクがクリックされたときに、ASP ページで POST を呼び出す必要があります。

POST は、ASP 内のリンクによって間接的に呼び出される必要があります。

最終的に POST を呼び出す VBSCript サブルーチンを呼び出す ASP ページ内の VBScript コードとリンクを次に示します。

 <%dim whereFrom
 whereFrom = "RevSummary"
 dim critiqueID
 critiqueID = 389
 dim orignalCritiqueID
 orignalCritiqueID = 249
 %>


 <a href="#" onclick="<%=vbscript:showCritiqueDetailsInvocation( whereFrom, critiqueID, orignalCritiqueID )%>" class="TenPtList" target="_blank">
                            <font color="blue">
                               Critique Details
                            </font>
                            </a>

 <%
 Sub ShowCritiqueDetails(WhereFromArg, CritiqueIDArg, OrignalCritiqueIDArg )
dim DataToSend : DataToSend = "WhereFrom=" + WhereFromArg + "&CritID=" + CritiqueIDArg + "&OriginalCritID=" + OrignalCritiqueIDArg
dim servXmlHttp
dim urlOfInterest : urlOfInterest = Application("RAMSREVURL") + "CritiqueDetailsPopup.asp"
set servXmlHttp = server.Createobject("MSXML2.ServerXMLHTTP")
servXmlHttp.Open "POST", urlOfInterest ,false
servXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
servXmlHttp.send DataToSend
Set servXmlHttp = nothing
End Sub
 %>

最終的に必要な要件は、POST を呼び出してから、CritiqueDetailsPopup.asp というページに移動することです。

上記は近づくでしょうか？また、上記のアプローチは良いプログラミング方法ですか?