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