i need to convert the following code to cfm
Dim weatherURL
Dim weatherPath
Dim weatherZip
Dim weatherGet
Dim weatherData
Dim xmlHTTP
Set xmlHTTP = Server.CreateObject("Msxml2.XMLHTTP.4.0")
If Request.Form <> "" Then
weatherZip = Request.Form("zipCode_txt")
Else
weatherZip = Request.QueryString("zipCode_txt")
End If
weatherURL = "http://www.ejse.com"
weatherPath = "/WeatherService/Service.asmx/GetExtendedWeatherInfo?zipCode="
weatherGet = weatherURL & weatherPath & weatherZip
xmlHTTP.Open "GET", weatherGet, False
xmlHTTP.Send
Response.Write xmlHttp.ResponseText
%>
only a few lines left
that im unsure of
//unsure of this code
Set xmlHTTP = Server.CreateObject("Msxml2.XMLHTTP.4.0")
<cfif form.zipCode_txt EQ "">
<cfset weatherZip = form.zipCode_txt>
<cfelse>
<cfset weatherZip = URL.zipCode_txt>
</cfif>
<cfset weatherURL = "http://www.ejse.com">
<cfset weatherPath =
"WeatherService/Service.asmx/GetExtendedWeatherInfo?zipCode=">
<cfset weatherGet = #weatherURL# "/" #weatherPath# "" #weatherZip#>
//unsure of this code
xmlHTTP.Open "GET", weatherGet, False
xmlHTTP.Send
Response.Write xmlHttp.ResponseText
thanks! :)
[Todays Threads] [This Message] [Subscription] [Fast Unsubscribe] [User Settings]
