Formulaire avec 2 combos en ASP
toto_titititititititi
Messages postés
2
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
10 mai 2006
-
10 mai 2006 à 17:06
jeshyjackson Messages postés 18 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 27 octobre 2009 - 7 sept. 2009 à 15:36
jeshyjackson Messages postés 18 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 27 octobre 2009 - 7 sept. 2009 à 15:36
A voir également:
- Formulaire avec 2 combos en ASP
- Application de loto turbo 2 - Forum ASM
- Creer un formulaire pdf depuis excel - Forum VB.NET
- Droitereg excel degré 2 ✓ - Forum VBA Office (Excel, Word ...)
- Créer un formulaire de réservation en ligne - Forum PHP
- Créer formulaire inscription en ligne ✓ - Forum C# / .NET
3 réponses
jesusonline
Messages postés
6814
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
13 octobre 2010
29
10 mai 2006 à 18:22
10 mai 2006 à 18:22
Bonjour,
comments veux tu qu'on t'aide sans code ? :p
<HR>
Cyril - MVS - MCP
comments veux tu qu'on t'aide sans code ? :p
<HR>
Cyril - MVS - MCP
toto_titititititititi
Messages postés
2
Date d'inscription
mercredi 5 avril 2006
Statut
Membre
Dernière intervention
10 mai 2006
10 mai 2006 à 19:01
10 mai 2006 à 19:01
Voici mon code sachant que j'ai deux tables:
carrier_name(carrier_id, carrier_name, ...) et
stat(N, carrier_id, product, ...)
Bien merci d'avance !!!
<html>
<head>
</head>
<script language="JavaScript">
Function Val_Recherche()
{
rechercheform.submit();
}
</script>
<%
Set conn = Server.CreateObject("ADODB.Connection")
connstring = 'chaine de connection ...
conn.Open connstring
Set Doc_conn = conn
Dim sql
Dim NoTheme, NoSousTheme
if (request("Theme")<>"") then
NoTheme = cint(request("Theme"))
else
NoTheme = 0
end if
if (request("SousTheme")<>"") then
NoSousTheme = cint(request("SousTheme"))
else
NoSousTheme = 0
end if
Dim rsTheme, rsSousTheme
Set rsTheme=Server.CreateObject ("ADODB.Recordset")
rsTheme.Open "carrier_name", Doc_conn, 1, 2 ,2
sql = "SELECT distinct [N°], product FROM stat" sql sql & " where carrier_id " '& NoTheme
Set rsSousTheme = Doc_conn.Execute (sql)
%>
<form name="rechercheform">
Thème,
<Select size="1" name="Theme" OnChange="rechercheform.target='_self';rechercheform.action='Theme.asp';Val_Recherche();">
<Option selected value=""></Option>
<%
If Not (rsTheme.eof) Then
rsTheme.movefirst
Do While Not(rsTheme.eof)
If rsTheme.fields("carrier_id")= NoTheme then%>
<Option value="<%=rsTheme.fields("carrier_id")%>" selected><%=rsTheme.fields("carrier_name")%></Option>
<%else%>
<Option value="<%=rsTheme.fields("carrier_id")%>"><%=rsTheme.fields("carrier_name")%></Option>
<%end If
rsTheme.movenext
Loop
End If
rsTheme.close
Set rsTheme = Nothing
%>
</Select>
,
Sous-thème,
<Select size="1" name="SousTheme">
<Option selected value=""></Option>
<%
If Not (rsSousTheme.eof) Then
rsSousTheme.movefirst
Do While Not(rsSousTheme.eof)
if rsSousTheme.fields("N°")=NoSousTheme then%>
<Option value="<%=rsSousTheme.fields("N°")%>" selected><%=rsSousTheme.fields("product")%></Option>
<%else%>
<Option value="<%=rsSousTheme.fields("N°")%>"><%=rsSousTheme.fields("product")%></Option>
<%end If
rsSousTheme.movenext
Loop
End If
rsSousTheme.close
Set rsSousTheme = Nothing
%>
</Select>
<%
Doc_conn.close
Set Doc_conn=Nothing
%>
</form>
</html>
carrier_name(carrier_id, carrier_name, ...) et
stat(N, carrier_id, product, ...)
Bien merci d'avance !!!
<html>
<head>
</head>
<script language="JavaScript">
Function Val_Recherche()
{
rechercheform.submit();
}
</script>
<%
Set conn = Server.CreateObject("ADODB.Connection")
connstring = 'chaine de connection ...
conn.Open connstring
Set Doc_conn = conn
Dim sql
Dim NoTheme, NoSousTheme
if (request("Theme")<>"") then
NoTheme = cint(request("Theme"))
else
NoTheme = 0
end if
if (request("SousTheme")<>"") then
NoSousTheme = cint(request("SousTheme"))
else
NoSousTheme = 0
end if
Dim rsTheme, rsSousTheme
Set rsTheme=Server.CreateObject ("ADODB.Recordset")
rsTheme.Open "carrier_name", Doc_conn, 1, 2 ,2
sql = "SELECT distinct [N°], product FROM stat" sql sql & " where carrier_id " '& NoTheme
Set rsSousTheme = Doc_conn.Execute (sql)
%>
<form name="rechercheform">
Thème,
<Select size="1" name="Theme" OnChange="rechercheform.target='_self';rechercheform.action='Theme.asp';Val_Recherche();">
<Option selected value=""></Option>
<%
If Not (rsTheme.eof) Then
rsTheme.movefirst
Do While Not(rsTheme.eof)
If rsTheme.fields("carrier_id")= NoTheme then%>
<Option value="<%=rsTheme.fields("carrier_id")%>" selected><%=rsTheme.fields("carrier_name")%></Option>
<%else%>
<Option value="<%=rsTheme.fields("carrier_id")%>"><%=rsTheme.fields("carrier_name")%></Option>
<%end If
rsTheme.movenext
Loop
End If
rsTheme.close
Set rsTheme = Nothing
%>
</Select>
,
Sous-thème,
<Select size="1" name="SousTheme">
<Option selected value=""></Option>
<%
If Not (rsSousTheme.eof) Then
rsSousTheme.movefirst
Do While Not(rsSousTheme.eof)
if rsSousTheme.fields("N°")=NoSousTheme then%>
<Option value="<%=rsSousTheme.fields("N°")%>" selected><%=rsSousTheme.fields("product")%></Option>
<%else%>
<Option value="<%=rsSousTheme.fields("N°")%>"><%=rsSousTheme.fields("product")%></Option>
<%end If
rsSousTheme.movenext
Loop
End If
rsSousTheme.close
Set rsSousTheme = Nothing
%>
</Select>
<%
Doc_conn.close
Set Doc_conn=Nothing
%>
</form>
</html>
jeshyjackson
Messages postés
18
Date d'inscription
vendredi 30 novembre 2007
Statut
Membre
Dernière intervention
27 octobre 2009
7 sept. 2009 à 15:36
7 sept. 2009 à 15:36
bonjour jesusonline
je viens de debuter en asp 2 , j ai creer un master page je souahite inser les formulaires dans les page de contenue mais le mode design ne prend pas
je viens de debuter en asp 2 , j ai creer un master page je souahite inser les formulaires dans les page de contenue mais le mode design ne prend pas