メール送信

view.inc

<SCRIPT language=VBScript>

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

	frmMain_onSubmit = true

end function

</SCRIPT>


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

<FORM
	name=frmMain
	method=GET
	action=control.asp
	target=BodyFrame
>
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TR>
	<TD class=MyCell>宛先</TD>
	<TD class=MyCell>
		<INPUT
			type=text
			name=In1To
			size=80
			value="<%= MyData("In1To") %>"
		>
	</TD>
</TR>
<TR>
	<TD class=MyCell>送信元</TD>
	<TD class=MyCell>
		<INPUT
			type=text
			name=In1From
			size=80
			value="<%= MyData("In1From") %>"
		>
	</TD>
</TR>
<TR>
	<TD class=MyCell>件名</TD>
	<TD class=MyCell>
		<INPUT
			type=text
			name=In1Subject
			size=80
			value="<%= MyData("In1Subject") %>"
		>
	</TD>
</TR>
<TR>
	<TD class=MyCell>本文</TD>
	<TD class=MyCell>
		<TEXTAREA
			name=In1Body
			cols=80
			rows=10
		><%= MyData("In1Body") %></TEXTAREA>
	</TD>
</TR>
<TR>
	<TD class=MyCell>
		<INPUT type=submit name=send value="送信">
	</TD>
	<TD class=MyCell>
		<INPUT 
			type=button
			value="Cancel"
			onClick='top.location="frame.htm"'
		>
	</TD>
</TR>
</TABLE>

<INPUT type=hidden name=GNO value="<%= PASS_COND %>">
</FORM>

</BODY>
</HTML>

viewmessage.inc

<HTML>
<HEAD>
	<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
	<TITLE>メッセージ表示専用</TITLE>
<STYLE>
	.MyCell {
		background-color:silver
	}
</STYLE>
</HEAD>
<BODY>
<SPAN style='color:blue;font-weight:bold;font-size:20'><%= ErrMessage %></SPAN>
<SPAN style='color:black;font-weight:bold'><%= Message %></SPAN>
</BODY>
</HTML>