Uzmeš Inet kontrolu i otvoriš neku stranicu koja proverava trenutnu verziju.
Code:
Dim sReturn As String
sReturn = Inet1.OpenURL("http://nekiserver/path/updates.asp?major=" & _
App.Major & "&minor=" & App.Minor)
If sReturn = "OK" Then
'Vec ima najnoviju verziju
Else
'Postoji novija verzija
MsgBox "Izašla je verzija programa: " & sReturn
End If
stranica updates.asp bi trebala da ima ovakav kod
Code:
Dim lMajor, lMinor
Dim lMaxMajor, lMaxMinor
lMaxMajor = 2
lMaxMinor = 2
lMajor = Request("major")
lMinor = Request("minor")
If lMajor < lMaxMajor Then
response.write lMaxMajor & "." & lMaxMinor
Else
If lMinor < lMaxMinor Then
response.write lMaxMajor & "." & lMaxMinor
Else
response.write "OK"
End If
End If
Stranica ce vratiti "OK" ako korisnik ima najnoviju verziju ili ukoliko nema vraća verziju koja je postavljena kao najnovija
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu