How to send information to a web page with Inet control

<%

    ÔÇÿ Suppose that ÔÇ£BÔÇØ is the
new version of our application.

    if request.form(ÔÇ£VersionÔÇØ)
<> ÔÇØBÔÇØ then

        response.write ÔÇ£to_appÔÇØ
ÔÇÿ Hey, you must update!

    else

        response.write ÔÇ£okÔÇØ
ÔÇÿ All ok.

    end if

    ÔÇÿ With registration key you
can do all you want, for example put it into a database to track users

    ÔÇÿ updatesÔǪ he he he good for privacy :-]

    ÔÇÿ ÔǪ

%>



Now we only need to add to our program the
check-routine.

On a form put an Inet control (Inet1)  and
add this code, for example, on the click event of a button:  

   
ÔÇÿ ÔǪ

    Dim strUrl As
String

    Dim strFormData As
String



    ÔÇÿ Suppose that the version of
our app is ÔÇ£AÔÇØ   

    strFormData = "Version=A&Key=123ABC"

    strUrl = "The address of the prev.. ASP
page"

   
Inet1.url = strUrl

    Inet1.Execute strUrl, "POST", strFormData, _

        "Content-Type:
application/x-www-form-urlencoded"

    ÔÇÿ ÔǪ 

Private
Sub Inet1_StateChanged(ByVal State As
Integer)

    Dim strTemp As
String

    If State = 12
Then ÔÇÿ If operation is
completed

        strTemp = Inet1.GetChunk(32000)

        strTemp = Trim(strTemp)

        If
strTemp = ÔÇ£to_appÔÇØ then

            MsgBox
ÔÇ£You must update the application!ÔÇØ

        ElseIf
strTemp = ÔÇ£okÔÇØ then

            MsgBox
ÔÇ£No updates aviableÔÇØ

        Else

            MsgBox
ÔÇ£Unknow responseÔÇØ

        End If

    End If

End Sub



As you can see this is only a silly little example,
but with this you can understand how to sending informations to a web-page in a
easy way.

Remember that you must URL-Encode each byte you send to the page and that some
special chars may lost during encoding.



That's all, folks



Hope this tutorial help you!

SebaMix