Tracing Registered Air Mail dari hongkong pada PosIndonesia

 Untuk Tracing Registered Air Mail  dari hongkong jika barang tersebut sudah dikirim oleh pihak hongkong post dan sudah masuk di indoensia, adalah lewat alamat berikut:
http://ems.posindonesia.co.id
pilih Registered Mail 
masukan Number of the Shipment:
klik search 

Tracing Registered Air Mail dari hongkong

pada tanggal 9 Agustus 2010 saya membeli aPad dari hongkong memakai pembayaran paypal.
untuk tracing barang tersebut lewat web berikut alamat web hongkongpost utuk tracing barang yang akan dikirim ke indonesia
http://app3.hongkongpost.com/CGI/mt/enquiry.jsp

Membersihkan spool printer pada windows seven

1. Klik Start.
2. Arahkan ke menu  Command.
3. klik kanan pada menu Command Prompt dan  pilih Run as administrator.
4. ketik:  net stop spooler dan Enter.
5. ketik:  del %systemroot%\System32\spool\printers\* /Q dan Enter.
6.  ketik:  net start spooler dan Enter.

Capture Hasil url pakai ASP Classic

Capture/Menangkap hasil keluaran dari url lain (semisal PHP,ASP,JSP dll) pakai program ASP Clasic. Berikut coding nya.

<%@ Language=vbScript%>
<%
    DataToSend = "coba=sunarto&jajal=iqbal"
    dim xmlhttp
    set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "POST","http://www.taruhiklan.com/coba2.php",false
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.send DataToSend
        formatdata = xmlhttp.responseText
        Response.write(formatdata)
%>


Perhatikan Variabel DataToSend, variabel tersebut memuat form post yang nama variabel nya coba dan jajal. Beserta isinya.
Kemudian pd bagian bawahnya menjalankan url sekaligus menangkap hasil keluaran nya.

Terima kasih, semoga bermanfaat.

MySqlDataReader in VB Express 2010

atas sendiri tambah command berikut
Imports MySql.Data.MySqlClient

  Private Sub Tampil()
        Dim conn As New MySql.Data.MySqlClient.MySqlConnection
        If conn.State = ConnectionState.Closed Then
            Dim myString As String = "server=localhost;user=root;password=;database=dbName"
            Try
                conn.ConnectionString = myString
                conn.Open()
            Catch ex As MySql.Data.MySqlClient.MySqlException
                MsgBox(ex.Message)
                End
            End Try
        End If


        Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
        nis.Text = grid.Item(0, grid.CurrentRow.Index).Value

        cmd.CommandText = "SELECT * from datasiswa where nis='" & nis.Text & "'"
        cmd.Connection = conn
        Dim reader As MySqlDataReader = cmd.ExecuteReader()

        While reader.Read
            nama.Text = reader("nama")
        End While


    End Sub