<%
redirectpage = "http://www.icce.org" %>
<%
function fieldval(byref field)
if dbopen then
fieldval = rs.fields(field).value
else
fieldval = ""
end if
end function
sub sendemail(byref bodytext)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Form"
Mailer.FromAddress = "info@ieee.org"
Mailer.RemoteHost = "mail.zaks.com"
' Add recipient
mailer.addrecipient "ICCE-EMAIL", "iccesubmission@icce.org"
Mailer.Subject = "Email List Submission"
Mailer.BodyText = bodytext
On Error resume next
Mailer.SendMail
if Err <> 0 then
response.write "Could not send mail
"
Response.Write "Error encountered: " + Err.Description + "(" + cstr(Err) + ")
"
end if
end sub
%>
<% if msg <> "" then %>
<%=msg%>
<% end if %>
