<%@LANGUAGE="VBSCRIPT"%> <%application("db")="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\base\otsi.mdb"%> <% Dim RS__MMColParam RS__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then RS__MMColParam = Request("MM_EmptyValue") %> <% set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\base\otsi.mdb" RS.Source = "SELECT * FROM info_otsi WHERE code = " + Replace(RS__MMColParam, "'", "''") + "" RS.CursorType = 0 RS.CursorLocation = 2 RS.LockType = 3 RS.Open() RS_numRows = 0 %> <%Application("email") =(RS.Fields.Item("e_mail").Value)%> Site officiel de l'Office de Tourisme de Bourbonne les Bains
 
Bienvenue dans notre Espace Web
  


Continuer votre visite

Nous écrire
<% RS.Close() %>