Patrique

<%
FUNCTION LoadThePage(strPageText, strInputURL)
  Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
	objXMLHTTP.Open "GET", strInputURL, False
	objXMLHTTP.Send
	strPageText = objXMLHTTP.responseText
	Set objXMLHTTP = Nothing
End FUNCTION
 
FUNCTION GrabTheContent(strStart, strEnd)

Patrique

<%
Function MixedCase(strInput)
Dim strPos, strSpace, strOutput
' Set our position variable to the start of the string.
strPosition = 1
' Loop to check spaces
Do While InStr(strPosition, strInput, " ", 1) <> 0
     strSpace = InStr(strPosition, strInput, " ", 1)
     strOutput = strOutput & UCase(Mid(strInput, strPosition, 1))
     strOutput = strOutput & LCase(Mid(strInput, strPosition + 1, strSpace - strPosition))