Dove dichiari la variabile message basta che fai una condizionale dove attribuisci un valore alla variabile in base alla lingua del browser, riconosciuta dalla variabile server Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

Es.

<%

Dim strUsrLng
Dim strMessage

strUsrLng = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

If strUsrLng = "it" Then
strMessage = "fatto!"
ElseIf strUsrLng = "en" Then
strMessage = "done!"
End If

Response.Write(strMessage)
%>

Bye