<% 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 = "" %> <% 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 %> Rush University College of Nursing CAM Education Program

Meet the Team Educational




There is in all visible things... a hidden wholeness.
                                                                  -- Thomas Merton

Cranes have been long revered by many cultures. For example, in Japan, cranes --especially 1000 of them-- are a symbol of hope. In North America, the Whooping Crane is gradually making its way back from extinction. These birds, which nest north of Alberta, have only one flyway to Texas in the winter. To create a second flyway, some scientists put Whooper eggs in Sandhill Cranes' nests in Montana. While the Whoopers hatched and followed the Sandhills south, when it came to mating time, the Whooper population failed to reproduce. They never learned their own language nor could they understand that of the Sandhills.

The story of the Whooping Crane provides us with two messages to ponder concerning complementary and conventional therapies. First, communication is critical. You can place complementary and conventional therapies under one roof, but this arrangement will not bear fruit without good communication. Second, placement of Whooper eggs in Sandhill nests was carried out not to intermingle genes, but rather to create a second pathway to an end. Is it not possible that by integrating complementary and conventional approaches, we can create a new "flyway"

-- contributed by Dr. Louise Horstman


 CAM Home | Site Map | College of Nursing | Rush Home Page | About the Crane | Contact Us

2001- 2003 Rush University College of Nursing