<%@ LANGUAGE="VBScript" %>

<%
'- Customization of these values is required. -----------

smtpServer = "exchange.unco.edu" 'this is the email server that will be sending the message
fromAddr = "Someone@unco.edu" 'this is an email address for the "From:" line, unless the form provides one
recipient = "michael.adams@unco.edu" 'add all recipients here separated by a comma
formtitle = "Form For Testing" & vbCrLf 'This is the first line of the email body message
subject = "An inquiry about Basketweaving" 'set this to what the subject line of the email should be
pagetitle = "Submit interest form to CPDO" 'set this to the page title

'- End customization section. -------------------------------------

Response.Buffer = true
'Build the email note and send it.

body = formtitle
for each name in Request.Form
   if Request.Form(name) <> "Submit" then
      if name = "email" then
        fromAddr = Request.Form(name)
      end if
      body = body _
      & name & ": " _
      & Request.Form(name) & vbCrLf
   end if
next
body = body & vbCrLf

'Send it.
Dim objMessage ' As CDO.Message
Set objMessage = Server.CreateObject("CDO.Message")
With objMessage
   .To = recipient
   .From = fromAddr
   .Subject = subject
   .TextBody = body
   .Send
End With

Set objMessage = Nothing

%>