Aller au contenu

P.O.K

Actif
  • Compteur de contenus

    46
  • Inscrit(e) le

  • Dernière visite

Tout ce qui a été posté 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. Merci beaucoup pour cette réponse. Mais malheureusement je ne sais pas comment intégré ce code dans ma page... Je dois ajouter quelque chose à mon formulaire pour que ca fonctionne ? (Je suis vraiment débutant :-)) Merci
  4. ASP Je débute en programmation. C'est le seul language que je connais un peu...
  5. 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.
  6. J'ai laissé tomber cette application en fin de compte.. Merci quand même d'avoir essayé
  7. 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>
  8. 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
  9. 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>
  10. 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.
  11. Excusez mon retard, j'ai eu quelques soucis avec ma connexion... J'ai laissé tomber provisoirement cette partie du site mais merci quand même d'avoir essayé de résoudre le problème
  12. Merci d'avoir essayé mais la majuscule ne change rien...
  13. 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 : Pouvez-vous m'aider ? Ne tenez pas compte des points d'interrogations. La faute ne vient pas de la. Merci
  14. Merci, j'ai réussi à créer le script ! Mais je ne sais pas comment l'appliquer à plusieurs photos à la fois... Edit : C'est tout bon, j'ai trouvé. Merci beaucoup ;-)
  15. Merci beaucoup pour ces réponses. L'option créer un script avec photoshop m'intéresse vivement étant donné que je possède déjà ce programme mais je suis malheureusement extrêmement débutant dans le domaine... Je ne trouve pas ou créer le script... Pouvez-vous me l'indiquer ? (mon Photoshop est en anglais)
  16. 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
  17. Merci beaucoup JokoZetla ! Ca marche enfin ! Un petit float et tout fonctionne. Merci beaucoup ;-)
  18. Merci beaucoup pour ces réponses mais cela ne marche toujours pas... J'ai essayé background-repeat et background. J'ai défini le mode de répétition avec y, ca marche sous IE mais pas sou firefox... Reste-il encore d'autres alternatives ? Merci
  19. Comment je fais pour "définir le mode de répétition" ?
  20. Justement, le no-repeat fait que l'image "part1" se répète en fonction de la longueur de la page. Il faudrait trouver une façon de faire comprendre cela à FF...
  21. 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 : Sous FF : 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...