Jag bråkar fortfarande med min calendar. Kan någon tala om vad felet är:
BC30105: Number of indices is less than the number of dimensions of the indexed array.
Felet ligger på: visa(dbdag) = "OK"
Byter jag den raden mot: visa(11,21) = "OK"
då fungerar det.
När jag kör Response.Write(dbdag) så får jag 11,21 om det datumet finns i databasen......
Dim visa(12,31) as String
Sub Page_Load(sender As Object, e As EventArgs)
MyConnection = New SqlConnection("Data Source=(local);" & "Initial Catalog=;" & "User ID=;" & "Password=")
MyCommand = New SqlCommand("select tavlingdatum from kalender", MyConnection)
MyConnection.Open()
dr = MyCommand.ExecuteReader()
While dr.Read()
If dr("tavlingdatum") \<\> "" Then
dbdag = right(dr("tavlingdatum"),5)
dbdag = Replace(Trim(dbdag), "-", ",")
visa(dbdag) = "OK"
Response.Write(dbdag & "\<br\>")
End If
End While
MyConnection.Close()
end sub