嘗試發送郵件，但是失敗了，請修改錯誤後重試！
＜script language="javascript"＞
alert("您輸入的收件組格式錯誤！正確的格式是:'gr:001'");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
thegroup=(mid(trim(strfieldvalue),4))
end if
end if
tmpSQL="select * from t_group where owner='"&session("myid")&"' and groupidowner='"&thegroup&"'"
'response.write tmpsql
set tmprs=server.CreateObject("ADODB.Recordset")
tmprs.Open tmpsql,conn
if tmprs.bof or tmprs.eof then
'沒有找到該組
%＞
嘗試發送郵件，但是失敗了，請修改錯誤後重試！
＜script language="javascript"＞
alert("您輸入的收件組＜%=thegroup%＞沒有找到！");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
if tmprs("personnum")=0 then
'組內沒有使用者
%＞
嘗試發送郵件，但是失敗了，請修改錯誤後重試！
＜script language="javascript"＞
alert("您輸入的收件組＜%=thegroup%＞中目前沒有任何的使用者所以不能發送");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
strFieldValue=trim(tmprs("groupempl"))
tmprs.close
set tmprs=nothing
end if
end if
end if
if instr(strfieldValue,"|") then
'組發
allsearch=replace(trim(strfieldValue),"|","','")
allsearch="'"&allsearch&"'"
tmpstring=trim(strfieldValue)&"|"
tosearch=""
do while len(tmpstring)＞=5
tosearch=left(tmpstring,5)
tmpstring=mid(tmpstring,7)
if instr(tosearch,"|") then
'格式錯誤
%＞
嘗試發送郵件，但是失敗了，請修改錯誤後重試！
＜script language="javascript"＞
alert("您輸入的收件者格式錯誤!");
history.back();
＜/script＞
＜p＞
＜%
response.end
end if
tmpSQL="select * from (select userid from t_officer where userid in ("&allsearch&")) DERIVEDTBL where userid='"&tosearch&"'"
