<% yourname = Replace(request.form("yourname"),"'","''") yourtitle = Replace(request.form("yourtitle"),"'","''") phone = Replace(request.form("phone"),"'","''") fax = Replace(request.form("fax"),"'","''") email = Replace(request.form("email"),"'","''") address = Replace(request.form("address"),"'","''") comments = Replace(request.form("comments"),"'","''") emailbody = "Name: " & yourname & VbCrLf emailbody = emailbody & "Title: " & yourtitle & VbCrLf emailbody = emailbody & "Phone: " & phone & VbCrLf emailbody = emailbody & "Fax: " & fax & VbCrLf emailbody = emailbody & "Address: " & address & VbCrLf emailbody = emailbody & "Comments: " & comments & VbCrLf Dim objMail set objMail = CreateObject("CDO.Message") Set objConfig = CreateObject("CDO.Configuration") objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort 'objConfig.Fields(cdoSMTPServer) = "medhub.medctr.ucla.edu" objConfig.Fields(cdoSMTPServer) = "smtp.ucla.edu" objConfig.Fields(cdoSMTPServerPort) = 25 objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic objConfig.Fields.Update Set objMail.Configuration = objConfig objMail.From = email 'objMail.To = "zgu@mednet.ucla.edu" objMail.To = "rahmananna@yahoo.com" objMail.Subject = "Message from a Borun Center user." objMail.TextBody = emailbody objMail.Send Set objMail = Nothing %>

Incontinence management :: This Module :: Objectives :: Overview :: Step 1 :: Step 2 :: Step 3 :: Step 4 :: Quiz :: Forms :: Data Entry Form :: FAQs :: Related Studies :: Links :: Discussion Board

To run the prompted voiding data management program, your computer must have Excel for MS Office XP, '95, '97, or 2002. However, no previous experience with using Excel is required. Please select a file type: Microsoft Excel for Office XP Microsoft Excel for Windows '95, '97, or 2002

© 2004-2005  www.geronet.ucla.edu  All rights reserved.