| |
<%
if request.form("subject")="" then
%>
Tell us what you think about our web site, our courses, our
organization, etc. We welcome all of your comments and
suggestions.
<% else %>
<%
area = Request.QueryString("area")
if area="AB" then title="IUPUI Community Learning Network"
if area="CS" then title="CLN: Continuing Studies"
if area="GS" then title="CLN: General Studies"
if area="WC" then title="CLN: Weekend College"
if area="BT" then title="CLN: Business Training"
if area="CO" then title="CLN: Community Outreach"
if area="DE" then title="CLN: Distance Education"
if area="CB" then title="CLN: Community and Business Outreach"
Set objNewMail = Server.CreateObject("CDO.Message")
if Request.Form("email") = "" OR Request.Form("email") = NULL then
mailfrom = "user@domain.edu"
else
mailfrom = Request.Form("email")
end if
objNewMail.To = Request.Form("recipient")
mailsubject = "Comments - " & Request.Form("realname") & vbCRLF
mailbody = title & " Comments" & vbCRLF & vbCRLF
mailbody = mailbody & Request.Form("realname") & vbCRLF
mailbody = mailbody & "Contact Requested? " & Request.Form("contact_requested") & vbCRLF & vbCRLF
mailbody = mailbody & "Phone: " & Request.Form("telephone") & vbCRLF
mailbody = mailbody & "Address: " & Request.Form("address") & vbCRLF
mailbody = mailbody & "City: " & Request.Form("city") & vbCRLF
mailbody = mailbody & "State: " & Request.Form("state") & vbCRLF
mailbody = mailbody & "Zip: " & Request.Form("zip") & vbCRLF & vbCRLF
mailbody = mailbody & "Email: " & Request.Form("email") & vbCRLF & vbCRLF
mailbody = mailbody & "Comments:" & vbCRLF
mailbody = mailbody & Request.Form("comments") & vbCRLF & vbCRLF
objNewMail.From = mailfrom
objNewMail.Subject = mailsubject
objNewMail.TextBody = mailbody
objNewMail.Send
Set objNewMail = Nothing
%>
|
Your information has been
submitted. Thank you for filling out our Comments & Questions form.
|
<% if request.querystring("noshow")=1 then %>
<% end if %>
<% for x=1 to 1000: response.write " ": next %>
<% end if %>
|
|
