Contact Us

<% 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 %>

About Us

::

::

::

::

:: Contact Us

Please select a file type:
Microsoft Excel for Office XP Microsoft Excel for Windows '95, '97, or 2002