Aller au contenu

P.O.K

Actif
  • Compteur de contenus

    46
  • Inscrit(e) le

  • Dernière visite

Messages postés par P.O.K

  1. Merci pour votre réponse.

    Malheureusement je n'arrive toujours pas à faire fonctionner ce code. Voici ma page :

    <%
    Function VerifEmail(email)
    dim regEx
    Set regEx = New RegExp
    regEx.Global = True
    regEx.Pattern = "^[a-zA-Z0-9._-]+@[a-zA-Z0-9.-]{2,}[.][a-zA-Z]{2,3}"
    notag = regEx.test(email)
    end function
    %>

    <%
    TestOK = false

    ch = request.form("email")

    if VerifEmail(ch) = false then
    if request.form("nom")<>"" and request.form("prenom")<>"" and request.form("email")<>"" then
    if request.form("adresse")<>"" and request.form("telephone")<>"" then

    TestOK = true
    set Mail = server.CreateObject("Persits.MailSender")
    Mail.host = "???.mail.com"

    Mail.From = "intranet_AT_??.com"
    Mail.addaddress "???@???.com"
    Mail.Subject = "Changement d'adresse"
    msg = "Login : " & session("login") & chr(10)
    msg = msg & "Nom : " & request.form("prenom") & " " & request.form("nom") & chr(10)
    msg = msg & "E-mail : " & request.form("email") & chr(10)
    msg = msg & "Filière d'étude : " & request.form("filiere") & chr(10)
    msg = msg & "Adresse : " & chr(10) & request.form("adresse") & chr(10)
    msg = msg & "Téléphone : " & request.form("telephone") & chr(10)
    msg = msg & "Civilité : " & request.form("civilite") & chr(10)
    Mail.Body = msg
    Mail.send %><b>Message envoyé</b><%
    else
    %> <font color="#ff0000">Tous les champs ne sont pas remplis...</font> <br> <a class="LinkHref" href="java script:history.back();">retour</a> <%
    end if
    end if
    else%>
    L'email " & <%=ch%> & " n'est pas valide
    <%end if%>
    <%if TestOK = false then%>

    <form action="#" method="post" name="FormChangAdd">
    <table cellspacing="1" align="center">
    <tr>
    <td>Login</td>
    <td>:</td>
    <td><%= session("login") %><input type="hidden" name="login" value="<%= session("login") %>"></td>
    </tr>
    <tr>
    <td>Prénom</td>
    <td>:</td>
    <td><input type="text" name="prenom"></td>
    </tr>
    <tr>
    <td>Nom</td>
    <td>:</td>
    <td><input type="text" name="nom"></td>
    </tr>
    <tr>
    <td>E-Mail</td>
    <td>:</td>
    <td><input type="text" name="email" id="email">
    </td>
    </tr>
    <tr>
    <td>Filière d'étude</td>
    <td>:</td>
    <td><input type="text" name="filiere"></td>
    </tr>
    <tr>
    <td>Adresse</td>
    <td>:</td>
    <td><textarea name="adresse" rows=3 cols=35 ></textarea></td>
    </tr>
    <tr>
    <td>Téléphone</td>
    <td>:</td>
    <td><input type="text" name="telephone"></td>
    </tr>
    <tr>
    <td>Civilité</td>
    <td>:</td>
    <td><input type="text" name="civilite"></td>
    </tr>
    <tr>
    <td colspan="3" align="center"><input type="submit" Value="Ok" ONCLICK="emailCheck();"><input type="reset" value="Reset"></td>
    </tr>
    </table>
    </form>

    <%end if%>

    Avez-vous une idée ce du problème ? lorsque je valide mon formulaire il me remarque toujours pas quand l'adresse mail n'est pas valide...

    Merci

  2. Pour que vous puissiez mieux comprendre mon problème, voici le code de ma page.

    J'aimerai que si l'adresse mail est valide, l'envoi se fasse. Si elle n'est pas valide, il faudrait qu'un message apparaisse du genre "Votre adresse mail n'est pas valide".

    <% 
    TestOK = false
    if request.form("nom")<>"" and request.form("prenom")<>"" and request.form("email")<>"" then
    if request.form("adresse")<>"" and request.form("telephone")<>"" then

    TestOK = true
    set Mail = server.CreateObject("Persits.MailSender")
    Mail.host = "mail.???.com"

    Mail.From = "intranet_AT_??.com"
    Mail.addaddress "???@???.com"
    Mail.Subject = "Changement d'adresse"
    msg = "Login : " & session("login") & chr(10)
    msg = msg & "Nom : " & request.form("prenom") & " " & request.form("nom") & chr(10)
    msg = msg & "E-mail : " & request.form("email") & chr(10)
    msg = msg & "Filière d'étude : " & request.form("filiere") & chr(10)
    msg = msg & "Adresse : " & chr(10) & request.form("adresse") & chr(10)
    msg = msg & "Téléphone : " & request.form("telephone") & chr(10)
    msg = msg & "Civilité : " & request.form("civilite") & chr(10)
    Mail.Body = msg
    Mail.send

    'MailEtudiant = request.form("email")

    'set MailEtu = server.CreateObject("Persits.MailSender")
    'MailEtu.host = "mail.hevs.ch"

    'MailEtu.From = "mlaure.siffert_AT_hevs.ch"
    'MailEtu.addaddress MailEtudiant
    'MailEtu.Subject = "Changement d'adresse"
    'MsgEtu = "Nous vous remercions de votre demande. Celle-ci sera traitée dans les meilleurs délais." & chr(10) & chr(10)
    'MsgEtu = MsgEtu & "Meilleures salutations." & chr(10)
    'MsgEtu = MsgEtu & "L'Administration" & chr(10)
    'MailEtu.Body = MsgEtu
    'MailEtu.send

    %><b>Message envoyé</b><%
    else
    %> <font color="#ff0000">Tous les champs ne sont pas remplis...</font> <br> <a class="LinkHref" href="java script:history.back();">retour</a> <%
    end if
    end if
    %>
    <%if TestOK = false then%>

    <form action="#" method="post" name="FormChangAdd">
    <table cellspacing="1" align="center">
    <tr>
    <td>Login</td>
    <td>:</td>
    <td><%= session("login") %><input type="hidden" name="login" value="<%= session("login") %>"></td>
    </tr>
    <tr>
    <td>Prénom</td>
    <td>:</td>
    <td><input type="text" name="prenom"></td>
    </tr>
    <tr>
    <td>Nom</td>
    <td>:</td>
    <td><input type="text" name="nom"></td>
    </tr>
    <tr>
    <td>E-Mail</td>
    <td>:</td>
    <td><input type="text" name="email">
    </td>
    </tr>
    <tr>
    <td>Filière d'étude</td>
    <td>:</td>
    <td><input type="text" name="filiere"></td>
    </tr>
    <tr>
    <td>Adresse</td>
    <td>:</td>
    <td><textarea name="adresse" rows=3 cols=35 ></textarea></td>
    </tr>
    <tr>
    <td>Téléphone</td>
    <td>:</td>
    <td><input type="text" name="telephone"></td>
    </tr>
    <tr>
    <td>Civilité</td>
    <td>:</td>
    <td><input type="text" name="civilite"></td>
    </tr>
    <tr>
    <td colspan="3" align="center"><input type="submit" Value="Ok"><input type="reset" value="Reset"></td>
    </tr>
    </table>
    </form>

    <%end if%>

    Merci :)

  3. Bonjour à tous,

    j'ai créé un formulaire avec des champs comme nom, prénom, adresse, e-mail, etc...

    Une fois que ce formulaire est envoyé, la personne qui l'a rempli reçoit automatiquement un mail de confirmation. L'adresse sur laquelle sera envoyé ce message est celle qu'il a noté dans le champ "E-mail".

    Mon problème est que si l'adresse n'est pas valide (elle ne ressemble pas à aaa_AT_bbb.com), le script ne marche pas.

    Je voudrai que lorsque la personne valide le formulaire, si elle n'a pas mis une adresse valide, cela lui soit indiqué et le formulaire non validé.

    J'ai trouvé plusieurs script en Javascript sur internet mais ne connaissant pas du tout ce langage je n'ai jamais réussi à les faire fonctionner...

    Quelqu'un pourrait m'aider ???

    Merci beaucoup

    P.S. J'ai créé mon site en ASP.

  4. Bonjour,

    merci pour votre réponse. Malheureusement, lorsque je rajoute les "[]", cela ne change rien...

    Voici la page qui récupère les données, cela peut peut-être vous aider :

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>
    <head>
    <title></title>
    </head>
    <body>

    <%absence = request.form("absence[]")%>

    <%
    set RS = Server.CreateObject("ADODB.recordset")
    ConnString = "DBQ=" & Server.MapPath("BD/etudiant.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
    rs.open "absence", ConnString, 2, 3, 2
    rs.addnew()


    rs("NoEtudiant")= absence


    rs.update
    rs.close
    %>

    </body>
    </html>

  5. Bonjour,

    je vais essayer d'être le plus claire possible pour vous exposer mon problème.

    Je suis en train de créer une page qui affiche une liste de personnes (liste d'élèves dans une classe). Pour cela, je vais chercher les noms des élèves qui sont dans une base de données.

    A côté de ces noms, j'ai mis un checkbox qui sert à contrôler les présences. En effet, lorsque l'élève est là, je le coque, s'il n'est pas la, je ne le coche pas (ou l'inverse on verra ;-))

    Pour que ce procédé fonctionne, j'ai attribué comme value au checkbox le numéro de l'élève auquel il appartient.

    Ce numéro sera donc enregistrer dans une table. Pour chaque numéro (et donc pour chaque élève) une nouvelle ligne dans la base de données va se créer à chaque fois que le checkbox sera coché.

    Mais voilà, le problème est que lorsque je coche plusieurs checkbox, ceux-ci sont considéré comme la même "valeur"

    Exemple : Si je coche un seul élève, j'aurai comme résultat "334". Si je coche plusieurs élèves j'aurai "334, 335, 336, ...". Je voudrais que si je coche plusieurs élèves j'ai "334" "335"

    Voici mon code :

    <html>
    <head>
    <title></title>
    <link href="style.css" rel="stylesheet" type="text/css">
    </head>
    <body>
    <% If session("access")="ok" then%>
    <table cellpadding="0" cellspacing="0" border="0" id="mainTable">
    <tr>
    <td id="header-left"> 
    </td>
    <td id="header">
    <h1>aaa</h1>
    </td>
    <td id="header-right"> 
    </td>
    </tr>
    <tr>
    <td id="conteneurcontenu1-left"> 
    </td>
    <td id="conteneurcontenu1">
    <p class="cont-titre">
    Bienvenue sur le serveur d'exercices du cours Webmaster<br>
    </p>
    <br>
    <p class="cont">
    <form method="get" name="MyForm">
    <p class="cont">Choisissez une classe :
    <%dim conn, ConnString, rs, nocours1, annee1%>
    <%set conn = Server.CreateObject("ADODB.Connection")
    ConnString = "DBQ=" & Server.MapPath("BD/etudiant.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
    conn.Open connString
    SQL = "select * from cours order by NomCours asc, Annee desc"
    set rs = conn.execute (SQL)%>
    <%
    nocours1 = request.querystring("classe")
    if nocours1 = "" then
    nocours1 = rs("nocours")
    end if
    %>
    <select name="classe" onChange="MyForm.submit()">
    <%Do while not RS.EOF%>
    <option value="<%= rs("NoCours")%>" <%if int(nocours1) =int(rs("nocours")) then %> selected <% end if%>><%= rs("NomCours")%> <%= rs("Annee")%></option>
    <%= rs("annee")%>
    <% RS.MoveNext%>
    <%loop%>
    <% RS.Close %>
    <% conn.Close %>
    <% Set conn=nothing %>
    </select>
    </p>
    </form>

    </p>
    </td>
    <td id="conteneurcontenu1-right"> 
    </td>
    </tr>
    <tr>
    <td> 
    </td>
    <td id="conteneurcontenu2">
    <table cellpadding="5" cellspacing="0" border="0" width="101.5%">
    <tr>
    <td bgcolor= "#50504f"> 

    </td>
    <td id="TitleTableAdmin">
    Photo
    </td>
    <td id="TitleTableAdmin">
    Etudiant
    </td>
    <td id="TitleTableAdmin">
    Présence
    </td>
    </tr>
    </table>
    <%set conn = Server.CreateObject("ADODB.Connection")
    ConnString = "DBQ=" & Server.MapPath("BD/etudiant.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
    conn.Open connString
    SQL = "select * from etudiant where NoCours=" &nocours1& " order by nom asc"
    set rs = conn.execute (SQL)%>

    <% noetudiant = rs("noetudiant") %>

    <table cellpadding="5" cellspacing="0" border="0" width="101.5%">
    <tr>
    <form name="FormAbsence" action="absence.asp" method="post">
    <% compteur = 0
    do while rs.eof = false
    If session("access")="ok" then
    compteur = compteur + 1
    if compteur mod 2 = 0 then
    couleur = "white"
    else
    couleur = "#c0c0c0"
    end if%>
    <td bgcolor="<%= couleur %>"> 
    </td>
    <td id="TableAdmin" bgcolor="<%= couleur %>">
    <%if rs("image")<>"" then%>
    <img width="100" height="133.33" src="PhotoSTDx/<%=rs("image")%>">
    <%else%>
    <img width="100" height="133.33" src="PhotoSTDx/07/DSCN4501.JPG">
    <%end if%>
    </td>
    <td id="TableAdmin" bgcolor="<%= couleur %>">
    <a href="etudiant.asp?NoEtudiant=<%=rs("NoEtudiant")%>"><%=rs("prenom")%> <%=rs("Nom")%></a>
    </td>
    <td id="TableAdmin" bgcolor="<%= couleur %>">
    <input type="checkbox" name="absence" value="<%= rs("NoEtudiant") %>">
    </td>
    <%end if%>
    </tr>
    <% RS.MoveNext %>
    <%loop%>
    <input type="submit">
    </form>
    </table>
    <% RS.Close %>
    <% conn.Close %>
    <% Set conn=nothing %>
    </td>
    <td> 
    </td>
    </tr>
    <tr>
    <td> 
    </td>
    <td align="center">
    </td>
    <td> 
    </td>
    </tr>
    <tr>
    <td> 
    </td>
    <td> 
    </td>
    <td> 
    </td>
    </tr>
    </table>
    <%end if %>
    </body>
    </html>

    J'espère avoir été assez clair et que vous vous y retrouverez dans mon code...

    merci

  6. C'est tout bon, on vient de me montrer comment faire.

    Merci quand même d'avoir pris la peine de m'aider.

    Voici :

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>
    <head>
    <title>Cours webmaster - formationcontinue.ch</title>
    <link href="style.css" rel="stylesheet" type="text/css">
    </head>
    <body>
    <table cellpadding="0" cellspacing="0" border="0" id="mainTable">
    <tr>
    <td id="header-left"> 
    </td>
    <td id="header">
    <h1>NTWEB.ESIS.CH</h1>
    </td>
    <td id="header-right"> 
    </td>
    </tr>
    <tr>
    <td id="conteneurcontenu1-left"> 
    </td>
    <td id="conteneurcontenu1">
    <p class="cont-titre">
    Bienvenue sur le serveur d'exercices du cours Webmaster<br>
    de la formation continue de la HES-SO Valais.
    </p>
    <br>
    <p class="cont">
    <form method="get" name="MyForm">
    <p class="cont">Choisissez une classe :
    <%dim conn, ConnString, rs, nocours1, nocours2%>
    <%set conn = Server.CreateObject("ADODB.Connection")
    ConnString = "DBQ=" & Server.MapPath("BD/etudiant.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
    conn.Open connString
    SQL = "select * from cours order by NomCours asc, Annee desc"
    set rs = conn.execute (SQL)%>
    <%
    nocours1 = request.querystring("classe")
    if nocours1 = "" then
    nocours1 = rs("nocours")
    end if
    %>
    <select name="classe" onchange="MyForm.submit()">
    <%Do while not RS.EOF%>
    <option value="<%= rs("NoCours")%>" <%if int(nocours1) =int(rs("nocours")) then %> selected <% end if%>><%= rs("NomCours")%> <%= rs("Annee")%></option>
    <% RS.MoveNext%>
    <%loop%>
    <% RS.Close %>
    <% conn.Close %>
    <% Set conn=nothing %>
    </select>
    </p>
    </form>

    </p>
    </td>
    <td id="conteneurcontenu1-right"> 
    </td>
    </tr>
    <tr>
    <td> 
    </td>
    <td id="conteneurcontenu2">
    <table cellpadding="5" cellspacing="0" border="0" width="101.5%">
    <tr>
    <td id="TitleTable">
    Nom
    </td>
    <td id="TitleTable">
    Prénom
    </td>
    <td id="TitleTable">
    Zone Exercice
    </td>
    </tr>
    <%set conn = Server.CreateObject("ADODB.Connection")
    ConnString = "DBQ=" & Server.MapPath("BD/etudiant.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
    conn.Open connString
    SQL = "select * from etudiant where NoCours =" &nocours1
    set rs = conn.execute (SQL)%>
    <% nocours2 = RS("nocours")%>
    <tr>
    <% if RS.EOF = true then%>
    <p class="cont">Il n'y a aucun exercice pour l'instant...</p><br>
    <hr>
    <%end if%>

    <% compteur = 0
    do while rs.eof = false
    compteur = compteur + 1
    if compteur mod 2 = 0 then
    couleur = "white"
    else
    couleur = "#c0c0c0"
    end if
    %>
    <td id="Table" bgcolor="<%= couleur %>">
    <%= rs("nom")%>
    </td>
    <td id="Table" bgcolor="<%= couleur %>">
    <%= rs("prenom")%>
    </td>
    <td id="Table" bgcolor="<%= couleur %>">
    go
    </td>
    </tr>
    <% RS.MoveNext%>
    <%loop%>
    <% RS.Close %>
    <% conn.Close %>
    <% Set conn=nothing %>
    </table>
    </td>
    <td> 
    </td>
    </tr>
    <tr>
    <td> 
    </td>
    <td> 
    </td>
    <td> 
    </td>
    </tr>
    </table>
    </body>
    </html>

  7. Bonjour,

    je suis en train de recréer cette page : http://ntweb.esis.ch/.

    Je n'ai pas accès au code de celle-ci, je dois donc me débrouiller pour la recréer "à l'aveugle".

    Pour l'instant ça ne va pas trop mal mis à part que je n'arrive pas à faire que lorsque l'on choisit une classe, les informations en dessous changent automatiquement...

    Pouvez-vous m'aider ?

    Voici mon code :

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>
    <head>
    <title>Cours webmaster - formationcontinue.ch</title>
    <link href="style.css" rel="stylesheet" type="text/css">
    </head>
    <body>
    <table cellpadding="0" cellspacing="0" border="0" id="mainTable">
    <tr>
    <td id="header-left"> 
    </td>
    <td id="header">
    <h1>NTWEB.ESIS.CH</h1>
    </td>
    <td id="header-right"> 
    </td>
    </tr>
    <tr>
    <td id="conteneurcontenu1-left"> 
    </td>
    <td id="conteneurcontenu1">
    <p class="cont-titre">
    Bienvenue sur le serveur d'exercices du cours Webmaster<br>
    de la formation continue de la HES-SO Valais.
    </p>
    <br>
    <p class="cont">
    <form method="post">
    <p class="cont">Choisissez une classe :
    <%dim conn, ConnString, rs, nocours1, nocours2%>
    <%set conn = Server.CreateObject("ADODB.Connection")
    ConnString = "DBQ=" & Server.MapPath("BD/etudiant.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
    conn.Open connString
    SQL = "select * from cours order by NomCours asc, Annee desc"
    set rs = conn.execute (SQL)%>
    <% nocours1 = rs("nocours") %>
    <select name="classe">
    <%Do while not RS.EOF%>
    <option value="<%= rs("NoCours")%>"><%= rs("NomCours")%> <%= rs("Annee")%></option>
    <% RS.MoveNext%>
    <%loop%>
    <% RS.Close %>
    <% conn.Close %>
    <% Set conn=nothing %>
    </select>
    </p>
    </form>

    </p>
    </td>
    <td id="conteneurcontenu1-right"> 
    </td>
    </tr>
    <tr>
    <td> 
    </td>
    <td id="conteneurcontenu2">
    <table cellpadding="5" cellspacing="0" border="0" width="101.5%">
    <tr>
    <td id="TitleTable">
    Nom
    </td>
    <td id="TitleTable">
    Prénom
    </td>
    <td id="TitleTable">
    Zone Exercice
    </td>
    </tr>
    <%set conn = Server.CreateObject("ADODB.Connection")
    ConnString = "DBQ=" & Server.MapPath("BD/etudiant.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
    conn.Open connString
    SQL = "select * from etudiant where NoCours =" &nocours1
    set rs = conn.execute (SQL)%>
    <% nocours2 = RS("nocours")%>
    <tr>
    <% if RS.EOF = true then%>
    <p class="cont">Il n'y a aucun exercice pour l'instant...</p><br>
    <hr>
    <%end if%>

    <% compteur = 0
    do while rs.eof = false
    compteur = compteur + 1
    if compteur mod 2 = 0 then
    couleur = "white"
    else
    couleur = "#c0c0c0"
    end if
    %>
    <td id="Table" bgcolor="<%= couleur %>">
    <%= rs("nom")%>
    </td>
    <td id="Table" bgcolor="<%= couleur %>">
    <%= rs("prenom")%>
    </td>
    <td id="Table" bgcolor="<%= couleur %>">
    go
    </td>
    </tr>
    <% RS.MoveNext%>
    <%loop%>
    <% RS.Close %>
    <% conn.Close %>
    <% Set conn=nothing %>
    </table>
    </td>
    <td> 
    </td>
    </tr>
    <tr>
    <td> 
    </td>
    <td> 
    </td>
    <td> 
    </td>
    </tr>
    </table>
    </body>
    </html>

    Merci beaucoup.

  8. Bonjour,

    j'aimerai créer une newsletter pour mon site. Après plusieurs tentatives, j'obtiens à chaque fois une erreur... Voici mon script :

    		<div id="contenu">	
    <%dim titremsg, datemsg, msg, nomexped

    titremsg = request.form("titremsg")
    Msg = request.form("Msg")
    Nomexped = request.form("nomexped")%>

    <%if titremsg <> "" and msg <> "" and nomexped <> "" then

    set mail = server.createObject("Persits.Mailsender")
    Mail.host = "mail.???.ch"
    Mail.From = "???@???.ch"
    Mail.addaddress "???@hotmail.com"
    Mail.subject = "News"

    envoimail = titremsg & msg & nomexped

    Mail.Body = envoimail
    Mail.send %>
    Message envoyé

    <%else%>
    Vous n'avez pas rempli tous les champs obligatoire
    <%End if%>

    </div>

    Et voici le message d'erreur que j'ai quand je fait le test :

    Error Type:

    Server object, ASP 0177 (0x800401F3)

    Chaîne de classe incorrecte

    /newsletter_recu.asp, line 34

    Pouvez-vous m'aider ?

    Ne tenez pas compte des points d'interrogations. La faute ne vient pas de la.

    Merci

  9. Bonjour, désolé mais je ne savas pas ou mettre ce post.

    Je suis en train de créer un site sur une association qui organise des soirées.

    Parmis les pages disponibles, l'une d'elle regroupe des photos d'anciennes soirées. J'aimerai que sur chacune d'elles figure en bas à droite l'adresse du site en question.

    Mais le problème c'est qu'il y en a beaucoup ! Est-il possible d'ajouter d'un coup l'adresse sur toutes les photos ? (Avec photoshop par exemple...)

    Merci

  10. Bonjour,

    Je suis un débutant en programmation et tente de créer un site en utilisant une feuille de style.

    Après avoir réussi à élimier la plupart de mes problèmes, l'un d'eux persiste... L'une de mes images d'arrière-plan n'apparait pas sous firefox... Voyez vous-même :

    Sous IE :

    lachaksitecb9.th.jpg

    Sous FF :

    lachaksiteffbm1.th.jpg

    Le code de la feuille de style :

    @charset "utf-8";
    /* CSS Document */

    body {
    font-family : Verdana, Arial, Helvetica, sans-serif;
    font-size: 10pt;
    margin: 0;
    padding: 0;
    text-align: center;
    background-color : #5F0000;
    border-style:hidden;
    }

    a img {
    border:0;
    }

    html {
    height:100%;
    margin:0;
    }

    h1 {
    display:none;
    margin:0;
    }

    h2 {
    background-color:#FFF;
    font-size: 1.1em;
    color:#005E5F;
    font-weight :bold;
    text-align:left;
    text-align:justify;
    margin:15px 5px 5px 5px;
    }

    ul {
    list-style-type: none;
    padding: 0;
    margin: 0;
    }

    li {
    list-style-image : none;
    padding : 0;
    margin : 0;
    color: #005E5F;
    }

    hr {
    width:70%;
    color:#AC7E7E;
    background-color:#AC7E7E;
    height:1px;
    border: 0;
    }

    #conteneur {
    min-height: 100%;
    width: 1009px;
    margin: 0 auto;
    position: relative;
    }

    #header {
    margin: 0;
    margin-top:3px;
    height: 235;
    background : url(images/header.gif) no-repeat left top;
    width:1009px;
    }

    #conteneurcontenu1 {
    margin: 0;
    background : url(images/part1.gif) no-repeat left top;
    width:1009px;
    height:162px;
    }

    #part1 {
    background-color: #FFF;
    width:450px;
    margin: 0;
    margin-left:240px;
    }

    * html #part1 {
    margin-left:0;
    margin-right:90px;
    }

    #conteneurcontenu2 {
    margin: 0;
    background : url(images/fond.gif) left top;
    width:1009px;
    height:auto;
    }

    #contenu {
    background-color: #FFF;
    float:left;
    width:450px;
    margin: 0;
    margin-left:240px;
    }

    #conteneurmenu {
    width: 160px;
    float : left;
    background-color:#005E5F;
    margin-left:18px;
    }

    #menuvertical {
    width: 150px;
    background-color: #005E5F;
    margin:0;
    margin-left:0;
    }

    #contenucopy {
    margin: 0;
    background : url(images/footer.gif) no-repeat left top;
    width:1009px;
    height:203px;
    clear:both;
    }

    #copyright {
    width: 300px;
    background-color: #FFF;
    margin-left:354.5px;
    height:auto;
    }

    * html #copyright {
    margin-left:0;
    margin-right:10px;
    }

    .cont {
    margin: 0 5px;
    padding: 0;
    color : black;
    text-align:left;
    }

    .cont a {
    color: #005E5F;
    }


    .cont2 {
    margin: 0 5px;
    padding: 0;
    color : #999999;
    text-align:left;
    font-size:9px;
    }

    .cont3 {
    margin: margin: 0 5px;
    padding: 0;
    color : black;
    text-align:right;
    font-style:italic;
    }

    .copy {
    text-align:center;
    padding-top: 65px;
    margin:0;
    font-size:9px;
    color: #999999;
    }

    .copy a {
    color: #005E5F;
    text-decoration:none;
    }

    Le code de la page :

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>
    <head>
    <title>Association Lachak</title>
    <link href="style.css" rel="stylesheet" type="text/css">
    </head>
    <body>

    <div id="conteneur">
    <div id="header">
    <h1 align="center">Association Lachak</h1>
    </div>
    <div id="conteneurcontenu1">
    <div id="part1">
    <br>
    <h2><img src="images/buttons/titre_bienvenue.gif"></h2>
    <p class="cont">
    <br>
    blabla
    <br>
    </p>
    </div>
    </div>
    <div id="conteneurcontenu2">
    <div id="contenu">
    <%dim conn, ConnString, rs

    set conn = Server.CreateObject("ADODB.Connection")
    ConnString = "DBQ=" & Server.MapPath("BD/guest.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
    conn.Open connString
    SQL = "select * from Message order by datemsg desc"
    set rs = conn.execute (SQL)%>

    <% if RS.EOF = true then%>
    <hr>
    <p class="cont">Il n'y a aucune new pour l'instant...</p><br>
    <%end if%>

    <%do while rs.eof = false %>
    <hr>
    <h2><%= rs("titremsg")%></h2>
    <p class="cont2"><%= rs("DateMsg")%></p>
    <br>
    <p class="cont"><%= Replace(RS("Msg"), chr(13), "<br>") %></p>
    <p class="cont3"><%= rs("nomexped")%></p>
    <br>
    <% RS.MoveNext%>
    <%loop%>
    <% RS.Close %>
    <% conn.Close %>
    <% Set conn=nothing %>
    </div>
    <div id="conteneurmenu">
    <div id="menuvertical">
    <ul>
    <li><a href="index.asp"><img src="images/buttons/button_1.gif"></a></li>
    <li><a href="programme.asp"><img src="images/buttons/button_2.gif"></a></li>
    <li><a href="emplacement.asp"><img src="images/buttons/button_3.gif"></a></li>
    <li><a href="http://myphotoalbum.com/" target="_blank"><img src="images/buttons/button_4.gif"></a></li>
    <li><a href="historique.asp"><img src="images/buttons/button_5.gif"></a></li>
    <li><a href="comite.asp"><img src="images/buttons/button_6.gif"></a></li>
    <li><a href="sponsors.asp"><img src="images/buttons/button_7.gif"></a></li>
    </ul>
    </div>
    </div>
    </div>

    <div id="contenucopy">
    <div id="copyright">
    <p class="copy">
    2007-2008 Lachak Association - 1926 Fully <br>
    Kit graphique - <a href="http://www.tcheval.net" target="_blank">Tcheval</a><br>
    </p>
    <noscript>
    <p class="copy">
    Kit Graphique : <a href="http://www.tcheval.net" target="_blank" title="Le site perso de Tcheval">Tcheval</a>
    </p>
    </noscript>
    </div>
    </div>

    </body>
    </html>

    Pouvez-vous m'aider ?

    Merci beaucoup ;)

×
×
  • Créer...