Hvordan sender jeg et HTTP kald UDEN...

Med et komponent som asphttp eller asptear.

netsrac >>
kan du uddybe?

Prøv en komponent som w3 Sockets fra Dimac (http://tech.dimac.net/isapiscript.dll?action=read&id=32494). Med den installeret kan du f.eks. hente Ekspertens forside som følger:

Dim objSocket
Dim strHTTPReq, strHTML

strHTTPReq = \"\"
strHTTPReq = strHTTPReq & \"GET / HTTP/1.1\" & vbCRLF
strHTTPReq = strHTTPReq & \"Host: www.eksperten.dk\" & vbCRLF
strHTTPReq = strHTTPReq & \"Connection: Close\" & vbCRLF
strHTTPReq = strHTTPReq & vbCRLF

Set objSocket = CreateObject(\"Socket.TCP\")

With objSocket
  .Host = \"www.eksperten.dk:80\"
  .Open() \'Åbn forbindelsen
  .SendText(strHTTPReq) \' SendText() indsætter ikke et linieskift efter teksten, hvad SendLine() gør
  .WaitForDisconnect() \' Modtager data indtil den anden ende lukker forbindelsen
  .Close()
End With

strHTML = objSocket.Buffer

Set objSocket = Nothing

Ja du skal have fyret op under et komponent på serveren ellers kan det ikke gøres med ASP, ta et kig på: http://www.activeserverpages.dk/aspdigital/kapitel5/asphttp.asp

Pjat med jer :)
microsoft.XMLhttp som er standard på en win2k maskine :)
Den skulle gerne kunne løse dit lille problem...søg efter xmlhttp på www.mdsn.microsoft.com

drean >>
Jeg har kun kunne finde doc. om http kald med post-metoden. ( http://support.microsoft.com/support/kb/articles/Q290/5/91.ASP )
Jeg skal lave et HTTP kald der ser sådan her ud..
http://<host>/<service>?cmd=sendTune&tune=<x>&to=<phonenr>

dvs du bare skal lege browser som henter siden ?

drean >>
jeg er ikke sikker på at jeg forstår hvad du mener...
men, jeg skal báre sende to variable værdier \"ud af huset\": tune og to.

<%
    DataToSend = \"id=1\"
    dim xmlhttp
    set xmlhttp = server.Createobject(\"MSXML2.ServerXMLHTTP\")
    xmlhttp.Open \"GET\",\"http://<host>/<service>?cmd=sendTune&tune=<x>&to=<phonenr>
\",false
    xmlhttp.setRequestHeader \"Content-Type\", \"application/x-www-form-urlencoded\"
    xmlhttp.send DataToSend
    Response.ContentType = \"text/xml\"
    Response.Write xmlhttp.responsexml.xml
%>

Kan du se om dette burde kunne lade sig gøre?

Prøv noget i stil med:

Set objHttp = Server.CreateObject (\"Microsoft.XMLHTTP\")

With objHttp
.Open \"GET\", \"http://www.drean.dk\", False, \"\", \"\"
.Send
strAnswer = .ResponseText
End With
Set objHttp = Nothing
Response.Write(strAnswer)

Det henter som du kan se siden ned...og derved er den blevet kørt.

Note:
Jeg har erstattet POST med GET og indsat en ny HTTP adresse...

dope> det du skriver burde kunne lade sig gøre...
Mit eksempel virker i hvertfald :)

drean >>
Da der skal arbejdes lidt for at kunne teste funktionaliteten vil jeg lige høre hvor sikker du er på denne metode og udførelse?

drean >> oki, du nåede at svare... :-)

Im going in....

Hvad er .ResponseText?

hehe...jeg er 100% siker på at siden du henviser til bliver kørt.

Det er det svar du får fra komponenten...indholdet på siden du bruger GET på :)

Kan du jo eventuelt bruge til at returnere værdier fra den side du kører...for at se om scriptet bliver udført korrekt :)

Invalid progid!

Det var dog irreterende... håber min ISP synes det er en god idé... :-)

du kan også prøve med dem her:
Set objHttp = Server.CreateObject (\"MSXML2.XMLHTTP.3.0\")
Set objHttp = Server.CreateObject (\"MSXML2.ServerXMLHTTP\")

Jeg har fået at vide at de skulle kunne gøre det samme, er bareen anden version af xmlHttp

drean >>

Set objHttp = Server.CreateObject (\"Microsoft.XMLHTTP\")

objHttp.Open \"GET\", \"http://<ipadresse>/servlet/SmartMessage?cmd=sendLogo&logo=\"&indeks&\"&to=\"&mobil&\"\", False, \"\", \"\"
objHttp.Send
strAnswer = objHttp.ResponseText
Set objHttp = Nothing
Response.Write(strAnswer)

og jeg får nu en uspecificeret fejl i
objHttp.send linjen?

note: <ipadresse> er indsat af diskretionsmæssige hensyn... :-)

Jeg lukker og slukker...

Jeg fandt noget på serverobjects.com... :-)

dope-> Jeg er selv i samme situation, så jeg vil gerne høre om du evt. kan poste din løsning.