<% function email(strTo, strFrom, strSubject, strBody, lHTMLMail) Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = strFrom objMail.Subject = strSubject 'you need TO add these lines FOR the mail 'to be sent in HTML format objMail.BodyFormat = lHTMLMail objMail.MailFormat = 0 objMail.To = strTo objMail.Body = strBody 'on error resume next objMail.Send 'echo "

This server is not configured for CDONT mailer

" set objMail = nothing end function function doAttendcount(Item) if clng(getvar("attendcount")) = clng(Item) then doAttendcount = " SELECTED " end if end function function doSelectObj(selectname,lcur) if clng(getvar(selectname)) = clng(lCur) then doSelectObj = " SELECTED " end if end function function doSelect(item) if lcase(getvar(item)) = "on" then doSelect = " CHECKED " end if end function public function GetVar(vntVar) if Request.Form(vntVar) = vbnullstring then GetVar = Request.QueryString(vntVar) else GetVar = Request.Form(vntvar) end if end function public function writeform() dim formitem for each formitem in Request.Form Response.Write(formitem & " : " & Request.Form(formitem) & "
") next end function Function ReadAllTextFile(sFilename) Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(sFilename, ForReading) ReadAllTextFile = f.ReadAll End Function %> <% select case lcase(Request.QueryString("action")) case "sendemail" 'writeform sEmail = ReadAllTextFile(server.MapPath(getvar("emailtemplate"))) 'do the substitution for each Item in Request.Form sEmail = replace(sEmail,"#"&lcase(item)&"#",Request.Form(item)) next for a = 1 to clng(getvar("attendcount")) sAttend = sAttend & ""&getvar("attfname_" & a) & ""&getvar("attlname_" & a) & ""&getvar("atttitle_" & a) & ""&getvar("attemail_" & a) & "" next sEmail = replace(sEmail,"#attend#",""&sAttend&"
") email getvaR("emailto"),getvaR("emailto"),getvar("subject"),sEmail,0 Response.Redirect getvar("donepage") end select %> Human Resource Systems Group - Workshops
<% if getvar("attendcount") = vbnullstring then cnt = 1 else cnt = getvar("attendcount") end if for plCnt = 1 to cnt %>"><% %>"><% %>"><% %>"><% next %>
Upper_banner.jpg (15704 bytes)
registration.jpg (8792 bytes)
 

Workshop Registration Form

Thank You for registering for an HRSG workshop. A receipt for this registration will be sent via e-mail.

Approximately one week prior to the workshop you will receive a second message confirming the workshop's date, time and location.

(* indicates mandatory fields)

<% if getvar("attendcount") = vbnullstring then addone = 1 else addone = clng( getvar("attendcount")) end if for plCnt = 1 to addone %> <% next %>
Organization Name* ">
Contact Phone Number* ">
Department (if applicable) ">
Billing Address 1* ">
Billing Address 2 ">
City* ">
Province*   ">
Postal Code* ">
# of Attendees
Attendee # <%=plCnt %>
Attendee's First Name*  ">
Attendee's Last Name* ">
Attendee's Title                  ">
Attendee's E-mail* ">
Worshop Title*
Workshop Date*
(mm/dd/yyyy)		 ">
Method of Payment* ">
Billing Address          
(if different from above)		 ">
Attention to:              
(if invoice is required)		 ">
How did you hear about this workshop?
 

Check here if you would like to hear about other HRSG workshops,services and research >

       

 

Bottom_bar.jpg (27192 bytes)