<%
function mokuai_sms(smslei,smsjj,smstel,smsbody,code1,code2,code3,mdd) 
set rssms=server.CreateObject("adodb.recordset")

	if code1="" then code1="-"
	if code2="" then code2="-"
	if code3="" then code3="-"
	if mdd="" then mdd=" "
	
	rssms.open "select * from smsmb where smsmgid='"&smslei&"'" ,conn,1,1
	if not(rssms.bof and rssms.eof) then
	
	conn.Execute("Insert Into mailto(mbid,mfs,mlei,mto,mcon,code1,code2,code3,mdd) values('"&trim(rssms("smsmbikmid"))&"','1','"&smsjj&"','"&smstel&"','"&smsbody&"','"&code1&"','"&code2&"','"&code3&"','"&mdd&"')")
	mokuai_sms="ok"

	else
	mokuai_sms="no"
	end if
	rssms.close


End Function 
%>