[AccessD] A2003: POST a set of params to a Web Resource

[Stuart McLachlan]

That message means that you are not getting a response bac from the URL.

(URL = Uniform RESOURCE locator)

Without knowing a lot more about  hooks.workast.app/Do7DOEFPZDzAS20cvtt6E, I can't tell 
why it is not working.


On 15 Jul 2019 at 12:17, Darren - Active Billing wrote:

> Hi Stuart,
> 
> Sorry to harass - Just wondering if I could chase you on this one
> below - Many thanks in advance
> 
> Darren. 
> 
> 
> 
> On 13/7/19, 3:57 am, "AccessD on behalf of Darren - Active Billing"
> <accessd-bounces at databaseadvisors.com on behalf of
> darren at activebilling.com.au> wrote:
> 
>     Stuart,
> 
>     Thank you so much for replying. Sadly... no joy.
> 
>     Also - realise I have no clue what I am doing here. So I may have
>     stuffed something.
> 
>     I get an error on the line "myXMLHTTP.send strPostData" 
> 
>      Error = "Run-time error '-2146697211 (800c0005)': "The System
>      Cannot Locate the resource specified"
> 
>     All I have done since getting your cool code below is, reference
>     MSXML6 and Place my URL in the line you had at:
> 
>      myXMLHTTP.Open "POST", "http://www.example.com/addtask.php",
>      False
> 
>     with
> 
>      myXMLHTTP.Open "POST",
>      "https://hooks.workast.app/Do7DOEFPZDzAS20cvtt6E", False
> 
>     Do you have any suggestions?
> 
>     Many thanks in advance.
> 
>     Darren. 
> 
>     ------------------------------------------------------------------
>     ---------
> 
>     On 12/7/19, 12:56 pm, "AccessD on behalf of Stuart McLachlan"
>     <accessd-bounces at databaseadvisors.com on behalf of
>     stuart at lexacorp.com.pg> wrote:
> 
>         ---- Code HTTP POST-------------
> 
>         Option Compare Database
>         Option Explicit
> 
>         Function GetDBDump()
>         'Requires a reference to Microsoft XML 2.0 or greater
>         'I've use Microsoft XML 6.0 in Office 10.
> 
>         Dim myXMLHTTP As XMLHTTP60
>         Set myXMLHTTP = New XMLHTTP60
>         Dim strResult As String
>         Dim strPostData as String
>         strPostData = URLEncode("text=This is  theTask Name for Task
>         No: 4&description=This is the Description for Task No:
>         4&dueDate:'2019-10-07'") myXMLHTTP.Open "POST", _
>             "http://www.example.com/addtask.php", False
>         myXMLHTTP.setRequestHeader "User-Agent", "Mozilla/4.0
>         (compatible; MSIE 6.0; Windows NT 5.0)"
>         myXMLHTTP.setRequestHeader "Content-type",
>         "application/x-www-form-urlencoded" myXMLHTTP.send strPostData
>         strResult = myXMLHTTP.responsetext debug.print strResult Set
>         myXMLHTTP = Nothing End Function
> 
> 
>         --------------END HTTP POST
>         -------------------------------------
> 
>         -------------URL ENCODE/DECODE
>         ---------------------------------
> 
>         Public Function URLEncode(StringToEncode As String, Optional _
>            UsePlusRatherThanHexForSpace As Boolean = False) As String
> 
>         Dim TempAns As String
>         Dim CurChr As Integer
>         CurChr = 1
>         Do Until CurChr - 1 = Len(StringToEncode)
>           Select Case Asc(Mid(StringToEncode, CurChr, 1))
>             Case 48 To 57, 65 To 90, 97 To 122
>               TempAns = TempAns & Mid(StringToEncode, CurChr, 1)
>             Case 32
>               If UsePlusRatherThanHexForSpace = True Then
>                 TempAns = TempAns & "+"
>               Else
>                 TempAns = TempAns & "%" & Hex(32)
>               End If
>            Case Else
>                  TempAns = TempAns & "%" & _
>                       Format(Hex(Asc(Mid(StringToEncode, _
>                       CurChr, 1))), "00")
>         End Select
> 
>           CurChr = CurChr + 1
>         Loop
> 
>         URLEncode = TempAns
>         End Function
> 
> 
>         Public Function URLDecode(StringToDecode As String) As String
> 
>         Dim TempAns As String
>         Dim CurChr As Integer
> 
>         CurChr = 1
> 
>         Do Until CurChr - 1 = Len(StringToDecode)
>           Select Case Mid(StringToDecode, CurChr, 1)
>             Case "+"
>               TempAns = TempAns & " "
>             Case "%"
>               TempAns = TempAns & Chr(Val("&h" & _
>                  Mid(StringToDecode, CurChr + 1, 2)))
>                CurChr = CurChr + 2
>             Case Else
>               TempAns = TempAns & Mid(StringToDecode, CurChr, 1)
>           End Select
> 
>         CurChr = CurChr + 1
>         Loop
> 
>         URLDecode = TempAns
>         End Function
> 
> 
> 
> 
> 
>     -- 
>     AccessD mailing list
>     AccessD at databaseadvisors.com
>     http://databaseadvisors.com/mailman/listinfo/accessd
>     Website: http://www.databaseadvisors.com
> 
> 
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com