<% ' ' ' %> <% main() Sub main() Dim MailCD Dim TorihikisakiCD, Sakuseibi, Kenmei, Naiyo Dim AtesakiCD Dim Query, Content Dim RouteType RouteType = Request("RouteType") '############################################### 1.データの引継ぎ 'ヘッダ部 TorihikisakiCD = Request("TorihikisakiCD") Sakuseibi = Request("Sakuseibi") Kenmei = Request("Kenmei") Naiyo = Request("Naiyo") Naiyo = Replace(Naiyo, vbCrLf, "
") TorihikisakiCD = Replace(TorihikisakiCD, ", ", ",") Dim tmps tmps = Split(TorihikisakiCD, ",") Dim i For i = 0 To UBound(tmps) AtesakiCD = tmps(i) Query = "exec SPNメール作成" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & AtesakiCD & "'" '会社CD Query = Query & ",''" Query = Query & ",'" & Sakuseibi & "'" '作成日 Query = Query & ",'R'" '送受信フラグ Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'" & TorihikisakiCD & "'" '表示用宛先CD Query = Query & ",'" & Kenmei & "'" '件名 Query = Query & ",'" & Naiyo & "'" '内容 Query = Query & ",'" & GakuseiNo & "'" '学生番号 Set Content = OpenQuery(Query) Next Query = "exec SPNメール作成" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",''" Query = Query & ",'" & Sakuseibi & "'" '作成日 Query = Query & ",'S'" '送受信フラグ Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'" & TorihikisakiCD & "'" '表示用宛先CD Query = Query & ",'" & Kenmei & "'" '件名 Query = Query & ",'" & Naiyo & "'" '内容 Query = Query & ",'" & GakuseiNo & "'" '学生番号 Set Content = OpenQuery(Query) '############################################### ?.ストアドプロシージャ-実行 While Not Content Is Nothing If Content.Fields.Count > 0 Then MailCD = Content.Fields(0) End If Set Content = Content.NextRecordset Wend '############################################### 4.更新データをビューで表示 Response.Redirect("fn_mailsakusei_view.asp?mailCD=" & MailCD & "&RouteType=" & RouteType) End Sub %>