It's not a programming lesson
Imports System.Data.OleDb

Dim conn As OleDbConnection = New OleDbConnection(ConfigurationSettings.AppSettings("blog"))
Dim free, online

For date = 10 to 23
If free = 1 AND online = 1 Then
conn.Open()
Response.Write "So good can online.."
Else
Response.Write "It's a boring day :-("
conn.Close()
End If
Next

'The above coding is infused with bugs. It shows infinite loop and undefined variables. Nvm lah.. as long as everyone understands. kekekekeke..

Achtung: It's neither VB.net nor VBSCript. In fact, it's their emulation, called liesken.net LOL. No sign of showing-off or infringement. It's merely for fun and laughter.

Alles gute.

Au revoir.