Classic ASP
Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set http = Server.CreateObject("Chilkat.Http")

' Sample HTML with a META refresh.

' <!DOCTYPE html>
' <html lang="en">
' <head>
'   <meta charset="utf-8" />
'   <meta http-equiv="refresh" content="5; url=https://example.com" />
'   <title>Meta Refresh Redirect</title>
' </head>
' <body>
'   <p>Redirecting to example.com in 5 seconds�</p>
' </body>
' </html>

set sb = Server.CreateObject("Chilkat.StringBuilder")
bCrlf = 1
success = sb.AppendLine("<!DOCTYPE html>",bCrlf)
success = sb.AppendLine("<html lang=""en"">",bCrlf)
success = sb.AppendLine("<head>",bCrlf)
success = sb.AppendLine("  <meta charset=""utf-8"" />",bCrlf)
success = sb.AppendLine("  <meta http-equiv=""refresh"" content=""5; url=https://example.com"" />",bCrlf)
success = sb.AppendLine("  <title>Meta Refresh Redirect</title>",bCrlf)
success = sb.AppendLine("</head>",bCrlf)
success = sb.AppendLine("<body>",bCrlf)
success = sb.AppendLine("  <p>Redirecting to example.com in 5 seconds�</p>",bCrlf)
success = sb.AppendLine("</body>",bCrlf)
success = sb.AppendLine("</html>",bCrlf)

url = http.ExtractMetaRefreshUrl(sb.GetAsString())
If (http.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "The HTML has no META refresh tag.") & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "META refresh URL: " & url) & "</pre>"
End If


%>
</body>
</html>