| |
<HTML><BODY>
<%
Dim Basp21
Dim Msg
Dim svname
Dim mailto
Dim mailfrom
Dim subj
Dim body
Dim files
Set Basp21 = Server.CreateObject( "Basp21" )
svname = "mail.xxxxx.com"
mailto = "lightbox@nifty.com"
mailfrom = "xxxxxx@xxxxx.com"
subj = "ASPによる認証無しの送信"
body = "本文"
files = ""
Msg = Basp21.SendMail( svname, mailto, mailfrom, subj, body, files )
Response.Write Msg & "<BR>"
%>
</BODY></HTML>
| |
