อยากให้เลือก Purpose แสดงข้อมูลใน PurposeSpecifics และเลือกPurposeSpecifics แสดงราคาในช่อง Price อัตโนมัติค่ะ

<%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%>
<!--#include file="../Connections/pdsweb_bkk.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
   <input name="btnPrice" type="button" id="btnPrice" onClick="windowcenter('../apps/patientprice.asp<%= "?AID=" & AID & "&PatientID=" & PatientID & "&Fullname=" & Fullname & "&Lang=t" %>', 800, 600)" value="Price Form TH" class="form_button">
   <input name="btnPriceEN" type="button" id="btnPriceEN" onClick="windowcenter('../apps/patientpriceEN.asp<%= "?AID=" & AID & "&PatientID=" & PatientID & "&Fullname=" & Fullname & "&Lang=t" %>', 800, 600)" value="Price Form EN" class="form_button">		
   <input name="btnClose" type="button" class="form_button" onClick="closeapp('Confirm to close ?<Y/N>');" value="Quit"></td>
      </tr>
    </table>
	</td></tr>
	</table>
	<input name="Fullname" type="hidden" value="<%=Fullname%>">
	<input name="PID" type="hidden" value="<%=PatientID%>">
	<input name="AID" type="hidden" value="<%=AID%>">
	<input name="URLs" type="hidden" value="<%=URL%>">
	<input name="AppointmentDate" type="hidden" value="">
	<input name="PhysicianID" type="hidden" value="">
    <input name="DateMade" type="hidden"  value="<%=DoDateTime(Date(), 2, 1033)%>">
        <input name="Time" type="hidden"  value="<%=Time()%>">
 </td>
  </tr>
</table>

</body>
</html>
<%
rstPricePrint.Close()
Set rstPricePrint = Nothing
%>