CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 09 21:14:06

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil > Forum >

Pb Gestion d'erreur

Poser une question dans le forum ou lancer une discussion

Pb Gestion d'erreur

mercredi 25 février 2004 à 11:35:12 | Pb Gestion d'erreur

freebond

5 msg

31 msg CS

Bonjour voila le code de ma page, j'ai mis en gras la gestion d'erreur (qui ne fonctionne pas). J'espere que quelqu'un saura ma dire ce qu'il faut mettre. Merci pour votre aide.

<HTML>
<Head>
<p align=left><B><U><font color="cadetblue" size="5">BLIO 2004</font></U></B></p>

<%
Set conn= server.createObject("ADODB.Connection")
conn.open "Blio_2004","UsersBlio_2004","blio200four"
%>

<%
on error goto Oh1ErreurPasDeBol

if request("envoyer")="Envoyer" Then
if request("type_doc")="" OR request("service")="" OR request("titre")="" OR request("auteur")="" OR request("date_edit")="" OR request("mot_cle")="" OR request("armoire")="" OR request("fournisseur")="" OR request("date_acqui")="" OR request("cout")="" OR request("num_fact")="" Then %>
<script language=javascript>
history.go(-1);
</script>
<script language=vbscript>
Dim Msg, Style, Title, Reponse
Msg = "Veuillez remplir tous les champs obligatoires marqués en rouge."
Style= vbOkOnly + vbExclamation
Title = "Attention !"
Reponse = MsgBox(Msg, Style, Title)
</script>
<% else
if request("nb_page")<>"" then
SQL="Insert into biblio (num_type,num_service,num_theme,num_sstheme,titre,commentaire,auteur,editeur,isbn,issn,date_edit,nb_page,mot_cle,armoire,fournisseur,date_acqui,num_facture,fich_visible,cout) Values ("& request("type_doc") &","& request("service") &","& request("LBtheme") &","& request("LBss_theme") &",'"& request("titre") &"','"& request("commentaire") &"','"& request("auteur") &"','"& request("editeur") &"','" & request("isbn") &"','"& request("issn") &"','"& request("date_edit") &"',"& request("nb_page") &",'"& request("mot_cle") &"',"& request("armoire") &",'"& request("fournisseur") &"','"& request("date_acqui") &"',"& request("num_fact") &",'"& request("fich_vivible") &"','"& request("cout") &"' )"
conn.execute(SQL)
else
SQL="Insert into biblio (num_type,num_service,num_theme,num_sstheme,titre,commentaire,auteur,editeur,isbn,issn,date_edit,nb_page,mot_cle,armoire,fournisseur,date_acqui,num_facture,fich_visible,cout) Values ("& request("type_doc") &","& request("service") &","& request("LBtheme") &","& request("LBss_theme") &",'"& request("titre") &"','"& request("commentaire") &"','"& request("auteur") &"','"& request("editeur") &"','" & request("isbn") &"','"& request("issn") &"','"& request("date_edit") &"',"& 0 &",'"& request("mot_cle") &"',"& request("armoire") &",'"& request("fournisseur") &"','"& request("date_acqui") &"',"& request("num_fact") &",'"& request("fich_vivible") &"','"& request("cout") &"' )"
conn.execute(SQL)
end if
end if
end if
%>

</Head>

<BODY bgColor=palegoldenrod>
<form name="monform">
<table border="0" cellpadding="0" width="87%" height="571" align=center>
<tr>
<td width="25%"> </td>
<td width="20%"><FONT color=red><STRONG>Type de
document</STRONG></FONT> </td>
<td width="30%" colspan="4"><FONT
color=red><STRONG>Service / Situation géographique</STRONG></FONT> </td>
<td width="17%"><FONT color=red><STRONG>N° de
classement</STRONG></FONT> </td>
</tr>
<tr>
<td width="25%"><FONT color=red><STRONG>Référence du
document</STRONG></FONT> </td>
<td width="20%">
<select size="1" name="type_doc" onchange="new_doc()">
<%
SQL2="select * from type_doc order by nom_type"
set rs=conn.Execute(SQL2)

While not (rs.eof)
Response.write("<Option value="&rs("num_type")&">"&rs("nom_type")&"</Option>")
rs.movenext
Wend
%>
<Option value=0>Autres</Option>
</select></td>
<td width="30%" colspan="4">
<select size="1" name="service">
<%
SQL3="select * from service order by nom_service"
set rs=conn.Execute(SQL3)

While not (rs.eof)
Response.write("<Option value="&rs("num_service")&">"&rs("nom_service")&"</Option>")
rs.movenext
Wend
%>
<Option value=0>Autres</Option>
</select></td>
<td width="17%">
<%
SQL6="select (max(num_class)+1) as classmt from biblio"
set rs=conn.Execute(SQL6)
%>
<input name="num_class" disabled value= <%=rs("classmt")%> >
</td>
</tr>
<tr>
<td width="25%" height="1"> </td>
<td width="34%" colspan="3" height="1"> </td>
<td width="33%" colspan="3" height="1"> </td>
</tr>
<tr>
<td width="25%">Thème</td>
<td width="34%" colspan="3">
<select size="1" name="LBtheme" onchange="changeliste()">
<%
SQL4="select * from theme order by nom_theme"
set rs=conn.Execute(SQL4)

While not (rs.eof)
Response.write("<Option value="&rs("num_theme")&">"&rs("nom_theme")&"</Option>")
rs.movenext
Wend
%>
</select>
</td>
<td width="33%" colspan="3">
<select size="1" name="LBss_theme">
<%
SQL5="select * from sous_theme where nom_sstheme=' '"
set rs2=conn.Execute(SQL5)

Response.write("<option value="&rs2("num_sstheme")&">"&rs2("nom_sstheme")&"</option>")
%>
</select>

<script language=javascript>
var rs= new Array();

<%
rs.movefirst
while not rs.eof
temp="<select name='LBss_theme'>"
SQL5="select * from sous_theme where num_theme="&rs("num_theme")&"order by nom_sstheme"
set rs2=conn.Execute(SQL5)
while not rs2.eof
temp=temp&"<option value="&rs2("num_sstheme")&">"&rs2("nom_sstheme")&"</option>"
rs2.movenext
wend
temp=temp&"</select>"
%>

rs[<%=rs("num_theme")%>]="<%=temp%>";
<%
rs.movenext
wend
%>

function changeliste() {
choix=document.monform.LBtheme.value;
document.monform.LBss_theme.outerHTML=rs[choix];
}
</script>

</td>
</tr>
<tr>
<td width="25%"><FONT
color=red><STRONG>Titre</STRONG></FONT></td>
<td width="67%" colspan="6"><TEXTAREA cols=75 name=titre rows=4></TEXTAREA></td>
</tr>
<tr>
<td width="25%">Commentaire</td>
<td width="67%" colspan="6"><input name="commentaire" size="100" ></td>
</tr>
<tr>
<td width="25%"><FONT
color=red><STRONG>Auteur</STRONG></FONT></td>
<td width="67%" colspan="6"><input name="auteur" size="100" ></td>
</tr>
<tr>
<td width="25%">Editeur</td>
<td width="67%" colspan="6"><input name="editeur" size="100" ></td>
</tr>
<tr>
<td width="25%">N° ISBN</td>
<td width="25%" colspan="2"><input name="isbn" ></td>
<td width="25%" colspan="2">N° ISSN</td>
<td width="25%" colspan="2"><input name="issn" ></td>
</tr>
<tr>
<td width="25%"><FONT color=red><STRONG>Date
d'édition du document</STRONG></FONT></td>
<td width="23%" colspan="2"><input name="date_edit" ></td>
<td width="22%" colspan="2">Nombre de pages</td>
<td width="22%" colspan="2"><input name="nb_page" ></td>
</tr>
<tr>
<td width="25%"><FONT color=red><STRONG>Mots
clés</STRONG></FONT> </td>
<td width="67%" colspan="6"><TEXTAREA cols=75 name=mot_cle rows=4></TEXTAREA></td>
</tr>
<tr>
<td width="25%"><FONT color=red><STRONG>Classement <br> N° d'armoire</STRONG></FONT> </td>
<td width="25%" colspan="2"><input name="armoire"
></td>
<td width="25%" colspan="2" rowspan="2"><FONT
color=red><STRONG>Fournisseur</STRONG></FONT></td>
<td width="25%" colspan="2" rowspan="2"><TEXTAREA cols=25 name=fournisseur rows=3></TEXTAREA></td>
</tr>
<tr>
<td width="25%"><STRONG><FONT color=red>Date
d'acquisition</FONT></STRONG> </td>
<td width="25%" colspan="2"><input name="date_acqui"
></td>
<td width="25%" colspan="2"></td>
</tr>
<tr>
<td width="25%"><FONT
color=red><STRONG>Coût</STRONG></FONT></td>
<td width="25%" colspan="2"><input name="cout"
></td>
<td width="25%" colspan="2"><FONT color=red><STRONG>N°
de facture</STRONG></FONT> </td>
<td width="25%" colspan="2"><input name="num_fact"
></td>
</tr>
<tr>
<td width="25%"><FONT color=red><STRONG>Visibilité de la fiche</STRONG></FONT></td>
<td width="67%" colspan="6"><select size="1" name="fich_visible">
<option value=0>SVT</option>
<option value=1>Tous</option>
</td>
</tr>
</table>

<p align="center"><input type="submit" value="Envoyer" name="envoyer"></p>

</form>

</BODY>
<%
Oh1ErreurPasDeBol:
if err.number=13 then
%>
<script language=vbscript>
Dim Msg, Style, Title, Reponse
Msg = "Veuillez saisir des chiffres dans les champs numériques" & chr(10) & "et des dates dans les champs date."
Style= vbOkOnly + vbExclamation
Title = "Attention !"
Reponse = MsgBox(Msg, Style, Title)
</script>
<%
end if
%>

</HTML>

Cette discussion est classée dans : date, request, rs, num, theme

Répondre à ce message

Sujets en rapport avec ce message

Auto_increment+insert! [ par hjijo ] HELLo,je fais un insert d'un client ds ma base MySQL,C'est la page qui dit "bravo vous êtes client" qui déclenche la requête.Mais sur cette même page problème boucle [ par n0face ] ****mon codeset base = server.createobject("ADODB.Connection")base.open "AGIR01"Set rs = Server.CreateObject("ADODB.Recordset")req = "SELECT * FROM ty erreur 'ASP 0115' [ par tomasse ] Voila bon j'explique je suis débutant en ASPJ'ai cré un formulaire pour entrer des utilisateurs tout allé bien jusqu'au moment ou je me suis dit qu'il RS <--> request.querystring [ par Arkane ] on m as renseigner que l on pouvait avoir un recordset avec autre chose que le resultat d'un requete sur DB !que je pouvais alimenter mon Rs moi meme insertion champs vide [ par xclear ] salut à vous v'la j'ai ca comme code et je voudrais pouvoir conserver le champs titre vide si je le désire et enregistrer le tout dans une base access Trop peu de paramètres. 1 attendu. [ par natacha20 ] Trop peu de paramètres. 1 attendu. JE SUIS SOUS UNE BASE DE DONNEES ACCESSle langage est ASPque signifie cette erreur lorsque j'execute une requete sq Problème lors de l'écriture de données dans la base [ par Eric ] Avec le code ci dessous, set RS=Server.createobject("ADODB.Recordset") RS.Cursorlocation=adUseServer RS.Cursortype=adOpenkeyset RS.locktype=adlockOp Ca marche po! [ par sschupp ] G une fonction 'ajout' qui me permet normalement d'écrire dans une base de données access. Seulement, il semblerait qu'au niveau du 'update', ça ne pa S'il vous plait !!! [ par sschupp ] J'en peux plus, g trouve pas !Pourquoi la première fonction tourne bien comme il faut et pas la seconde ?Note : je programme en ASP, connexion à une b Fonction split et liste [ par madoman ] je sélectionne un élément dans ma liste qui est du type : element1/element2et je souhaite récupérer quand je sélectionne element1/element2 , element1

Livres en rapport

Communications série

Péri-PC volume 2

mod_perl

Microsoft Reporting Services in Action

Tous les livres pour Date, Request, Rs, Num, Theme

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice

VISUAL STUDIO 2010 AND .NET FRAMEWORK 4 RELEASE CANDIDATE NOW AVAILABLE par Matthieu MEZIL

Forum

SUITE à MIS A JOUR BASE SQL ERREUR D'ANALYSE XML : AUCUN éLéMENT TROUVé par jes8la

PROBLEME POSITIONNEMENT ENTRE IE ET FIREFOX par talmai

RE : GRIVEVIEW / REPEATER / AUTRE : REMPLISSAGE ASYNCHRONE AVEC AJAX par Donpi

COMPRENDRE L'APPLICATION LNG par luniquejuif

RE : FILEUPLOAD par noux

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5