% option explicit %> <% 'This file includes the server constants to send mail 'Change this constant to the server that you want all SMTP mail relayed from CONST MailServer = "144.74.115.27" %> <% dim Mailer, Subject, BodyText, FromName, FromAddress, SucceedRedirect, FailRedirect, i, Recipients 'Change the following url when you succeed 'SucceedRedirect = "/okpagefeedback.html" 'Change the following url when you fail 'Failredirect = "/errorpagefeedback.html" 'Change the following lines for the address that the mail is sent from FromName = "rushu.rush.edu" FromAddress = "bonnie_hammel@rush.edu" 'Change the following line for the target recipients Recipients = array("bonnie_hammel@rush.edu") 'Set the Subject of the message Subject = "Rush Quick Survey" 'Build the body of the mail message BodyText = "" BodyText = BodyText & "Questions and Comments" & vbCrLf BodyText = BodyText & "Questions and Comments" & vbCrLf BodyText = BodyText & "Name : " & trim(request.form("name")) & vbCrLf BodyText = BodyText & "Email : " & trim(request.form("email")) & vbCrLf BodyText = BodyText & "Questions : " & trim(request.form("questions_comments")) & vbCrLf BodyText = BodyText & vbCrLf & vbCrLf BodyText = BodyText & "--------------- Email Diagnostics ---------------" & vbCrLf & vbCrLf BodyText = BodyText & "REMOTE_ADDR : " & request.serverVariables("REMOTE_ADDR") & vbCrLf BodyText = BodyText & "SCRIPT_NAME : " & request.serverVariables("SCRIPT_NAME") & vbCrLf BodyText = BodyText & "SERVER_NAME : " & request.serverVariables("SERVER_NAME") & vbCrLf BodyText = BodyText & "HTTP_USER_AGENT : " & request.serverVariables("HTTP_USER_AGENT") & vbCrLf BodyText = BodyText & "HTTP_COOKIE : " & request.serverVariables("HTTP_COOKIE") & vbCrLf BodyText = BodyText & vbCrLf BodyText = BodyText & "--------------- Email Diagnostics ---------------" & vbCrLf & vbCrLf 'Send the mail - Do not change anything after this line. To make any changes to the mail, use the variables at the top of the page. Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = FromName Mailer.FromAddress= FromAddress Mailer.RemoteHost = MailServer for i = lbound(Recipients) to ubound(Recipients) Mailer.AddRecipient Recipients(i), Recipients(i) next Mailer.Subject = Subject Mailer.BodyText = BodyText if Mailer.SendMail then response.redirect SucceedRedirect else response.redirect FailRedirect end if %>
|
|
|
|
|
|
|
|
![]() STORY OF THE CRANE SYMBOL
There is in all visible things... a hidden wholeness. |
|
|
CAM Home | Site
Map | College of Nursing |
Rush Home Page | About
the Crane | Contact Us
|
2001- 2003 © Rush University College of Nursing |
|
|