<%
if request.querystring("id_sousproduit")<>"" then
'******************************************
set choix=createobject("adodb.recordset")
critere="select * from t_sousproduit where id_sousproduit=" & request.querystring("id_sousproduit")
choix.open critere, "DSN=evolution2;uid=evolution2"
set produit=createobject("adodb.recordset")
critere="select * from t_produit where id_produit=" & choix("id_produit")
produit.open critere, "DSN=evolution2;uid=evolution2"
end if
%>
<%
if request.form("nom")<>"" then
nom=request.form("nom")
nom=replace(nom,"'","''")
prenom=request.form("prenom")
prenom=replace(prenom,"'","''")
if prenom="" then prenom="-"
produit=request.form("produit")
produit=replace(produit,"'","''")
ssproduit=request.form("ssproduit")
ssproduit=replace(ssproduit,"'","''")
adresse=request.form("adresse")
adresse=replace(adresse,"'","''")
if adresse="" then adresse="-"
cp=request.form("cp")
cp=replace(cp,"'","''")
if cp="" then cp="-"
ville=request.form("ville")
ville=replace(ville,"'","''")
if ville="" then ville="-"
question=request.form("question")
question=replace(question,"'","''")
fax=request.form("fax")
fax=replace(fax,"'","''")
if fax="" then fax="-"
pays=request.form("pays")
pays=replace(pays,"'","''")
if pays="" then pays="-"
email=request.form("email")
email=replace(email,"'","''")
if email="" then email="-"
set mailer=createobject("SMTPsvg.mailer")
mailer.fromName=nom
mailer.fromAddress=email
mailer.remotehost="217.197.211.50"
mailer.addrecipient nom, email
mailer.addrecipient "Evolution 2 Tignes","reservationstignes@wanadoo.fr"
'mailer.addrecipient "Atipic","sebastien@atipic.com"
mailer.subject="Contact de mme ou mr " & nom
mailer.contenttype="text/html"
body="Nom : " & nom & " " & "Prénom : " & prenom & " " & "Adresse : " & adresse & " " & "Ville : " & ville & " " & "Code Postal : " & cp & " Pays:" & pays & " Fax : " & fax & " " & "Adresse Email : " & email & " "
body=body & "Question : " & question & " "
if request.querystring("id_sousproduit")<>"" then
body=body & "Intéressé par : " & produit & " -- " & ssproduit
end if
mailer.bodytext=body
if mailer.sendmail then
response.write "Thank you for your query. We will be in touch shortly. "
else
response.write "We are very sorry, unfortunately there was a problem beyond our control. Please contact us directly using the bookings link below "
end if
%>
<%
else
%>
<%
end if
if request.querystring("id_sousproduit")<>"" then
produit.close
set produit=nothing
choix.close
set choix=nothing
end if
%>
reservations
ALISON
RICHMOND
Central reservations
Reservations and general information
ALISON
RICHMOND
