<%
' **********************************************************
' メール送信
' **********************************************************
Function SendMail( )

	Dim Basp

	Set Basp = Server.CreateObject( "Basp21" )

	ErrMessage = Basp.SendMail( _
		SMTPServer, _
		MyData( "In1To" ), _
		MyData( "In1From" ), _
		MyData( "In1Subject" ), _
		MyData( "In1Body" ), _
		"" _
	)

	Set Basp = Nothing

End Function

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


End Function

%>