1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112
|
<script runat="server">
Sub valider (Sender as Object, E as EventArgs)
Dim validation as new OleDbCommand("UPDATE Annonces SET visible=True WHERE id_annonce=" & id_valider.CommandArgument & ";", connection)
validation.ExecuteNonQuery()
end sub
Sub Supprimer (Sender as Object, E as EventArgs)
end sub
</script>
<body>
<div id="produit" style="overflow:scroll; height:500px;">
<form runat="server">
<!-- #include file="odbc.aspx"-->
<%
Dim la_langue as String
if request.QueryString("lang") = "de" Then
la_langue="de"
' session.LCID=1031
elseif request.QueryString("lang") = "en" Then
la_langue="en"
'session.LCID=1033
else
la_langue="fr"
'session.LCID=1036
end if
Dim dS_Vali as new dataset
Dim myTable2 as DataTable
Dim myRow2 as DataRow
Dim requete_vali as New OleDbdataAdapter ("SELECT * FROM annonces WHERE visible = false", Connection)
requete_vali.fill(dS_Vali, "non_visible")
For each myTable2 in dS_vali.Tables
For each myRow2 in myTable2.Rows
%>
<table border="1">
<tr>
<td id="nom" colspan="3">
<%
if request.QueryString("lang")<>"de" then
response.write("Poste : ")
else
response.write("Beruf : ")
end if
%>
<div id="text_nom">
<%response.write(myRow2("annonce_" & la_langue))%>
</div>
</td>
</tr>
<tr>
<td id="prix">
<%
if request.QueryString("lang")<>"de" then
response.write("Rémunération : ")
else
response.write("Gehalt : ")
end if
%>
<div id="text_prix">
<%response.write(myRow2("remuneration"))%>
</div>
</td>
<td id="duree_annonce">
<%
if request.QueryString("lang")<>"de" then
response.write("Durée : ")
else
response.write("Dauer : ")
end if
%>
<%response.write(myRow2("duree_" & la_langue))%>
</td>
<td>
<%
if request.QueryString("lang")<>"de" then
response.write("Lieu : ")
else
response.write("Ort : ")
end if
%>
<%response.write(myRow2("lieu"))%>
</td>
</tr>
<tr>
<td id="detail" colspan="3">
Description :
<%response.write(myRow2("description_" & la_langue))%>
</td>
</tr>
</table>
<div style="width:500px" align="center">
<asp:Button OnClick="Valider" CommandArgument='<%=myRow2("id_annonce")%>' id="id_valider" text="Cliquer ici pour valider cette annonce" runat="server"/>
<br/>
<asp:Button OnClick="Supprimer" id="id_supprimer" text="Cliquer ici pour supprimer cette annonce" runat="server"/>
<br/>
<br/>
</div>
<%
next myRow2
next mytable2
%>
</form>
</div>
</body> |
Partager