Valutakurser - igen

Har du kigget på leverandørens side ??

http://www.serverobjects.com/comp/asphttp3.htm

Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = "http://www.myfinancialpage.com/scripts/update3.asp"
HTTPObj.PostData = "suid=jimb&pwd=macabre&id=32&val=1.5"
HTTPObj.RequestMethod = "POST"
strResult = HTTPObj.GetURL

//akj

Hmm dårligt eksempel :-)

allerførst skal du nok finde et sted der giver oplysninger om valutakurserne og så få en aftale i stand med dem - på den måde undgår du at komme i problemer. Det er rigtigt at du kan benytte ASPhttp til formentlig at få nogle data, men hvis du får en aftale i stand med en kan disse data måske leveres til dig på en anden måde.

men vil du endelig i gang med at lege med asphttp uden først at spørge om lov så tag et kig på deres dokumentation; http://www.serverobjects.com/comp/asphttp3.htm

Fra serverobject.com:

<%

  Server.ScriptTimeout = 240

  rem ************************************************************
  rem *
  rem *  Test file for AspHttp
  rem *
  rem ************************************************************

  rem ************************************************************
  rem *
  rem *  Create the object
  rem *
  rem ************************************************************
  Set HttpObj = Server.CreateObject("AspHTTP.Conn")

  rem ************************************************************
  rem *
  rem *  Set the URL to grab
  rem *
  rem ************************************************************
  HttpObj.Url = "http://www.google.dk"

  rem ************************************************************
  rem *
  rem *  Change the port
  rem *
  rem ************************************************************
  rem HttpObj.Port = 80

  rem ************************************************************
  rem *
  rem *  Change the timeout
  rem *
  rem ************************************************************
  rem HttpObj.TimeOut = 80

  rem ************************************************************
  rem *
  rem *  FollowRedirects? (true or false)
  rem *
  rem ************************************************************
  HttpObj.FollowRedirects = false


  rem ************************************************************
  rem *
  rem *  Change the request method
  rem *
  rem ************************************************************
  HttpObj.RequestMethod = "GET"


  HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"

  rem ************************************************************
  rem *
  rem *  Grab the URL and save to strResult
  rem *
  rem ************************************************************
  strResult = HttpObj.GetURL

  rem ************************************************************
  rem *
  rem *  Write the result to the screen
  rem *
  rem ************************************************************
  Response.Write strResult


  rem ************************************************************
  rem *
  rem *  Show the URL we ended up at after the redirect
  rem *
  rem ************************************************************
  Response.Write "<blockquote><hr>URL is now: " & HttpObj.URL

  rem ************************************************************
  rem *
  rem *  Show the headers for the current page
  rem *
  rem ************************************************************
  Response.Write "<hr><pre>" & HttpObj.Headers & "</pre>"

  rem ************************************************************
  rem *
  rem *  Show Registration Information
  rem *
  rem ************************************************************
  Response.Write "<hr>"
  strRegName = HttpObj.RegisteredUser
  if Left(strRegName, 5) <> "Unreg" then
    Response.Write "This component is registered to: " & strRegName & "<br>"
  else
    Response.Write "This component is not registered<br>"
  end if


%>
//akj

Okay... det fik jeg ikke så møj ud af... men jeg læser lidt på det. En aftale har jeg prøvet for et årstid siden, men uden resultat.
Jeg læste i et andet indlæg at det ikke gjorde det store hvis det var til privat brug... det er en lukket pokerklub, så hvormeget de kan have i mod det ved jeg ikke... gør i ??? Jeg tænker valutakurser.dk / nordea.dk / andre... ??

Jeg har kigget på det, men det er jeg lidt for "L" til... kan du ikke give mig et eksempel ?? Evt. på valutakurser.dk hvor den henter $-kursen og euro-kursen ??

... for jeg ved ikke om de har noget i mod det... det vil jeg undersøge, men så kan jeg altid tilrette scriptet når jeg finder en som vil gå¨med til det...

Html koden ligger i Strresult.

Det du skal er at finde en metode at få fat i lige nøjagtigt det du har brug for. F.eks:

Følgende funktion finder udpluk af HTML koden:

response.write findkurs("USD&nbsp","&nbsp") & "<br>"
response.write findkurs("GBP&nbsp","&nbsp") & "<br>"

function findkurs( startident,endident )
   
    ' find startposition   
    pos1 = instr(strresult,startident)
   
    ' find slutposition
    pos2 = instr(pos1 + len(startident) + 1,strresult,endident)

    ' de chars der ligger imellem
    findkurs =  mid(strresult,pos1,pos2 - pos1)  & " - Data fra " &  HttpObj.Urlend function

HUSK at spørge om lov inden du bruger koden til andet end at teste på !!!

//akj

Hvor angiver jeg hvilken URL den skal finde fra... du må virkelig hjælpe her... er sQ ikke så hård... og ja, jeg finder ud af hvem jeg kan "løne" data fra. Finder evt. nogle bekendte som betaler sig fra det...

ret:
HttpObj.Url = "http://www.google.dk"
til:
HttpObj.Url = "http://www.sidenderskalhentesfra.dk"

//akj

er med på en lytter :)

Oki... hvad skal jeg så rette til i det sidste du skrev...

response.write findkurs("USD&nbsp","&nbsp") & "<br>"
response.write findkurs("GBP&nbsp","&nbsp") & "<br>"

function findkurs( startident,endident )
   
    ' find startposition   
    pos1 = instr(strresult,startident)
   
    ' find slutposition
    pos2 = instr(pos1 + len(startident) + 1,strresult,endident)

    ' de chars der ligger imellem
    findkurs =  mid(strresult,pos1,pos2 - pos1)  & " - Data fra " &  HttpObj.Urlend function

pos1,pos2 ??? er det x,y værdier eller start,slut værdi ?

der er lige en lille 'fejl'


findkurs(strresult,"USD&nbsp","&nbsp") & "<br>"
'returnerer det der står mellem "USD&nbsp" og "&nbsp" i din hentede html kode.

function findkurs(htmlcode, startident,endident )
   
    ' find startposition   
    pos1 = instr(htmlcode,startident)
   
    ' find slutposition
    pos2 = instr(pos1 + len(startident) + 1,htmlcode,endident)

    ' de chars der ligger imellem
    findkurs =  mid(htmlcode,pos1,pos2 - pos1)  & " - Data fra " &  HttpObj.Url
end function


//akj