P.O.K
-
Compteur de contenus
46 -
Inscrit(e) le
-
Dernière visite
Messages postés par P.O.K
-
-
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=NothingEt voici le message d'erreur que je reçois :
ADODB.Recordset error '800a0bb9'Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/tournoi.asp, line 315
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 :
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'[Microsoft][ODBC SQL Server Driver][sql Server]The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.
/src/ReservationMateriel/Materiel.asp, line 25
-
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 25Le 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...
Ouvrir page ASP depuis JAVA
dans Asp, Java, Cfm, autres.
Posté
Hello,
merci beaucoup. Ca semble fonctionner :-)
a+