VBScript:

If LCase(request.ServerVariables(“HTTPS”)) = “off” Then
response.write “Error: access denied”
response.end
End If

JavaScript:

if(location.protocol != “https:”)
{
alert(“Error”);
}