<%@ Language=VBScript %> <% Dim sLogin, sPassword, sClientId, sUrl Dim oIE, sHTML, sId ' insert appropriate values here sLogin = "[ login id ]" sPassword = "[ password ]" ' get the form values sClientId = Request.Form("client_id") sCourt = Request.Form("court") ' client validation code could go here if sCourt = "CA_Central_Bankr_LA_PACER" then %>

<% elseif sCourt = "CA_Northern_CMECF" then ' NOTE: to make this work you have to make a change ' to how IIS is configured. Specifically, "you must set ' the AspAllowOutOfProcComponents metabase setting". This ' is normally considered a bad thing, but on an intranet ' server it's probably ok. The issue (and how to correct it) ' are documented in Microsoft's Knowledge Base Article ' #184682. ' ' That said, if someone can point me to a "safe" control ' that will retrieve web documents, I'm open to suggestions. Set oIE = Server.CreateObject("InternetExplorer.Application") oIE.Navigate("https://ecf.casb.uscourts.gov/cgi-bin/login.pl") Do While (oIE.Busy) WScript.Sleep 10 Loop sHTML = oIE.Document.documentElement.innerHTML iBegin = InStr(sHTML, "/cgi-bin/login.pl?") ' Note: for some reason all double quotes are stripped away ' before the the HTML gets to this point, so I have to ' search for the "method" instead of the closing set of quotes, ' like in the other code samples iEnd = InStr(iBegin, sHTML, " method") sId = Mid(sHTML, (iBegin + 18), (iEnd - iBegin - 18)) %>

<% else %> Court type not recognized <% end if %>