hejsan, har nu efter ganska mycket möda och sökande här i forumet kommit så långt att jag kan hämta hem en valutakurs och skriva ut den. Nu till min fråga, jag skulle vilja hämta hem flera olika kurser på samma sida, med denna så hämtar jag hem kursen för EUR men skulle vilja presentera flera olika under varandra.
TEX.
EUR: 9.250582
USD: 6,2852
EEK: 63,42
Går det att bygga ut detta kod för att hämta hem flera?
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webservicex.net/CurrencyConvertor.asmx/ConversionRate?FromCurrency=EUR&ToCurrency=SEK", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<double xmlns=""http://www.webserviceX.NET/"">.*</double>"
Set hittade = objRegExp.Execute(strHTML)
Function red(strText)
strText = Replace(strText, "<double xmlns=""http://www.webserviceX.NET/"">", " ")
strText = Replace(strText, "</double>", " ")
red = strText
End Function
For each item in hittade
With response
.write "<small>"
.write("EUR:")
.write red(item.value)
.write "</small>"
End with
Next
%>
Du bör väl kunna hitta en sida som har fler kurser på en o samma sida. det lär väl bli lättare?
jag har löst det tillfälligt genom att kopiera hela koden och klistra in den under den föregående.
kanske inte den mest ideala lösningen men den fungerar, tänkte lägga in detta på en wapsida.
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webservicex.net/CurrencyConvertor.asmx/ConversionRate?FromCurrency=NOK&ToCurrency=SEK", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<double xmlns=""http://www.webserviceX.NET/"">.*</double>"
Set hittade = objRegExp.Execute(strHTML)
Function red(strText)
strText = Replace(strText, "<double xmlns=""http://www.webserviceX.NET/"">", " ")
strText = Replace(strText, "</double>", " ")
red = strText
End Function
For each item in hittade
With response
.write "<small>"
.write("NOK:")
.write red(item.value)
.write "</small>"
.write "<br/>"
End with
Next
%>
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webservicex.net/CurrencyConvertor.asmx/ConversionRate?FromCurrency=CHF&ToCurrency=SEK", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<double xmlns=""http://www.webserviceX.NET/"">.*</double>"
Set hittade = objRegExp.Execute(strHTML)
Function red(strText)
strText = Replace(strText, "<double xmlns=""http://www.webserviceX.NET/"">", " ")
strText = Replace(strText, "</double>", " ")
red = strText
End Function
For each item in hittade
With response
.write "<small>"
.write("CHF:")
.write red(item.value)
.write "</small>"
.write "<br/>"
End with
Next
%>
Ännu en tillfällig lösning är ju att göra en sub av det och återanvända koden, men det blir jäkligt slött.
<%
Sub xcurrency(country)
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webservicex.net/CurrencyConvertor.asmx/ConversionRate?FromCurrency=NOK&ToCurrency="&country, False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<double xmlns=""http://www.webserviceX.NET/"">.*</double>"
Set hittade = objRegExp.Execute(strHTML)
For each item in hittade
With response
.write "<small>"
.write country&":"
.write red(item.value)
.write "</small>"
.write "<br/>"
End with
Next
End Sub
Function red(strText)
strText = Replace(strText, "<double xmlns=""http://www.webserviceX.NET/"">", " ")
strText = Replace(strText, "</double>", " ")
red = strText
End Function
xcurrency("NOK")
xcurrency("SEK")
xcurrency("GBP")
%>
273 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
