<%
' FACIPUB version 2
'fichier  modifier pour l'utilisation du site FACIPUB (base.mdb)
' notez que votre rubrique 1 doit tre de type numro automatique et tre nomme Id
' IMPORTANT : ne modifiez que ce fichier uniquement
' auteur : Pierre Morissette, 2000
' pierre@hawk.igs.net
' http://www.hawk.igs.net/~pierre
' Ne pas modifier cette ligne s.v.p.
dim lenomdebase,conntemp,mdbfilepath,gblajoutvisit,gblpwfa,gblnomdoc,gblpwv,gblvisiteur,modrecherche,gbluid,gblpwdb,gbltitre,gbldescription

'__Rpondre aux questionnaire de configuration suivant______


'inscrivez le TITRE de votre site  

     gbltitre = "Le site dmo de FACIPUB version 4"

'inscrivez UNE DESCRIPTION de votre site  (en code html s.v.p.)

     gbldescription = "Ce site utilise FACIPUB version 4. <br>FACIPUB vous permet de publier votre base de donnes MSAcces sur internet sans aucune programmation. <br> Ces fichiers permettent<br> un accs complet (avec mot de passe)<br>un accs aux visiteurs (cette fonction peut tre dsactive) avec ou sans mot de passe<br>la possibilit d'diter vos rubriques, de rechercher dans vos tables, de supprimer vos enregistrements, ...<br>la gestion de type de rubriques varis<br> un compteur d'accs intgr.<br><br>Communiquez avec moi si vous dsirez obtenir la dernire version de Facipub (shareware)  <a href=mailto:pierre@hawk.igs.net><FONT COLOR=#ffffff>pierre@hawk.igs.net</FONT></a>.<br>OU<BR><a href=http://www.multimania.com/pierremori/facipubv4.zip><FONT COLOR=#ffffff>Tlchargez FACIPUB</FONT></a><br><br>Bonne visite."



'fin de la description du site

'inscrivez le NOM de votre base de donnes  publier en remplacement du mot base 

     lenomdebase = "base.mdb"



'inscrivez le MOT DE PASSE que vous dsirez pour l'ACCS COMPLET en remplacement du mot facipub: ' dition, suppression, ajout

     gblpwfa = "facipub"



'inscrivez le MOT DE PASSE que vous dsirez pour L'ACCS RESTREINT en remplacement du mot 'visit (sans possibilit d'dition)

     gblpwv = "visit"




' inscrivez oui si vous ACCEPTEZ DES VISITEURS( en accs restreint seulement ) sinon inscrivez  non
  
     gblvisiteur = "oui"


' inscrivez oui si vous dsirez que les VISITEURS puissent AJOUTER DES FICHES sinon inscrivez  non
     
     gblajoutvisit = "oui"




'inscrivez si vous dsirez utilisez des RUBRIQUES DE RECHERCHE  SAISIR(oui) ou 
' BOTE  LISTES "non" (utilisez cette option uniquement dans le cas d'une
' base simple moins de 100 fiches)

     modrecherche="non"

	 
	 
	 
' inscrivez le MOT DE PASSE DE VOTRE BASE DE DONNES (laisser vide s'il n'y a pas de mot de passe)
  
    gblpwdb = ""
	
	' inscrivez le NOM D'UTILISATEUR de votre base de donnes (laisser vide s'il n'y a pas de nom d'utilisateur spcifi)
  
    gbluid = ""


'ne modifiez pas cette ligne
Set conntemp = Server.CreateObject("ADODB.Connection")

'inscrivez ici le NOM DE VOTRE BASE DE DONNES entre les guillemets

     MdbFilePath = Server.MapPath( "base.mdb")


'_____________ fin des modifications
if gbluid = "" then
'ne modifiez pas ces lignes
'sans mot de passe de BD
conntemp.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath  & ";"
else
'avec mot de passe de BD
conntemp.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath  & "; UID= "  & gbluid  & "; PWD= " & gblpwdb & ";"

end if

%>
