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
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Sélection Impression Perso</title>
<style>
.tabcentr{
text-align:left;
width:100%;
}
.tabcentr th{
text-align:center;
padding:5px;
font-size:11px;
font-weight:bold;
font-family:Arial;
color:#FFFFFF;
background-color:#2E2E2E;
}
.tabcentr tr:nth-child(even) {
background-color: #F9F9F9;
}
.tabcentr td {
color:#333333;
font-weight:normal;
font-family:Arial;
font-size:12px;
padding:5px;
padding-left:10px;
border-left: solid 1px #ccc;
}
.tabcentr td a{
color:#333333;
text-decoration:underline;
}
.tabcentr td:first-child {
border-left: none;
}
.tabcentr td a:hover
{
color:#ed8600;
text-decoration:underline;
}
.titrtab{
color:#cd7600;
font-weight:bold;
}
</style>
</head>
<body style="font-family: Calibri" onload="Rechercher()">
<!-- Fin du nouveau code -->
<script type="text/vbscript" language="vbscript">
'Sub SelectImprim()
' If (selectionBareme.checked) Then
' window.External.DocLigne.InfoLibValeur(7) = selBareme.checked.value
' Window.External.DocLigne.ValidLigne()
' MsgBox("Impression ajoutée")
' window.close()
' End If
' end sub
sub Rechercher()
Dim varTableau
Dim sCnx, oRst, sConstr, e, i
varTableau = ""
Set sCnx = CreateObject("ADODB.Connection")
Set oRst = CreateObject("ADODB.Recordset")
sConstr ="DSN=MONDSNr;UID=<Administrateur>;PWD=;"
sCnx.connectionstring = sConstr
sCnx.open
oRst.Open "Select * From TRACE_ACHATS",sCnx
varTableau = "<table>"
If Not oRst.EOF then
oRst.MoveFirst
While not oRst.EOF
varTableau = varTableau & "<tr><td>"
'varTableau = varTableau + "<input type='radio'" & checked & " name='selectionImpr' value='" & oRst("Impression_perso") & "' />"
vartableau = vartableau & oRst("Impression_perso") &
varTableau = varTableau & "</td></tr>"
oRst.MoveNext
Wend
End If
varTableau = varTableau & "</table>"
document.getElementById("result").innerHTML = varTableau
end sub
</script>
<table border="1" class="tabcentr" cellspacing="0" width="100%">
<tr>
<th valign="top" colspan="2" align="center"><strong>SELECTION DES IMPRESSIONS</strong> </th>
</tr>
</table>
<table border="1" class="tabcentr" cellspacing='0' width='100%'>
<tr>
<th width='15%' valign='top' align='left'><strong>ImpressionPerso</strong></th>
</tr>
</table>
<div id="result"></div>
</body>
</html> |
Partager