%@language="VBScript"%> <% Response.Buffer = true %> <%response.expires=0%> <% success1 = "N" success2 = "N" msubmit = Request.Form("Submit") if ( msubmit = "Submit" ) then group=request("group") arrgroup=split(group,",") for i=lbound(arrgroup) to ubound(arrgroup) ' dim mymail 'as object set mymail = server.CreateObject("CDONTS.NewMail") mymail.To = "yazdi@on-lyne.com" mymail.cc = "" mymail.bcc= "webteam@on-lyne.com" if not ( Request.Form("email") = "" ) then mymail.From = Request.Form("email") else mymail.From = request.form("fname") end if if not ( Request.Form("fname") = "" ) then mymail.Subject = "Please subscribe me for the "&arrgroup(i)&" - " & ucase(Request.Form("fname")) else mymail.Subject = "Please subscribe me for the "&arrgroup(i) end if mbody = "" mbody="
" mbody=mbody&"
" end if if not ( arrgroup(i) = "" ) then mbody = mbody & "Group : " & arrgroup(i) & " " end if if not ( Request.Form("sub") = "" ) then mbody = mbody & "Subscribe/Unsubscribe : " & Request.Form("sub") & " " end if if not ( Request.Form("email") = "" ) then mbody = mbody & "E-Mail : " & Request.Form("email") & " " end if mbody=mbody&" |