dotNetHell.it - Forum - Codice Sorgente

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Odbc" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">
    Dim Conn As String = ConfigurationManager.ConnectionStrings("MyConnection").ConnectionString
    Dim MyConnection As OdbcConnection = New OdbcConnection(Conn)
    Dim SQL As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        MyConnection.Open()
        
        
        SQL = "SELECT * FROM utenti"
        Dim cmd As New OdbcCommand(SQL, MyConnection)
    
        
        Dim rdr As OdbcDataReader = cmd.ExecuteReader()
        
        Dim i As Integer = 0
        Dim my_counter As Integer = 0
        i = 0
        my_counter = 0
        Response.Write("<table border=""0"">")
        While rdr.Read
            
            i = i + 1
            my_counter = my_counter + 1
            Response.Write("<td width=""30%"">")
            Response.Write("<td>" & rdr("username") & "</td>")
            Response.Write("</td>")
            If (my_counter = 3) Then
                my_counter = 0
                Response.Write("</tr>" & vbCrLf & "<tr>" & vbCrLf)
            End If
        End While
        Response.Write("</table>")
        MyConnection.Close()
        
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    </div>
    </form>
</body>
</html>