• 0

[ASP/XML] Sending a Page via WCTP


Question

So working with some ASP (vbscript to be exact) and I am trying to setup some sort of form with the ability to send people pages.

I have the form written and working, but I would like to. If this is even possible, send the page using WCTP.

<?xml version="1.0"?>

<!DOCTYPE wctp-Operation SYSTEM "http://wctp.usamobility.net/DTD/wctp-dtd-v1r1.dtd">

<wctp-Operation wctpVersion="wctp-dtd-v1r1">

<wctp-SubmitRequest>

<wctp-SubmitHeader>

<wctp-Originator senderID="user@domain"/>

<wctp-Recipient recipientID="subscriberPIN"/>

</wctp-SubmitHeader>

<wctp-Payload>

<wctp-Alphanumeric>Message text goes here.

</wctp-Alphanumeric>

</wctp-Payload>

</wctp-SubmitRequest>

</wctp-Operation>

that is apparently all the information I need to send to a specific address. In this case its wctp.usamobility.net/wctp

here is what I have now now I have the second XML string commented out because with it uncommented the page doesnt even load. If I comment it out I receive a message that says

XML sent!

TrueTarget URL: http://wctp.usamobility.net/wctp

so I am thinking that this may be the problem. However I dont know exactly what is causing the issue. I am pretty new to ASP.

&lt;%
xmlString = "&lt;?xml version=""1.0""?&gt;" &amp; vbcrlf
'xmlString = xmlString &amp; "&lt;!DOCTYPE wctp-Operation SYSTEM ""http://wctp.usamobility.net/DTD/wctp-dtd-v1r1.dtd"">bcrlf
xmlString = xmlString &amp; "&lt;wctp-Operation wctpVersion=""wctp-dtd-v1r1""&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;wctp-SubmitRequest&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;wctp-SubmitHeader&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;wctp-Originator senderID=""a pager id""/&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;wctp-Recipient recipientID=""some number""/&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;/wctp-SubmitHeader&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;wctp-Payload&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;wctp-Alphanumeric&gt;This is a test WCTP Message&lt;/wctp-Alphanumeric&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;/wctp-Payload&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;/wctp-SubmitRequest&gt;" &amp; vbcrlf
xmlString = xmlString &amp; "&lt;/wctp-Operation&gt;" &amp; vbcrlf
'objHttpRequest.setoption(2,13056)
Set SendDoc = server.createobject("Microsoft.XMLDOM")
SendDoc.ValidateOnParse=True
SendDoc.LoadXML(xmlString)

sURL = "http://wctp.usamobility.net/wctp"

Set NewDoc = xmlSend (sURL, SendDoc) 'xmlString)

Response.Write "&lt;b&gt;XML sent!&lt;/b&gt;&lt;br&gt;"
Response.Write "SendDoc.XML &amp; "&lt;br&gt;""
response.write "&lt;b&gt;Target URL:&lt;/b&gt; " &amp; sURL &amp; "&lt;br&gt;"


private function xmlsend(url, docSubmit)
Set poster = Server.CreateObject("MSXML2.XMLHTTP")
poster.open "POST", url, false
poster.setRequestHeader "CONTENT_TYPE", "text/xml"
poster.send docSubmit
Set NewDoc = server.createobject("Microsoft.XMLDOM")
newDoc.ValidateOnParse= True
newDoc.LoadXML(poster.responseTEXT)

Set XMLSend = NewDoc
Set poster = Nothing
end function
%&gt;

Edited by Sophism
Link to comment
https://www.neowin.net/forum/topic/812930-aspxml-sending-a-page-via-wctp/
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Thanks. i got this to work.

Basically this is the code I used.

Dim Pagernumbers, Pagernumbs, pager
Pagernumbers = Request.form("pagenumbsgernumbs = split(Pagernumbers,",")
	For Each pager in pagernumbs
		sURL = "http://wctp.metrocall.com/wctp"
		Set http = Server.CreateObject("msxml2.ServerXMLHTTP")
		http.Open "POST", sURL
			xmldata = "&lt;?xml version=""1.0""?&gt;"
			xmldata = xmldata &amp; "&lt;!DOCTYPE wctp-Operation SYSTEM ""http://wctp.usamobility.net/DTD/wctp-dtd-v1r1.dtd"">ata = xmldata &amp; "&lt;wctp-Operation wctpVersion=""wctp-dtd-v1r1""&gt;"
			xmldata = xmldata &amp; "&lt;wctp-SubmitRequest&gt;"
			xmldata = xmldata &amp; "&lt;wctp-SubmitHeader&gt;"
			xmldata = xmldata &amp; "&lt;wctp-Originator senderID=""Intranet""/&gt;"
			xmldata = xmldata &amp; "&lt;wctp-Recipient recipientID=""" &amp; pager &amp; """/&gt;"
			xmldata = xmldata &amp; "&lt;/wctp-SubmitHeader&gt;"
			xmldata = xmldata &amp; "&lt;wctp-Payload&gt;"
			xmldata = xmldata &amp; "&lt;wctp-Alphanumeric&gt;" &amp; Request.Form("MSSGmp; "&lt;/wctp-Alphanumeric&gt;"
			xmldata = xmldata &amp; "&lt;/wctp-Payload&gt;"
			xmldata = xmldata &amp; "&lt;/wctp-SubmitRequest&gt;"
			xmldata = xmldata &amp; "&lt;/wctp-Operation&gt;"
		http.Send xmldata
	Next

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Just give a great simple monitor. No AI nonsense. What's next? AI mouse that knows where you want to move?
    • Certificates for one of Windows 11's hardware requirements expire soon, here is what to know by Taras Buria Secure Boot is a known term for Windows 11 users. It is one of Windows 11's hardware requirements, and without it, the operating system cannot be installed, at least officially. Secure Boot was introduced in 2012 with the release of Windows 8, and its certificates, first issued in 2011, are set to expire soon. Now, Microsoft has posted a blog post about the importance of this event and why organizations and users must ensure their Secure Boot certificates are up to date. In a nutshell, Secure Boot is a special mechanism that ensures that your PC is using verified firmware and a trusted bootloader. Certificates released in 2011 will expire in June 2026, and if left outdated, will disrupt the integrity of the device startup process. Without new certificates, Windows Boot Manager and Secure Boot components can't receive security fixes, leaving affected devices exposed to bootkit malware (such as BlackLotus), which is very hard to detect with standard antivirus software. Other results of having expired Secure Boot certificates include the inability to trust software signed with new certificates. PCs that could be affected by expired certificates include physical and virtual machines (VMs) with supported versions of Windows 10, Windows 11, Windows Server 2025, Windows Server 2022, Windows Server 2019, Windows Server 2016, Windows Server 2012, Windows Server 2012 R2. Copilot+ PCs released in 2025 are not affected. To avoid these potentially disastrous consequences, Microsoft urges organizations and users to update their entire PC fleet to newer certificates, which were released in 2023: Expiration Date Expiration Certificate Updated Certificate What it does Storing Location June 2026 Microsoft Corporation KEK CA 2011 Microsoft Corporation KEK 2K CA 2023 Signs updates to DB and DBX Key Enrollment Key (KEK) Microsoft Corporation UEFI CA 2011 (or third-party UEFI CA)* Microsoft Corporation UEFI CA 2023 Microsoft Option ROM UEFI CA 2023 Signs third-party OS and hardware driver components Signs third-party option ROMs Allowed Signature database (DB) October 2026 Microsoft Windows Production PCA 2011 Windows UEFI CA 2023 Signs the Windows bootloader and boot components So, what do you need to do? Microsoft says that the easiest solution is to let Microsoft manage your Windows updates. In the upcoming months, Microsoft will release new certificates as part of monthly cumulative updates, so it will take care of everything for you. The company also recommends enrolling Windows 10 devices in the Extended Security Updates program, which is free for regular consumers and paid for enterprises. Microsoft will also provide the necessary certificates for Linux systems that dual-boot Windows. Of course, not every Windows PC can receive such updates. For example, so-called "air-gapped" devices, which are physically isolated from the internet and local networks, cannot receive updates like your home PC does. For such devices, Microsoft offers limited support, which is detailed in the blog post. You can also track Windows Secure Boot certificate updates on a newly published support document. You can check if your system has Secure Boot enabled by pressing Win + R, typing msinfo32, and checking "Secure Boot State."
  • Recent Achievements

    • One Month Later
      jfam earned a badge
      One Month Later
    • First Post
      TheRingmaster earned a badge
      First Post
    • Conversation Starter
      Kavin25 earned a badge
      Conversation Starter
    • One Month Later
      Leonard grant earned a badge
      One Month Later
    • Week One Done
      pcdoctorsnet earned a badge
      Week One Done
  • Popular Contributors

    1. 1
      +primortal
      547
    2. 2
      ATLien_0
      201
    3. 3
      +FloatingFatMan
      176
    4. 4
      Michael Scrip
      147
    5. 5
      snowy owl
      114
  • Tell a friend

    Love Neowin? Tell a friend!