<% if request("action") = "send" then 'on error resume next Set objMailer = Server.CreateObject("Dundas.Mailer") objMailer.TOs.Add "info@tourismemanicouagan.com" objMailer.FromName = request("courriel") objMailer.FromAddress = request("Courriel") objMailer.SMTPRelayServers.Add "smtp.oricom.ca" objMailer.Subject = "Courriel en provenance du site Web - Site Anglophone" strBody = strBody & "Courriel : " & request("courriel") & vbcrlf strBody = "De : " & request("titre") & " " & request("prenom") & " " & request("nom") & vbcrlf strBody = strBody & "Courriel : " & request("courriel") & vbcrlf strBody = strBody & "Adresse : " & request("adresse") & vbcrlf strBody = strBody & "Ville : " & request("ville") & vbcrlf strBody = strBody & "Code postal : " & request("codepostal") & vbcrlf & vbcrlf strBody = strBody & "Province : " & request("province") & vbcrlf & vbcrlf strBody = strBody & "Documentation demandée : " & request("documents") & vbcrlf if request("autres") <> "" then strBody = strBody & "Autres : " & request("autres") end if objMailer.Body = strBody objMailer.SendMail if err.number <> 0 then strMsg = err.description else strMsg = "Your message have been sent.
Thanks !" end if else strMsg = "" end if %>
<% if strMsg <> "" then response.write strMsg else %>
Here is the documentation actually available at the Tourism Association of Manicouagan :
THE OFFICIAL TOURIST GUIDE 2009 - 2010
To visualise or to print the Tourist guide in its integrality (PDF 13,9 Mo)
Choose the first or the second part of the Tourist guide to visualise or to print it
First part of Tourist guide (PDF 5,7 Mo)
Second part of the Tourist guide (PDF 8,9 Mo)
Choose one of the table below to visualise it or to print it
Events (PDF 192 Ko)
Cruises and Excursions (PDF 692 Ko)
Hunting and Fishing (PDF 1.19 Mo)
Restaurants and Lodging (PDF 1,18 Mo)
Museums and Interpretation Centres (PDF 753 Ko)
Here check off the one(s) you would like to receive. The Tourist guide or the snowmobile trails map. If the document you want does not appear on the list, please specify it.
<% Set rs = objDataConn.execute("SELECT strDocumentsAN FROM atrCommun_Documents WHERE id = 1;") if not rs.eof then temp = split(rs("strDocumentsAn"),vbcrlf) for i = 0 to int(ubound(temp)/2) %>
<%=temp(i)%>
<% next end if %>
<% if not rs.eof then for i = int(ubound(temp)/2)+1 to ubound(temp) %>
<%=temp(i)%>
<% next end if Set rs = nothing %>
Other :
Mrs.
Mr.
First name
*
:
Last name
*
:
Email
*
:
Adress
*
:
City
*
:
Country
*
:
Postal code
*
:
(
*
) Required fileds.
<% end if %>
© Tourisme Côte-Nord 1999-2009
