39th Annual Geoscience Forum

Registration Form

Delegates (PDF)

Discounts

Accommodation

Travel

<% mode = Request.querystring("mode") %>

Email Geoscience Forum site to a friend!

<% Select Case mode Case "" on error resume next if Trim(Session("form_key")) = "" or Session(Session("form_key")) = "yes" then Session("form_key") = RandomString(10) Session(Session("form_key")) = "no" Session("human_verified") = "no" end if on error goto 0 %>

Note: The email addresses you enter are not saved for other purposes, but are used only to send this email.

<% Case "sendemail" if Session("human_verified") <> "yes" then 'check captcha here if recaptcha_confirm(private_rkey,Request.form("recaptcha_challenge_field"), Request.Form("recaptcha_response_field")) <> "" then %>

Your answer of the verification question is not correct, please click "back" button in your browser and try again.

<% response.End() else Session("human_verified") = "yes" end if end if '@todo: add validation here strBody = Request.form("txtYourName") & " (" & Request.form("txtYourEmail") & ") thought you would be interested in viewing the following site: http://www.miningnorth.com/geoscienceforum" & vbCrlf & vbCRlf & "The Yellowknife Geoscience Forum is the largest annual convention North of 60. It brings together geologists, geophysicists, mine engineers, prospectors, and others working in exploration and development." strBody = strBody & vbCRlf & vbCRlf & Request.form("txtComments") IF Request.form("txtYourEmail") <> "" THEN varSender = Request.form("txtYourEmail") ELSE varSender = "nwtmines@ssimicro.com" END IF if DebugMode then strTo = "test@outcrop.com" addemail2 = "test@outcrop.com" else strTo = Request.form("txtEmail1") addemail2 = Request.form("txtEmail2") end if 'Time to send the email Dim Mailer Set Mailer = Server.CreateObject("jmail.smtpmail") Mailer.AddRecipient(strTo) Mailer.AddRecipientBCC(addemail2) Mailer.Sender = varSender Mailer.Subject = "A link for the " & year(Now) & " Geoscience Forum" Mailer.Body = strBody Mailer.Execute() Set Mailer = Nothing Response.write "The Geoscience Forum link has been emailed to the friends you have listed." '################### Session("human_verified") = "no" Session(request.Form("form_key")) = "yes" End Select %>