Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Web
Imports System.Web.UI
Imports System.Web.Configuration
Imports System.Web.HttpCookie
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Collections.Generic
Imports System.Collections.Specialized
Imports System.Configuration.ConfigurationManager
Imports System.Web.SessionState.HttpSessionState
Imports System.Configuration



Partial Class TabellaListino
    Inherits System.Web.UI.Page
    Dim conn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connessione"))
    Dim I As New booking


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        Dim conn As SqlConnection = New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("connessione"))
        Dim i As New booking
        Response.Write(i.MiaFunzione)
        If Not IsPostBack Then
            Dim querystring As String = "SELECT * From Room WHERE idStr=1 " & ID & " ';"
            Dim command As New SqlCommand(querystring, conn)
            conn.Open()
            Dim rs As SqlDataReader = command.ExecuteReader()
            While Not rs.Read
                ' DOVREBBE CREARE UNA COLONNA CON IL NOME DELLE CAMERE
                'NomeCamera + id(rs.(idcamera))
                'Select [*] from Listino where idCamera = rs("idcamera")
                'Fino a quando non finisce di leggere, creo per ogni tipo di camera un'altra colonna
                '                  con le righe data, prezzo,b&b, scontob&b..
                'while not rs.read
                ' creo le righe 


                'End while

            End While



        End If
        
    End Sub
End Class