Skicka meddelande/pager till ICQ via ASP?

Det funkar väl med mail?

' Skapa nåt mailkomponents-objekt
mailObject.To = "uin@pager.icq.com" ' Eller vad det nu är

Kanske så här:

<form action="http://msg.mirabilis.com/scripts/WWPMsg.dll" method="post" target="_blank">
<input type="hidden" name="subject" value="Allmänt Meddelande">
<input type="hidden" name="to" value="1654894621">
<input type="text" name="from" value="Ditt Namn" size="16" maxlength="40">
<input type="text" name="fromemail" value="Din E-post" size="16" maxlength="40">
<input name="body" type="text" size="35" maxlength="400" value="Meddelande">
<input type="submit" value="Send">
</form>

"uin@pager.icq.com" verkar inte komma fram, och ja, jag har bytt ut uin till mitt uin :) och med:
<form action="http://msg.mirabilis.com/scripts/WWPMsg.dll" method="post" target="_blank">
<input type="hidden" name="subject" value="Allmänt Meddelande">
<input type="hidden" name="to" value="1654894621">
<input type="text" name="from" value="Ditt Namn" size="16" maxlength="40">
<input type="text" name="fromemail" value="Din E-post" size="16" maxlength="40">
<input name="body" type="text" size="35" maxlength="400" value="Meddelande">
<input type="submit" value="Send">
</form>

Så kommer man ju till icqs fula skitsida efteråt, det är ju inte lyckat :)

Så kommer man ju till icqs fula skitsida efteråt, det är ju inte lyckat

Det är rätt lätt att komma förbi. :)
Skicka först datan till ett eget ASP-dokument, och öppna en koppling till ICQ's dll-fil med XMLHTTP och skicka datan. Sen tar du emot informationen som returneras och formaterar om den. :)

Du har inte lust att slänga in ett exempel på hur det skulle kunna se ut? :)

Något liknande kanske fungerar:

Dim objXMLHTTP, objXML
Dim strReturn, strHeader

strHeader = "POST /scripts/WWPMsg.dll HTTP/1.1" & vbCrLf
strHeader = strHeader & "Host: msg.mirabilis.com" & vbCrLf
strHeader = strHeader & "Content-Type: application/x-www-form-urlencoded" & vbCrLf & vbCrLf
strHeader = strHeader & "subject=" & Server.HTMLEncode ( Request.Form ( "subject" ) )
strHeader = strHeader & "&to=" & Request.Form ( "to" )
strHeader = strHeader & "&from=" & Server.HTMLEncode ( Request.Form ( "from" ) )
strHeader = strHeader & "&fromemail=" & Server.HTMLEncode ( Request.Form ( "fromemail" ) )
strHeader = strHeader & "&body=" & Server.HTMLEncode ( Request.Form ( "body" ) )

set objXML = Server.CreateObject ( "MSXML2.DOMDocument" )
objXML.async = False
objXML.LoadXML strHeader

set objXMLHTTP = Server.CreateObject ( "MSXML2.ServerXMLHTTP" )
objXMLHTTP.Open "POST", "http://msg.mirabilis.com/scripts/WWPMsg.dll", False
objXMLHTTP.Send objXML

If objXMLHTTP.Status <> 200 Then
     Response.Write "Kunde inte koppla mot mirabilis.com"

     set objXMLHTTP = Nothing
     Response.End
End If

If objXMLHTTP.ReadyState = 4 Then
     objXMLHTTP.WaitForResponse 10
End If

strReturn = objXMLHTTP.ResponseText

' strReturn innehåller nu hela sidan som skickades från mirabilis.com, och du kan formatera den hur du vill - förslagsvis med reguljära uttryck
' Skriver du ut strReturn direkt, så får du fram hela sidan som den skulle se ut om du gick direkt till mirabilis.com

Helt otestat, men förhoppningsvis ska det se ut något sånt. :)

Jag är lite osäker på hur headern ska byggas upp, kanske någon mer kunnig kan rätta mig. :)

Kanske lite rolig läsning:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/htm/xml_obj_iserverxmlhttprequest_5115.asp
:)

jag provade den xml koden du postade, och det verkar inte funka, iaf inte för mej.. får felmeddelande:

msxml3.dll (0xC00CE556)
Systemfel: -1072896682.

på rad 20: objXMLHTTP.Send objXML