fouinette28
Messages postés1Date d'inscriptionmardi 20 décembre 2005StatutMembreDernière intervention13 mai 2009
-
13 mai 2009 à 11:30
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 2013
-
16 mai 2009 à 09:27
Bonjour,
j'ai développé une page en php pour un client et en fait il est hébergé sur un serveur asp. Quelqu'un peut il m'aider pour transcrire le code ci-dessous en asp ?
<?php
//connexion à ton DSN :
$connexion = odbc_connect("odbcRC","admin","admin") or die("echec connexion");
$numero=$_POST['numero'];
$passe=$_POST['passe'];
echo "
";
echo "
";
$requete="SELECT * FROM CarteClient, Client WHERE numCarte='$numero' AND MotDePasseAcces='$passe'";
$resultat = odbc_exec($connexion,$requete);
$lignes=odbc_num_rows($resultat);
if($lignes>0){
$requete3="SELECT libelle FROM Client, Civilite, CarteClient WHERE numCarte='$numero' AND MotDePasseAcces='$passe' AND Client.IDCivilite=Civilite.IDCivilite";
$resultat3 = odbc_exec($connexion,$requete3);
while ($data = odbc_fetch_array($resultat3))
{
echo "<html>Bonjour ".$data["libelle"]." " ;
}
$requete2="SELECT Nom FROM Client, CarteClient WHERE numCarte='$numero' AND MotDePasseAcces='$passe'";
$resultat2 = odbc_exec($connexion,$requete2);
while ($data = odbc_fetch_array($resultat2))
{
echo $data["Nom"].",
$requete4=\"SELECT Quantite, libelle, DateValAbo FROM Client, CarteClient, LigArtAbo, Article WHERE numCarte='$numero' AND MotDePasseAcces='$passe' AND LigArtAbo.IDArticle=Article.IDArticle AND LigArtAbo.IDCarteClient=CarteClient.IDCarteClient\";
$resultat4 = odbc_exec($connexion,$requete4);
while ($donnees = odbc_fetch_array($resultat4)) // On fait une boucle pour lister les résultats
{
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 16 mai 2009 à 09:27
Le code HTML produit par ton script ne ressemble à rien.
En règle générale, quand on ouvre une balise, on la ferme (sauf
).
Et on ne colle pas des <HTML> partout !
Enfin bref achète-toi un bon livre sur l'HTML.
<%
Public Function Pure(S) 'As String
Pure = Replace(S,"'","''")
End Function
Dim Conn,Rs,SQL : Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=odbcRC;Uid=admin;Pwd=admin;"
Conn.Open
<%
SQL = "SELECT * FROM CarteClient, Client WHERE numCarte=" & number & " AND MotDePasseAcces='" & password & "';"
Set Rs = Conn.Execute(SQL)
If Not(Rs.EOF) Then
SQL = "SELECT libelle,Nom FROM Client, CarteClient INNER JOIN Civilite ON Client.IDCivilite=Civilite.IDCivilite "
SQL = SQL & "WHERE numCarte='" & number & "' AND MotDePasseAcces='" & password & "';"
Set Rs = Conn.Execute(SQL)
If Not(Rs.EOF) Then
%>
Bonjour <%=Rs("libelle")%>
<%=Rs("Nom")%>,
Bienvenue sur votre espace personnel.
Ci-dessous le détail de votre compte :
----
Nombre de pièces restant,
Type d'abonnement,
Valable jusqu'au,
<%
SQL = \"SELECT Quantite, libelle, DateValAbo FROM Client, CarteClient, LigArtAbo, Article \"
SQL = SQL & \"WHERE numCarte='\" & number & \"' AND MotDePasseAcces='\" & password & \"' AND LigArtAbo.IDArticle=Article.IDArticle \"
SQL = SQL & \"AND LigArtAbo.IDCarteClient=CarteClient.IDCarteClient;\"
Set Rs = Conn.Execute(SQL)
While Not(Rs.EOF)
%>
----