HELP!!!!!!!<BR><BR>I created a ActiveX Control.. (Cool huh?) =) but I&#039m having MASSIVE problems with this and another ActiveX<BR><BR>When I run the ASP script I get this Error:<BR> SiteUtils error &#039 800a01ad&#039 <BR> ActiveX component can&#039t create object <BR> /foobar/SiteUtilsText.asp, line 10 <BR><BR>I did make sure that I referanced the MSwSock.Dll with in the DLL... any ideas?!?!?!?!<BR><BR><BR>ASP Script:<BR>-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=<BR>&#060;HTML&#062;<BR>&#060;BODY&#062;<BR>&#060 ;%<BR>Dim PageObj<BR>Set PageObj = Server.CreateObject("SiteUtils.HTTP")<BR>Response. Write (PageObj.httpGet(""))<BR>%&#062;<BR>&#060;/BODY&#062;<BR>&#060;/HTML&#062;<BR><BR>ActiveX Code:<BR>-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=<BR>Private WithEvents objWinSock As MSWinsockLib.Winsock<BR><BR>Private strURL As String<BR>Private strURI As String<BR>Private strServer As String<BR>Private nPort As Long<BR>Private strHead As String<BR>Private strData As String<BR>Private bConnected As Boolean<BR><BR>Public Function httpGet(URL As String) As String<BR> Set objWinSock = New MSWinsockLib.Winsock<BR> strURL = URL<BR> ParseURL<BR> Connect<BR> SendRequest<BR> objWinSock.Close<BR> strHead = Left(strData, InStr(strData, vbCrLf & vbCrLf))<BR> strData = Right(strData, Len(strData) - InStr(strData, vbCrLf & vbCrLf))<BR> httpGet = strData<BR>End Function<BR>Private Sub ParseURL()<BR> If LCase(Left(strURL, 7)) = "http://" Then<BR> If InStr(8, strURL, "/") = 0 Then<BR> strServer = Right(strURL, Len(strURL) - 7)<BR> strURI = "/"<BR> Else<BR> strServer = Mid(strURL, 8, InStr(8, strURL, "/") - 8)<BR> strURI = Right(strURL, Len(strURL) - InStr(8, strURL, "/") + 1)<BR> End If<BR> If InStr(strServer, ":") &#060;&#062; 0 Then<BR> nPort = CLng(Right(strServer, Len(strServer) - InStr(strServer, ":")))<BR> strServer = Left(strServer, InStr(strServer, ":") - 1)<BR> End If<BR> If nPort = 0 Then nPort = 80<BR> Else<BR> Err.Raise vbObjectError, "aspZone.http", "Malformed URL"<BR> End If<BR>End Sub<BR>Private Sub Connect()<BR> Dim dtStart As Date<BR> dtStart = Now()<BR> objWinSock.RemoteHost = strServer<BR> objWinSock.RemotePort = nPort<BR> objWinSock.Connect<BR> Do Until bConnected<BR> DoEvents<BR> If DateDiff("s", dtStart, Now) &#062; 30 Then<BR> Err.Raise vbObjectError, "aspZone.http", "Connect Timeout"<BR> End If<BR> Loop<BR>End Sub<BR>Private Sub SendRequest()<BR> Dim strCmd<BR> Dim dtStart As Date<BR> dtStart = Now()<BR> strCmd = "GET " & strURI & " HTTP/1.0" & vbCrLf<BR> strCmd = strCmd & "User-Agent: aspZone.http" & vbCrLf<BR> strCmd = strCmd & "Accept: */*" & vbCrLf<BR> strCmd = strCmd & vbCrLf<BR> objWinSock.SendData strCmd<BR> Do Until objWinSock.State = sckClosing<BR> DoEvents<BR> If DateDiff("s", dtStart, Now) &#062; 60 Then<BR> Err.Raise vbObjectError, "aspZone.http", "Request Timeout"<BR> End If<BR> Loop<BR>End Sub<BR>Public Property Get Head() As Variant<BR> Head = strHead<BR>End Property<BR>Public Property Get Body() As Variant<BR> Body = strData<BR>End Property<BR>Private Sub objWinSock_DataArrival(ByVal bytesTotal As Long)<BR> Dim strTemp<BR> objWinSock.GetData strTemp, vbString<BR> strData = strData & strTemp<BR>End Sub<BR>Private Sub objWinSock_Connect()<BR> bConnected = True<BR>End Sub<BR>Private Sub objWinSock_Error(ByVal Number As Integer, Description As String, _<BR> ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _<BR> ByVal HelpContext As Long, CancelDisplay As Boolean)<BR><BR> Err.Raise vbObjectError, "aspZone.http", "Winsock Error: " & Number & vbCrLf & Description<BR> CancelDisplay = True<BR>End Sub