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
| <%Dim rs As SqlDataReader
rs = myCommand.ExecuteReader()
While (rs.Read)
Dim s As String
Dim v As String
s = rs.GetString(1).ToString
v = rs.GetString(2).ToString
Dim x = CType(s, String)
Dim y = CType(v, String)
%>
<input type="text" id="menu1" name="menu1" value="<%=s%>" />
<input type="text" id="contenu1" name="menu1" value="<%=v %>"/>
<div id="showMe"></div>
<script language="javascript">
//var t=document.getElementsByTagName("input");
var onglet;
var contenu;
onglet=convertion(<%=x %>);
contenu=convertion(<%=y %>);
alert(onglet);
document.write("toto");
var m=new menu(onglet,contenu);
tab[i]=m;
i=i+1;
document.write("********************");
onglet="";
contenu="";
</script>
<br />
<% End While
rs.Close()
myConnection.Close()%> |
Partager