• 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

    • Space Marine 2 gains a horde mode and DLSS 4 with new Siege update by Pulasthi Ariyasinghe Warhammer 40,000: Space Marine 2 just received its next major update. Dubbed the Siege update, it is finally bringing the long-promised horde mode for the third-person action game, as well as new tech for PC gamers. The Siege mode takes place on a fortified Imperial stronghold on Kadaku that is enduring endless attacks by Tyranids and Thousand Sons. There are three sections in total that players will defend in order before circling back to the original position, fighting away thousands of enemies in five waves before swapping locations. To give players a small break, there's a one-minute gap between each wave to resupply and purchase perks from the points they collect while in battle. Players can call in AI-controlled specialized soldiers, Space Marines, or even a Dreadnought to help out if the waves get a little too tough. To cap it all off, every fifth wave a boss encounter kicks off. There are 15 waves to go through in a single session, but parties can also kick off an endless mode at the end of these to see how far they can get. "Siege Mode expands on our PVE operations, emphasizing endless enemy waves that challenge even the strongest teams," says Focus Entertainment, describing the new mode. "When overwhelmed, players may call reinforcements for assistance. Engage in intense battles across three distinctive sectors, each requiring strategic adaptation. Side objectives emerge during combat, providing essential resources used to summon elite Space Marines or a formidable Dreadnought, drastically shifting battlefield dynamics. Over on PC, the studio has added two new options. One is RTAO (Ray-Traced Ambient Occlusion), though this is currently listed as an experimental feature. Next, Nvidia 5000 series graphics card owners can now enable DLSS 4 for better upscaling tech as well as multi-frame generation. The complete patch notes for Patch 8, which includes details on the balance changes, can be found here. The Warhammer 40,000: Space Marine 2 Siege update is now available on PC, Xbox Series X|S, and PlayStation 5.
    • Microsoft updates Media Creation Tool with a newer Windows 11 release by Taras Buria If you want to download a Windows 11 image or create an install media, the Media Creation Tool app is one of the best options—simple, fast, and, more importantly, official. While there are other useful alternatives, such as Rufus, Media Creation Tool remains the default choice for those who simply want a clean Windows 11 installation on a supported computer. Thanks to the latest MCT update, you will have to deal with fewer updates after installing Windows 11. Microsoft has quietly updated the Media Creation Tool app so that it downloads the latest Windows 11 release, version 24H2, with build number 26100.4349. This is the most recent public Windows 11 update (June 2025 Patch Tuesday), which eliminates the need to download large updates for your PC after installing the operating system. You can download Media Creation Tool from the official Windows 11 website. If you are familiar with it, this simple app can generate a Windows 11 image with the language you need or create a bootable USB media. Note that it only works on Windows, so Linux or macOS users have to download Windows images directly from the official website and then use apps that are available on their platforms. Another thing worth noting is Media Creation Tool is not the right choice if you want to install Windows 11 on an unsupported PC. In such a case, you can use MCT to download an ISO and then create a modified install media with apps like Rufus or Ventoy as described in our dedicated guide. If you want a more exotic Windows 11 Edition, try the Oofhours Media Tool, which allows you to select Windows 10 or 11, architecture (x64, x86, or ARM64), language, and edition. In addition to standard Home and Pro, the application can download non-mainstream SKUs, such as Enterprise, Education, or Professional for Workstations. Via: Deskmodder
    • Putting premium on your higher end laptops really makes it feel like your lower end laptops are worse.
    • Funny enough just removed insta account and whatsapp is next. Less power needed now
  • Recent Achievements

    • 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
    • Rising Star
      Phillip0web went up a rank
      Rising Star
    • One Month Later
      Epaminombas earned a badge
      One Month Later
  • Popular Contributors

    1. 1
      +primortal
      538
    2. 2
      ATLien_0
      207
    3. 3
      +FloatingFatMan
      174
    4. 4
      Michael Scrip
      148
    5. 5
      snowy owl
      119
  • Tell a friend

    Love Neowin? Tell a friend!