Function mula

Imports System.Diagnostics

Public Class Blog1

Inherits Blogger.Windows.Page


Declare Function BlajaProgramming Lib "akal32.dll" Alias "akalA" _
(ByVal buahFikiran As Long, ByVal masa As String,) As Long

Private Sub Blog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim hari_ini As String
Dim B As diriku.Insan_biasa
Dim V AS myGirl.Insan_biasa
Dim ada_masa As Boolean
Dim tulis_blog As Boolean
Dim con As OdbcConnection
Dim sqlstr As String

B = New diriku.Insan_biasa
V = New myGirl.Insan_biasa

con = New OdbcConnection("DRIVER={MySQL ODBC 3.51 Driver};SERVER=ofisku;PORT=1234;DATABASE=otakku; USER=aku;PASSWORD=sayangBini;OPTION=3;")

If ada_masa= True And hari_ini = Today then

tulis_blog = true

sqlstr = "UPDATE Blog SET Msg = '" & kejadian_harini & "' where subject1= '"B "' And subject2 = '" & V '" "

MessageBox.Show( "Hi all, To Understand this post, u'll need at least basic knowledge of programming.. ahaha.. saje nyusahkan korang...")

else

tulis_blog = false

End if
End sub