<% Call subMain() Sub subMain() Dim objQuery Dim inter_cd Dim pFlag '//Create Objects Set objQuery = GetDBConn() inter_cd = Trim(Request("inter_cd")) pFlag = Trim(Request("pFlag")) '//Print Java Script CALL subWriteJAVAScript() '//Print List CALL subPagePrint(objQuery, inter_cd, pFlag) Call CloseDBConn(objQuery) End Sub Sub subWriteJAVAScript() %> <% End Sub Sub subPagePrint(byRef objQuery, byVal inter_cd, byVal pFlag) Dim arrCD arrCD = funcGetInterCD(objQuery, inter_cd) IF isArray(arrCD) Then %> <%'==========================================================================================================================================%>

Validate Internal Code Result Internal Code [ <%=inter_cd%> ] is already using on database.   Check  <%'======================================================================%>

<%Else %>

Validate Internal Code Result Internal Code [ <%=inter_cd%> ] is available code.   Check  <%'======================================================================%>

<% End IF End Sub %> <% Function funcGetInterCD(byRef objQuery, byVal inter_cd) Dim strQuery strQuery = " SELECT inter_cd " &_ " FROM E_Product " &_ " WHERE (inter_cd = '"&inter_cd&"') " funcGetInterCD = arrGetDBResult(objQuery, strQuery) End Function %>