I フレーム参照

通常のフレーム問合せを使用

IFRAME 用に変更するのは、model.inc の問合せ表示部作成部分と、view2.inc の親フレームへのデータ転送部分です

I フレーム側の model.inc

<%
' **********************************************************
' データ読出し
' **********************************************************
Function GetData( )

	Query = "select * from 商品分類マスタ"

	if MyData("In1Meisyo") <> "" then
		Query = Query & " where 名称 like '%" & MyData("In1Meisyo") & "%'"
	end if

	Call DBGet( Cn, Rs, Query, false )

	Do While not Rs.EOF
		Call EditQueryData( )
		Rs.MoveNext
	Loop

End Function

' **********************************************************
' データベースデータの編集
' **********************************************************
Function EditQueryData(  )

	OutData = OutData & "<TR>" & vbCrLf

	OutData = OutData & "   <TD class=MyCell>"
	OutData = OutData &  Rs.Fields("商品分類").Value
	OutData = OutData & "</TD>"

	OutData = OutData & "<TD class=MyCell>"
	OutData = OutData & "<SPAN style="
	OutData = OutData & "'text-decoration:underline;color:blue;cursor:hand'"
	OutData = OutData & " onClick='Call SetData("""
	OutData = OutData &  Rs.Fields("商品分類").Value
	OutData = OutData & ""","""
	OutData = OutData &  Rs.Fields("名称").Value
	OutData = OutData & """)'"
	OutData = OutData & ">"
	OutData = OutData &  Rs.Fields("名称").Value
	OutData = OutData & "</SPAN></TD>" & vbCrLf

	OutData = OutData & "</TR>" & vbCrLf

End Function

' **********************************************************
' VIEW の編集
' **********************************************************
Function EditDataHead( )


End Function

' **********************************************************
' VIEW2 の編集
' **********************************************************
Function EditDataBody( )


End Function

%>

I フレーム側の view2.inc

<SCRIPT language=VBScript>

' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()

	frmMain_onSubmit = true

end function

' **********************************************************
' 親フレームへデータ転送
' **********************************************************
function SetData( strCode, strName )

	parent.parent.document.all("In2Sbun").value = strCode
	parent.parent.document.all("In2SbunName").value = strName

end function

</SCRIPT>

<HTML>
<HEAD>
	<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
	<TITLE>ASP 雛形</TITLE>
<STYLE>
	.MyHead {
		background-color:silver
	}
	.MyCell {
		background-color:white
	}
</STYLE>
</HEAD>

<!-- *******************************************************
 ドキュメント
******************************************************** -->
<BODY>
<%= ErrMessage %>

<!-- *******************************************************
 フォーム
******************************************************** -->
<FORM
	name=frmMain
	method=GET
	action=control.php
>

<!-- *******************************************************
 画面定義
******************************************************** -->
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TH class=MyHead>商品分類</TH>
<TH class=MyHead>名称</TH>
<%= OutData %>
</TABLE>

<!-- *******************************************************
 画面番号
******************************************************** -->
<INPUT type=hidden name=GNO value="<%= PASS_BODY %>">

<!-- *******************************************************
 HEAD 部の入力データ引継ぎ用の埋め込み
******************************************************** -->
<%= InData %>
</FORM>

</BODY>
</HTML>