P.O.K

Hello, merci beaucoup. Ca semble fonctionner :-) a+

Bonjour à tous ;-) J'ai un petit soucis avec un projet JAVA que je suis en train de réaliser. Depuis l'une des classes de mon projet, je souhaite ouvrir une page ASP. Voici le code : public static void creerTicket(String lien){ Properties sys = System.getProperties(); String os = sys.getProperty("os.name"); Runtime r = Runtime.getRuntime(); try { if (os.endsWith("NT")||os.endsWith("2000")||os.endsWith("XP")||os.endsWith("7")) r.exec("cmd /c start " + lien); else r.exec(lien); } catch (IOException ex) { ex.printStackTrace(); } } la variable "lien" contient une adresse de ce type : http://jtrainproject.ch/ticketPrePay.asp?operateur="+operateur+"&noMobile="+noMobile+"&montant="+montant+"&date="+dateString Malheureusement, que le programme lance la page, le lien n'est pas entier. Voici ce qui apparait : http://jtrainproject.ch/ticketPrePay.asp?operateur=Orange Pouvez-vous m'indiquer comment faire pour résoudre ce problème ? Merci beaucoup ;-)

Hello, laissez tomber. Je viens de trouver le problème :-) Voici ma requête : set conn = Server.CreateObject("ADODB.Connection") ConnString = "DBQ=" & Server.MapPath("../db/Poker.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25" conn.Open connString SQL = "delete from Inscriptions where NoTournoi = "& NoTournoi & " and NoMembre = " & Login set rs = conn.execute (SQL)

Bonjour à tous, j'ai une requête me permettant de supprimer une ligne dans ma base de données access qui ne fonctionne pas... la voici : Set RS =server.createObject("ADODB.RecordSet") ConnString = "DBQ=" & Server.MapPath("../db/poker.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25" RS.Open "select * from Inscriptions", ConnString, 2, 3, 8 RS.Find "NoTournoi = " & NoTournoi & " and NoMembre = " & Login rs.Delete rs.close Set rs=Nothing Et voici le message d'erreur que je reçois : Est-ce que quelqu'un aurait une idée de l'erreur ? Merci beaucoup ;-)

Bonjour à tous, je souhaite créer une page web qui permet de calculer différents ratios. Pour cela, l'utilisateur entre différents nombres qui seront ensuite calculés. Pour cela, j'ai créé un formulaire. Le problème c'est que les champs qui sont entrés sont de type text (input type="text"). Il m'est donc impossible de les calculer ensuite... Pouvez-vous me dire comment pourrais-je convertir ces variables en nombre ? Lorsque je récupère les variables [ex : liquidites = request.form("liquidites")] j'ai essayer d'utiliser "FormatNumber" mais ça ne fonctionne pas... Merci beaucoup ;-)

Le site n'a pas été fait pas moi mais j'ai créé toute l'application utilisée. Mais je vais chercher encore un peu. Merci beaucoup

Je cherche simplement à afficher le résultat de la requête :-)

Arf... Excusez-moi mais j'ai oublié de préciser, je travaille en ASP...

Merci ! Mais comme fais-je pour afficher le nombre ensuite ?

Bonjour, je suis en train de créer une application permettant à des membres d'un club de poker de s'inscrire à différents tournois. Pour cela, j'utilise trois tables dans ma base de données : Une contenant les membres du club, l'autre les tournois et une les inscriptions aux tournois. Lorsqu'un membre s'inscrit à un tournoi, son numéro (clé primaire de la table "Membres") ainsi que le numéro du tournoi (clé primaire de la table "Tournoi") sont ajoutés dans la table "Inscriptions". Je voudrai savoir qu'il est possible d'additionner les membres qui sont inscrits à un même tournoi afin d'indiquer le nombre de places disponibles. Pouvez-vous m'aider ? Je suis à votre disposition si vous avez besoin de plus d'informations. Merci beaucoup

Ca fonctione :-D Merci beaucoup pour la réponse et le conseil ;-)

Salut, merci pour ta réponse. C'est vrai que mon code pourrait être mieux écrit, mais je débute en programmation et essaie de faire de mon mieux. J'ai besoin de la base de données pour récupérer les adresses mails ainsi que d'autres informations qui seront transmis dans les mails. Le ""on error resume next" est là car si par exemple il manque une adresse à quelqu'un le script ne s'arrête pas. Pour les : Mail.host = "mail.???.ch" Mail.From = "test_AT_??.com" je suis obligé de les laisser là étant donné qu'il y a des "Mail.resetall" non ? Ensuite pour ma question, je ne vois pas comment faire pour stocker tous les destinataires déjà traités... Pourrais-tu m'expliquer ? Merci beaucoup

Bonjour, j'ai créé une page permettant l'envoi automatique de mail à diverses personnes. La liste de ces personnes est disponible dans une base de données mais il arrive que certaines personnes y apparaissent plusieurs fois. Je voudrai que mon code contrôle si le mail a déjà été envoyé à une personne et si oui, que l'envoi ne se fasse pas. Voici ma page : <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title> </title> </head> <body bgcolor="dddddd" style="text-align:center"> <font face="Arial, Helvetica, sans-serif"></font> <table width="800px" bgcolor="#FFFFFF"> <tr> <td align="center"> <img src="bannerNewInter.jpg"><br> <br> <font face="Arial, Helvetica, sans-serif"><strong></strong></font> </td> </tr> <tr> <td> <% on error resume next Mail = request.querystring("Mail") Mailtmp2 = split(Mail, ",") dateech = request.querystring("date_echeance") heureech = request.querystring("heure_echeance") x=0 set Mail = server.CreateObject("Persits.MailSender") %> <% tmpcount= ubound(Mailtmp2) %> <% do while x <= tmpcount tmpMail2 = Mailtmp2(x) %> <% set conn = Server.CreateObject("ADODB.Connection") ConnString = "driver={SQL Server}; server=XXXXXX;uid=XXXXXX; pwd=XXXXXX;database=XXXXXX" conn.Open connString SQL = "Select MailDM, MailExp, MdpExp from DM, PropositionTM, Experts where dm.noDM = PropositionTM.numdm and experts.NoExpert = PropositionTM.NumExpert and NumProposition=" & tmpMail2 set rs = conn.execute (SQL)%> <% do while rs.eof = false %> <% MailDM = rs("MailDM") %> <% MailExp = rs("MailExp") %> <% MdpExp = rs("MdpExp") %> <%if NumEtat <> 4 then Mail.resetall Mail.host = "mail.???.ch" Mail.From = "test_AT_??.com" Mail.addaddress MailExp Mail.Subject = "Sujet 1" msg = "test1" Mail.Body = msg Mail.send Mail.resetall Mail.host = "mail.???.ch" Mail.From = "test_AT_??.com" Mail.addaddress MailDM Mail.Subject = "Sujet 2" msg2 = "test2" Mail.Body = msg2 Mail.send%> <%end if%> <% RS.Movenext %> <% loop %> <% RS.Close %> <% conn.Close %> <% Set conn=nothing x=x+1%> <%loop%> <font face="Arial, Helvetica, sans-serif"> Les mails ont été envoyés. <br> <br> <a href="menu.asp">Retour</a> </font> <br><br> </td> </tr> </table> </body> </html> Pouvez-vous m'aider ? Merci beaucoup ;-)

Bonjour, désolé de ne plus avoir répondu, on m'a chargé d'un autre projet qui m'a pris pas mal de temps. J'ai cependant trouvé une solution à mon problème, voici le code : RS.Open "select * from PretMateriel, PretReservation where ((DateDebutReservation <= '"&DateDebutReservation&"' and DateFinReservation >= '"&DateDebutReservation&"') or (DateDebutReservation <= '"&DateFinReservation&"' and DateFinReservation >= '"&DateFinReservation&"') or (DateDebutReservation >= '"&DateDebutReservation&"' and DateFinReservation <= '"&DateFinReservation&"') ) and PretReservation.NoPretMateriel="&NoPretMateriel&" and PretMateriel.NoPretMateriel ="&NoPretMateriel, ConnString, 2, 3, 8 Merci beaucoup pour l'aide apportée.

Bonjour, excusez-moi pour le retard, j'ai eu un empêchement... Je crois qu'il y a un problème avec la solution que vous me proposez. Dans ma base de données, je stocke uniquement la date de début de la réservation et la date de fin et non pas toutes les dates réservées... Cela pose donc un problème non ?

J'ai modifié le format des champs et ajouté les quotes. Voici l'erreur qui apparait :

Non j'ai le format "smalldatetime". Je vais essayer de le changer. J'ai SQL Server 2005, en français.

Re, pourtant, dans ma base, les données sont comme ceci : "23.04.2009 00:00:00"... Comment pourrais-je faire pour modifier ça ? Merci

Merci beaucoup pour votre réponse ! J'ai essayé d'aller chercher la date sur la base mais le message d'erreur suivant apparait : Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near '.2009'. /src/ReservationMateriel/Materiel.asp, line 25 Le problème doit sûrement venir du fait que dans la base les dates sont stockées de la manière suivant : "17.04.2009 00:00:00" Savez-vous comment faire pour régler ce problème ? Merci

Bonjour à tous, je suis en train de créer une application permettant de réserver du matériel dans une entreprise. Pour cela, les utilisateurs doivent sélectionner le matériel et indiquer ensuite les dates de reservation. Bien entendu, le même appareil ne peut pas être réservé deux fois le même jour. J'aimerai donc qu'un message apparaisse si quelqu'un sélectionne une date déjà prise. Malheureusement, je ne sais pas du tout comment faire... Voici le code de ma page : <% NoPretReservation = request.QueryString("NoPretReservation") NomReservation = request.QueryString("NomReservation") LoginReservation = request.QueryString("LoginReservation") DateDebutReservation = request.QueryString("DateDebutReservation") DateFinReservation = request.QueryString("DateFinReservation") NoPretMateriel = request.QueryString("NoPretMateriel") Valider = request.QueryString("Valider") set RS = Server.CreateObject("ADODB.recordset") ConnString ="driver={SQL Server}; server=XXXXX;uid=dbIntraInterHevs; pwd=XXX;database=XXX" if request.QueryString("Supp") = "ok" then RS.Open "select * from PretReservation", ConnString, 2, 3, 8 RS.Find "NoPretReservation =" &NoPretReservation RS.Delete RS.Close Response.Redirect("index.asp?nocategorie="&request.QueryString("nocategorie")&"&NoPage=1501&nolangue="&request.QueryString("nolangue")&"&noDomaine="&request.QueryString("noDomaine")&"&NoPretMateriel="&NoPretMateriel) end if %> <% if Valider = "Valider" then RS.Open "select * from PretReservation", ConnString, 2, 3, 8 RS.addnew() rs("DateDebutReservation") = DateDebutReservation rs("DateFinReservation") = DateFinReservation rs("NomReservation") = NomReservation rs("LoginReservation") = session("Login") rs("NoPretMateriel") = NoPretMateriel RS.update RS.close %> Réservation effectuée !<br> <br> <a href="index.asp?nocategorie=<%=request.QueryString("nocategorie")%>&NoPage=1501&nolangue=<%=request.QueryString("nolangue")%>&noDomaine=<%=request.QueryString("noDomaine")%>&NoPretMateriel=<%=request.QueryString("NoPretMateriel")%>">Retour</a> <% else RS.Open "select * from PretMateriel where NoPretMateriel="&NoPretMateriel, ConnString, 2, 3, 8 %> <form name="FormMateriel" method="get" action="index.asp"> <table border="0" cellpadding="0" cellspacing="5"> <tr> <td valign="top" width="15%"><b>Matériel</b></td> <td valign="top"><b>:</b></td> <td valign="top"><b><%= rs("NomMateriel")%></b></td> </tr> <tr><td valign="top"> </td></tr> <tr> <td valign="top" width="15%">Description</td> <td valign="top">:</td> <td valign="top" align="justify"><em><%= rs("DescriptionMateriel")%></em></td> </tr> <tr><td valign="top"> </td></tr> <tr> <td valign="top" width="15%">Login</td> <td valign="top">:</td> <td valign="top"><%= session("login")%></td> </tr> <tr><td valign="top"> </td></tr> <input type="hidden" name="nocategorie" value="<%=request.QueryString("nocategorie")%>"> <input type="hidden" name="NoPage" value="<%=request.QueryString("NoPage")%>"> <input type="hidden" name="nolangue" value="<%=request.QueryString("nolangue")%>"> <input type="hidden" name="noDomaine" value="<%=request.QueryString("noDomaine")%>"> <input type="hidden" name="NoPretMateriel" value="<%=NoPretMateriel%>"> <tr> <td valign="top">Nom</td> <td valign="top">:</td> <td valign="top"><input type="text" name="NomReservation"></td> </tr> <tr><td valign="top"> </td></tr> <%session.lcid = 2048%> <tr> <td valign="top" width="15%">Date de début</td> <td valign="top">:</td> <td valign="top"> <select name="DateDebutReservation"> <% for i = 1 to 365 DateDebut = date() + i %> <option value="<%= DateDebut %>"><%= DateDebut %></option> <%next%> </select> </td> </tr> <tr><td valign="top"> </td></tr> <tr> <td valign="top" width="15%">Date de fin</td> <td valign="top">:</td> <td valign="top"> <select name="DateFinReservation"> <% for i = 1 to 365 DateFin = date() + i %> <option value="<%= DateFin %>"><%= DateFin %></option> <%next%> </select> </td> </tr> <tr><td valign="top"> </td></tr> </table> <input type="submit" name="Valider" value="Valider"><input type="reset"> </form> <% RS.Close %> <a href="index.asp?nocategorie=<%=request.QueryString("nocategorie")%>&NoPage=1500&nolangue=<%=request.QueryString("nolangue")%>&noDomaine=<%=request.QueryString("noDomaine")%>">Retour</a> <hr> <%session.lcid = 1033%> <%RS.Open "select * from PretMateriel, PretReservation where PretMateriel.NoPretMateriel = PretReservation.NoPretMateriel and PretMateriel.NoPretMateriel="&NoPretMateriel&" order by DateDebutReservation", ConnString, 2, 3, 8%> <%session.lcid = 2048%> <p class="titre2">Dates réservées :</p> <%if rs.eof = true then%> Il n'y a aucune réservation pour l'instant. <%else%> <table border="0" bordercolor="#047cb4" cellpadding="5" cellspacing="0"> <tr> <td align="center" width="25%"> </td> <td align="center"><b>Début</b></td> <td align="center"><b>Fin</b></td> <td align="center" width="25%"> </td> </tr> <%do while rs.eof = false%> <%if rs("DateFinReservation") >= date then%> <tr> <td align="center" width="25%"> </td> <td align="center"><%=rs("DateDebutReservation")%></td> <td align="center"><%=rs("DateFinReservation")%></td> <td align="center" width="25%"><%if rs("LoginReservation") = session("Login") then%><a href="index.asp?nocategorie=<%=request.QueryString("nocategorie")%>&NoPage=1501&nolangue=<%=request.QueryString("nolangue")%>&noDomaine=<%=request.QueryString("noDomaine")%>&NoPretMateriel=<%=rs("NoPretMateriel")%>&NoPretReservation=<%=rs("NoPretReservation")%>&Supp=ok">Effacer</a><%else%> <%end if%></td> </tr> <%end if%> <% rs.movenext loop %> </table> <%end if RS.Close Set rs = nothing end if %> Et voici à quoi ressemble ma page : Pouvez-vous m'aider ? Merci beaucoup

Oui, c'est bien ça le problème. Je l'ai résolu hier dans la journée. La syntaxe exact dont j'avais besoin est : <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> Merci de vous être penché sur le sujet

Non même pas. Les caractères ont disparus ! Il n'y a même pas d'espace. Exemple : J'ai mangé du gâteau. Deviens : J'ai mang du gteau. Après quelques recherches sur internet, il me semble que "Server.Urlencode" pourrait m'aider. Quelqu'un sait ce que c'est ?

Bonjour à tous, j'ai créé un formulaire que des élèves d'une école doivent remplir pour faire des propositions de travaux. Malheureusement, j'ai un problème avec l'un d'eux. Après que cet élève ait rempli et envoyé ce formulaire, tous les caractères avec des accents de sa proposition ont été supprimés ! Même dans la base de données Access qui les "stock". Avez-vous une idée d'ou peut provenir le problème ? Merci beaucoup P.S. Mon site est en ASP (pas ASP.NET)

Laissez tomber. J'ai finalement décidé d'ajouter un : if instr(AdresseMail,"@") then pour qu'il me retourne un message d'errur en cas de "@" manquant. Merci quand même d'avoir pris la peine de m'aider

Bonjour, désolé de répondre aussi tard, j'étais en vacances jusqu'à aujourd'hui. Je ne peux pas mettre un seul "if" car sinon le code suivant apparait automatiquement : %> <font color="#ff0000">Tous les champs ne sont pas remplis...</font> <a class="LinkHref" href="java script:history.back();">retour</a> <% J'ai tout de même essayé de faire comme vous me l'aviez indiqué mais cela ne marche toujours pas. La fonction "VerifEmail(ch)" ne fonctionne pas...