Forum officiel - Topic "Formulaire en asp et base de données access"

En moins de 5 minutes,
créez votre forum gratuitement

forum officiel aide/faq
support technique

Bienvenue sur le forum officiel de les-forums.com.
L'apprentissage des bases du HTML requises pour la personnalisation des forums concerne le sous-forum Programmation, tandis que les gros problèmes techniques sont à adresser au Support. La FAQ vous sera également très utile.
De plus, une lecture du bref règlement du forum pourra éviter bien des tracas.
Nous vous écoutons, soyez polis, patients et précis dans vos questions.
Pour suivre les informations officielles, suivez-nous en ou via

les-forums.com - Forum officiel

Programmation (163 topics, 2371 messages)

Topic "Formulaire en asp et base de données access" (Messages 1 à 13 sur 13)

Dernier message par Babaorum, le 30/09 à 09:51:29

Anonyme :	S'inscrire S'identifier
Outils :	Recherche

Bas de la page Topics

Centaurus

Near Demo Experience

inscrit le 06/03/2003

le 29/08/2003 à 15:03:46

Formulaire en asp et base de données access

Salut,

Je dois modifier un formulaire en asp qui est lié à une base de données access. Le problème, c'est que je n'ai jamais touché ni à asp, ni à access 8-)

Le but de cette modification est de faire en sorte que chaque nouvel élément ajouté au formulaire se place en tête de liste (tri par date, la plus récente en premier)

Voici le code de la page où le formulaire s'affiche avec les résultats :

<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include file="dbconnect.asp"-

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body>

<h1 align="center"
style="word-spacing: 0; line-height: 100%; text-indent: 0; margin-left: 0; margin-right: 0; margin-top: 1; margin-bottom: 1"><img
border="0" src="../images/offres_fr.gif"></h1>


<%
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "offrefr", objConn,3,3
Do While Not objRS.EOF
%>
<div align="center">
<center>
<table border="1" width="500">
<tr>
<td width="34%" bgcolor="#00CCFF">
Réf. <%Response.Write objRS("ref")%>
</td>
<td width="66%" bgcolor="#00FFCC" colspan="2">
<% Response.Write objRS("domaine") %></td>
</tr>
<tr>
<td width="100%" bgcolor="#00FFCC" colspan="3">
<%Response.Write objRS("poste") %></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#00CCFF">
Lieu
:
</td>
<td width="25%" align="center" bgcolor="#00CCFF">
Date
:
</td>
<td width="25%" align="center" bgcolor="#00CCFF">
Durée
:
</td>
</tr>
<tr>
<td width="25%" align="center">
<%Response.Write objRS("lieu") %></td>
<td width="25%" align="center">
<%Response.Write objRS("date") %></td>
<td width="25%" align="center">
<%Response.Write objRS("durée") %></td>
</tr>
<tr>
<td width="75%" colspan="3">
<%Response.Write objRS("détail") %></td>
</tr>
<tr>
<td width="75%" colspan="3">
Si cette offre vous intéresse,
notez la référence et cliquez sur le bouton "Postuler"
<a
href="cv_fr.htm"><img border="0" src="../images/WB01488_.gif"></a>
Postuler</td>
</tr>
</table>
</center>
</div>

<%
Response.Write "<hr>"
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

 <a
href="emploi_fr.htm" target="_self"><img border="0" src="../images/WB01624_.gif"
align="top"></a> <a href="emploi_fr.htm" target="_self">Page précédente</a>

</body>

</html>

Est-ce que l'un de vous saurait me donner un coup de main ?
Merci

Centaurus

Near Demo Experience

inscrit le 06/03/2003

le 29/08/2003 à 15:05:21

Formulaire en asp et base de données access

Pour moi au premier coup d'oeil, je penserais que c'est cette partie qu'il faut modifier mais ... ???

<%
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "offrefr", objConn,3,3
Do While Not objRS.EOF
%>

ronsard59

Merci

Forum Marshall

inscrit le 02/03/2003

le 29/08/2003 à 18:47:48

Formulaire en asp et base de données access

ben dite donc !

vertigo_76

inscrit le 05/03/2003

le 29/08/2003 à 19:58:26

Formulaire en asp et base de données access

Vu la tete du code ca ressemble a du dreamwaver!
(!)

Cleo

http://images.google.com/images?q=tbn:H5tptw1Yvy4C:www.ac-dijon.fr/pedago/Astronomie/ASTRONOM.jpg

inscrit le 07/03/2003

le 30/08/2003 à 04:26:38

Formulaire en asp et base de données access

apparemment c'est du front page (voir balise meta)

Centaurus

Near Demo Experience

inscrit le 06/03/2003

le 30/08/2003 à 11:49:46

Formulaire en asp et base de données access

Oui apparemment ça a été fait sous front page (mais c'est pas moi qui l'ai fait) et j'ai aucune idée de la façon de m'y prendre

Centaurus

Near Demo Experience

inscrit le 06/03/2003

le 01/09/2003 à 12:33:01

Formulaire en asp et base de données access

Bon, la page avec le formulaire est celle-ci : saisie.asp

<% Option Explicit %>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
</head>

<!--#include file="dbconnect.asp"-

<body bgcolor="#000090" link="#FFFFFF" vlink="#FFFF00">

<img border="0" src="../images/logo3.gif" width="114"
height="80">
Saisie
d'une nouvelle Offre
<%
Dim objRS, booleenUtilisat, strNomUtilisat, strMotdePasse
strNomUtilisat=Request.Form("login")
strMotdePasse=Request.Form("pass")
If ((strNomUtilisat = "") OR (strMotdePasse = "")) Then
objConn.Close
Set objRS = Nothing
Response.Write "<A HREF='ident.htm'>"
Response.Write "Vous devez remplir tous les champs !"
Response.Write "</A>"
Response.end
End if

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "users", objConn,3,3
booleenUtilisat=false
Do While Not (objRS.EOF OR booleenUtilisat)
If (StrComp(objRS("login"), strNomUtilisat, _
vbTextCompare) = 0) Then
booleenUtilisat = True
Else
objRS.MoveNext
End If
Loop

If Not booleenUtilisat Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A HREF='ident.htm'>"
Response.Write "identifiant non valide !"
Response.Write "</A>"
Response.end
End if

If not (StrComp(objRS("passe"), strMotdePasse, _
vbTextCompare) = 0) Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A HREF='ident.htm'>"
Response.Write "Mot de passe non valide !"
Response.Write "</A>"
Response.end
End if
%>

<form method="POST" action="record.asp" name="saisie">
<div align="center">
<center>
<table border="1" width="620">
<tr>
<td width="34%" bgcolor="#00CCFF">
Réf. <input
type="text" name="frm_ref" size="9"></td>
<td width="66%" bgcolor="#00FFCC" colspan="2">
Domaine : <input
type="text" name="frm_domaine" size="45"></td>
</tr>
<tr>
<td width="100%" bgcolor="#00FFCC" colspan="3">
Poste : <input
type="text" name="frm_poste" size="78"></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#00CCFF">Lieu :</td>
<td width="25%" align="center" bgcolor="#00CCFF">Date :</td>
<td width="25%" align="center" bgcolor="#00CCFF">Durée :</td>
</tr>
<tr>
<td width="25%" align="center"><input
type="text" name="frm_lieu" size="20"></td>
<td width="25%" align="center"><input
type="text" name="frm_date" size="20"></td>
<td width="25%" align="center"><input
type="text" name="frm_duree" size="20"></td>
</tr>
<tr>
<td width="75%" colspan="3"><textarea rows="5" name="frm_detail" cols="73"></textarea></td>
</tr>
</table>
</center>
</div>
<input type="HIDDEN" value="<%= strNomUtilisat%>" name="login"><input type="HIDDEN" value="<%= strMotdePasse%>" name="pass">
<input type="submit" value="Envoyer"><input type="reset"
value="Rétablir">
</form>
<form method="POST" action="gestion.asp" name="retour">
<input type="HIDDEN" value="<%= strNomUtilisat%>" name="login"><input type="HIDDEN" value="<%= strMotdePasse%>" name="pass">
<input type="submit" value="Retour au gestionnaire"
name="B1">
</form>

</body>

</html>

Centaurus

Near Demo Experience

inscrit le 06/03/2003

le 01/09/2003 à 12:33:41

Formulaire en asp et base de données access

Et la page appelée est celle-là : record.asp

<% Option Explicit %>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>enregistrement offre</title>
</head>

<!--#include file="dbconnect.asp"-

<body bgcolor="#000090" link="#FFFFFF" vlink="#FFFF00">

<img border="0" src="../images/logo3.gif" width="114"
height="80">
L'offre a
été enregistrée avec succès
<%
Dim objRS, booleenUtilisat, booleenExisteDeja, strNomUtilisat, strMotdePasse
strNomUtilisat=Request.Form("login")
strMotdePasse=Request.Form("pass")
If ((strNomUtilisat = "") OR (strMotdePasse = "")) Then
objConn.Close
Set objRS = Nothing
Response.Write "<A HREF='ident.htm'>"
Response.Write "Vous devez saisir le nom d'utilisateur et le mot de passe !"
Response.Write "</A>"
Response.end
End if

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "users", objConn,3,3
booleenUtilisat=false
Do While Not (objRS.EOF OR booleenUtilisat)
If (StrComp(objRS("login"), strNomUtilisat, _
vbTextCompare) = 0) Then
booleenUtilisat = True
Else
objRS.MoveNext
End If
Loop

If Not booleenUtilisat Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A HREF='ident.htm'>"
Response.Write "identifiant non valide !"
Response.Write "</A>"
Response.end
End if

If not (StrComp(objRS("passe"), strMotdePasse, _
vbTextCompare) = 0) Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A HREF='ident.htm'>"
Response.Write "Mot de passe non valide !"
Response.Write "</A>"
Response.end
End if

If ((Request.Form("frm_ref") = "") OR (Request.Form("frm_date") = "") _
OR (Request.Form("frm_domaine") = "") OR (Request.Form("frm_poste") = "") _
OR (Request.Form("frm_lieu") = "") OR (Request.Form("frm_duree") = "") _
OR (Request.Form("frm_detail") = "")) Then
Response.Write "<a href='javascript:history.go(-1)'>"
Response.Write "Vous devez saisir tous les champs !"
Response.Write "</A>"
Response.end
Else
booleenExisteDeja = False
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "offrefr", objConn,3,3
Do While Not (objRS.EOF OR booleenExisteDeja)
If (StrComp(objRS("ref"), Request.Form("frm_ref"), _
vbTextCompare) = 0) Then
Response.Write "<a href='javascript:history.go(-1)'>"
Response.Write "Cette référence existe déjà !"
Response.Write "</A>"
booleenExisteDeja = True
Response.end
End If
objRS.MoveNext
Loop
If Not booleenExisteDeja Then
objRS.AddNew
objRS("ref") = Request.Form("frm_ref")
objRS("date") = Request.Form("frm_date")
objRS("domaine") = Request.Form("frm_domaine")
objRS("poste") = Request.Form("frm_poste")
objRS("lieu") = Request.Form("frm_lieu")
objRS("durée") = Request.Form("frm_duree")
objRS("détail") = Request.Form("frm_detail")
objRS.Update
End If
objRS.Close
Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
%>

<form method="POST" action="gestion.asp" name="retour">
<input type="HIDDEN" value="<%= strNomUtilisat%>" name="login"><input type="HIDDEN" value="<%= strMotdePasse%>" name="pass">
<input type="submit" value="Retour au gestionnaire"
name="B1">
</form>

</body>

</html>

Message modéré le 01/09 à 12:35:02 par Centaurus.

Babaorum

adjoint

L'homme n'est qu'une machine

inscrit le 01/03/2003

le 02/09/2003 à 17:52:22

Formulaire en asp et base de données access

Sérieux Cento lâche l'ASP, c casse-c... comme c pas permis et vraiment pas très rapide

A moins que tu n'y sois obligé ?

Centaurus

Near Demo Experience

inscrit le 06/03/2003

le 02/09/2003 à 17:59:49

Formulaire en asp et base de données access

Bah oui, on m'a demandé de modifier un formulaire en asp. Donc c obligé

Mais apparemment, le code que j'ai ne serait peut-être pas le bon, donc va falloir que je récupère celui qui est sur leur serveur qui lui doit fonctionner. ça sera peut-être un peu plus facile

Centaurus

Near Demo Experience

inscrit le 06/03/2003

le 10/09/2003 à 15:18:32

Formulaire en asp et base de données access

Bon le code est le même.

Ce code là sera peut-être plus simple à tripatouiller.
C'est peut-être la partie en bleu qui est à modifier en y incluant un requête SQL ??!!

<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include file="dbconnect.asp"-

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body>

<h1 align="center"
style="word-spacing: 0; line-height: 100%; text-indent: 0; margin-left: 0; margin-right: 0; margin-top: 1; margin-bottom: 1"><img
border="0" src="../images/offres_fr.gif"></h1>


<%
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "offrefr", objConn,3,3
Do While Not objRS.EOF
%>
<div align="center">
<center>
<table border="1" width="500">
<tr>
<td width="34%" bgcolor="#00CCFF">
Réf. <%Response.Write objRS("ref")%>
</td>
<td width="66%" bgcolor="#00FFCC" colspan="2">
<% Response.Write objRS("domaine") %></td>
</tr>
<tr>
<td width="100%" bgcolor="#00FFCC" colspan="3">
<%Response.Write objRS("poste") %></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#00CCFF">
Lieu
:
</td>
<td width="25%" align="center" bgcolor="#00CCFF">
Date
:
</td>
<td width="25%" align="center" bgcolor="#00CCFF">
Durée
:
</td>
</tr>
<tr>
<td width="25%" align="center">
<%Response.Write objRS("lieu") %></td>
<td width="25%" align="center">
<%Response.Write objRS("date") %></td>
<td width="25%" align="center">
<%Response.Write objRS("durée") %></td>
</tr>
<tr>
<td width="75%" colspan="3">
<%Response.Write objRS("détail") %></td>
</tr>
<tr>
<td width="75%" colspan="3">
Si cette offre vous intéresse,
notez la référence et cliquez sur le bouton "Postuler"
<a
href="cv_fr.htm"><img border="0" src="../images/wb01488_.gif"></a>
Postuler</td>
</tr>
</table>
</center>
</div>

<%
Response.Write "<hr>"
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

 <a
href="emploi_fr.htm" target="_self"><img border="0" src="../images/wb01624_.gif"
align="top"></a> <a href="emploi_fr.htm" target="_self">Page précédente</a>

</body>

</html>

Message modéré le 10/09 à 15:20:29 par Centaurus.

Centaurus

Near Demo Experience

inscrit le 06/03/2003

le 29/09/2003 à 21:04:35

Formulaire en asp et base de données access

Pour ceux que ça intéresse 8-)

, la résolution de mon problème :

html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body>

<h1 align="center"
style="word-spacing: 0; line-height: 100%; text-indent: 0; margin-left: 0; margin-right: 0; margin-top: 1; margin-bottom: 1"><img
border="0" src="../images/offres_fr.gif"></h1>


<%
DSN_BASE = "DBQ=" & Server.Mappath("../../database/db1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
%>
<%
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.open DSN_BASE
%>

<%
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "SELECT offrefr.IDoffre, offrefr.ref, offrefr.date, offrefr.domaine, offrefr.poste, offrefr.lieu, offrefr.durée, offrefr.détail FROM offrefr AS offrefr ORDER BY offrefr.IDoffre DESC", objConn,3,3
Do While Not objRS.EOF
%>

<div align="center">
<center>
<table border="1" width="500">
<tr>
<td width="34%" bgcolor="#00CCFF">
Réf. <%Response.Write objRS("ref")%>
</td>
<td width="66%" bgcolor="#00FFCC" colspan="2">
<% Response.Write objRS("domaine") %></td>
</tr>
<tr>
<td width="100%" bgcolor="#00FFCC" colspan="3">
<%Response.Write objRS("poste") %></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#00CCFF">
Lieu
:
</td>
<td width="25%" align="center" bgcolor="#00CCFF">
Date
:
</td>
<td width="25%" align="center" bgcolor="#00CCFF">
Durée
:
</td>
</tr>
<tr>
<td width="25%" align="center">
<%Response.Write objRS("lieu") %></td>
<td width="25%" align="center">
<%Response.Write objRS("date") %></td>
<td width="25%" align="center">
<%Response.Write objRS("durée") %></td>
</tr>
<tr>
<td width="75%" colspan="3">
<%Response.Write objRS("détail") %></td>
</tr>
<tr>
<td width="75%" colspan="3">
Si cette offre vous intéresse,
notez la référence et cliquez sur le bouton "Postuler"
<a
href="cv_fr.htm"><img border="0" src="../images/WB01488_.gif"></a>
Postuler</td>
</tr>
</table>
</center>
</div>

<%
Response.Write "<hr>"
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

 <a
href="emploi_fr.htm" target="_self"><img border="0" src="../images/WB01624_.gif"
align="top"></a> <a href="emploi_fr.htm" target="_self">Page précédente</a>

</body>

</html>

Babaorum

adjoint

L'homme n'est qu'une machine

inscrit le 01/03/2003

le 30/09/2003 à 09:51:29

Formulaire en asp et base de données access

A tes souhaits (:)

Non non je te rassure, on comprend tout de même

Haut de la page Topics

Vous ne pouvez pas ajouter de messages.

Forum gratuit proposé par v 2.7 alpha 1 - Un service -

Page générée en 0,026 secondes le 08/09 à 13:02:13.