Example Code: Classic ASP

Below is sample classic ASP code.

Please ensure you replace your credentials before performing a query:

<!DOCTYPE html>

<html>

<head>

    <style type="text/css">

        .form { border:10px solid #eee; padding:10px; width:500px; margin:0px auto; }

        .tb { width:380px; border-collapse:collapse; margin:10px auto; }

        .tb td { width: 50%; padding:5px; border:0px solid #eee; font-size:14px; color:#333; }

        .tb td.f { text-align:right; }

        .tb td input { width:250px; }

        .tb input.submit { width:60px; }

        .btn { margin:0px auto; text-align:center; }

    </style>

   

</head>

<body>


    <form method="post" name="form1" id="Form1" class="form">

        <table class="tb">

            <tr>

                <td class="f">Organisation UID</td>

                <td><input type="text" name="o_uid" value="adb54efc-5ds68-47f0-9baf-e5c1841f8f561" /></td>

            </tr>

            <tr>

                <td class="f">Profile UID</td>

                <td><input type="text" name="p_uid" value="c6177ac6-f2sca-40c5-9b76-119fc00808edb" /></td>

            </tr>

            <tr>

                <td class="f">MD5signature</td>

                <td><input type="text" name="md5" value="7aff630fa8b3a4ce0edc2c3bc7b3b205c" /></td>

            </tr> 

            <tr>

                <td colspan="2"><div class="btn"><input type="submit" class="submit" value="GO" name="submit" id="Submit1" /></div></td>

            </tr>       

        </table>

    </form>


<%

If Request.Form("submit").Count > 0 Then


    Response.Write "<br>START<hr>"


    SOAPRequest = _

      "<?xml version=""1.0"" encoding=""utf-8""?>" &_

      "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:con=""http://www.contego.com/xml/ContegoRequestV1"">" &_

           "<soapenv:Header/>" &_

           "<soapenv:Body>" &_

              "<con:ContegoRequest>" &_

                 "<Credentials>" &_

                    "<OrganisationUID>" & Request.Form.Item("o_uid") & "</OrganisationUID>" &_

                    "<ProfileUID>" & Request.Form.Item("p_uid") & "</ProfileUID>" &_

                    "<MD5signature>" & Request.Form.Item("md5") & "</MD5signature>" &_

                 "</Credentials>" &_

                 "<!--Optional:-->" &_

                 "<Header>" &_

                    "<!--Optional:-->" &_

                    "<RequestRef>APICHECK</RequestRef>" &_

                    "<!--Optional:-->" &_

                    "<TransactionRef>SOAPUI APICHECK</TransactionRef>" &_

                 "</Header>" &_

                 "<CheckPerson>" &_

                    "<!--Optional:-->" &_

                    "<Person>" &_

                       "<FullName>?</FullName>" &_

                       "<!--Optional:-->" &_

                       "<Forename>Owen</Forename>" &_

                       "<!--Optional:-->" &_

                       "<Surname>Aston</Surname>" &_

                       "<!--Optional:-->" &_

                       "<Middlename>J</Middlename>" &_

                       "<!--Optional:-->" &_

                       "<Gender>MALE</Gender>" &_

                       "<!--Optional:-->" &_

                       "<Title>?</Title>" &_

                       "<!--Optional:-->" &_

                       "<Nationality>?</Nationality>" &_

                       "<!--Optional:-->" &_

                       "<CountryOfResidence>?</CountryOfResidence>" &_

                       "<!--Optional:-->" &_

                       "<DOB>10/10/1971</DOB>" &_

                       "<!--Optional:-->" &_

                       "<IsDirector>TRUE</IsDirector>" &_

                       "<!--Optional:-->" &_

                       "<Address>" &_

                          "<!--Optional:-->" &_

                          "<Function>Current</Function>" &_

                          "<!--Optional:-->" &_

                          "<Address1>3</Address1>" &_

                          "<!--Optional:-->" &_

                          "<Address2>Jackson Close</Address2>" &_

                          "<!--Optional:-->" &_

                          "<Address3>?</Address3>" &_

                          "<!--Optional:-->" &_

                          "<Address4>?</Address4>" &_

                          "<!--Optional:-->" &_

                          "<Address5>?</Address5>" &_

                          "<!--Optional:-->" &_

                          "<Address6>?</Address6>" &_

                          "<!--Optional:-->" &_

                          "<Town>abingdon</Town>" &_

                          "<!--Optional:-->" &_

                          "<County/>" &_

                          "<!--Optional:-->" &_

                          "<Postcode>OX141PS</Postcode>" &_

                          "<!--Optional:-->" &_

                          "<Country>GB</Country>" &_

                       "</Address>" &_

                       "<!--0 to 2 repetitions:-->" &_

                       "<PhoneNumber>" &_

                          "<!--Optional:-->" &_

                          "<LineCategory>MOBILE</LineCategory>" &_

                          "<!--You have a CHOICE of the next 2 items at this level-->" &_

                          "<FullNumber>07500216672</FullNumber>" &_

                          "<!--Optional:-->" &_

                          "<LineCategory>LANDLINE</LineCategory>" &_

                          "<!--You have a CHOICE of the next 2 items at this level-->" &_

                          "<FullNumber>01235515978</FullNumber>" &_

                       "</PhoneNumber>" &_

                    "</Person>" &_

                 "</CheckPerson>" &_

              "</con:ContegoRequest>" &_

           "</soapenv:Body>" &_

        "</soapenv:Envelope>"


    

    

    Set oXmlHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")

    oXmlHTTP.Open "POST", "http://qa.contego.com/wsdl/v1", False

    oXmlHTTP.setRequestHeader "Content-Type", "text/xml; charset=utf-8"     

    //oXmlHTTP.setRequestHeader "SOAPAction", "http://qa.contego.com/wsdl/v1"

        

    Response.Write "Sending... <br />"

    oXmlHTTP.send SOAPRequest

    Response.Write Server.HTMLEncode(oXmlHTTP.responseText)   

    Response.Write "<br>Response status : "

    Response.Write oXmlHTTP.status

    Response.Write "<br><hr>END"

end if

%>


</body>


</html>

Feedback and Knowledge Base