<% Dim XMLHTTP Dim strShippingList Dim strHTML Dim strURL Dim strDomain Dim strSearch Dim strSearch2 Dim intStart Dim intEnd Set XMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") XMLHTTP.Open "GET", "http://www.diamondcomics.com/shipping/newreleases.txt", False XMLHTTP.Send strShippingList = XMLHTTP.responseText If Len(strShippingList) > 1 Then strShippingList = Replace(strShippingList, vbCrLf, "
") strShippingList = Replace(strShippingList, "Please check with your retailer for
availability.", "") strShippingList = Replace(strShippingList, "Please check with your retailer for availability.", "") strShippingList = Replace(strShippingList, " to comic book
specialty stores", "") strShippingList = Replace(strShippingList, " to comic book specialty stores ", "") strShippingList = Replace(strShippingList, "Every Monday, we provide a list of products shipping for
", "") strShippingList = Replace(strShippingList, "the current week, as well as those products expected to
ship the following week!

", "") strShippingList = Trim(strShippingList) Response.Write strShippingList Else Response.Write "

The current shipping list is not yet available. Please check back Monday.

" End If Set XMLHTTP = Nothing %>