Taiya
10-04-2006, 10:05 AM
Hi all,
I have inherited some code that I thought was XML but turns out that it isn't. It does a postcode lookup. When I run it on my local system it works perfectly but when I upload it to the server for final testing before release it displays part of a html page instead.
Here is the code, this first bit are the fields to be updated:
<form action="PageEnd.asp" method="post" name="RHAScript">
<table cellSpacing=0 cellPadding=0 border=0>
<tr>
<td class="Text_10" width="100">Number/ Street: </td>
<td colspan="2"><input name="HouseNumber" size=38 maxlength="250" class="FormBox" value="<%=QuestionAnswers_Address_HouseNumber%>"></td>
</tr>
<tr>
<td class="Text_10">City: </td>
<td colspan="2"><input name="City" size=38 maxlength="50" class="FormBox" value="<%=QuestionAnswers_Address_City%>"></td>
</tr>
<tr>
<td class="Text_10">County: </td>
<td colspan="2"><input name="County" size=38 maxlength="50" class="FormBox" value="<%=QuestionAnswers_Address_County%>"></td>
</tr>
<tr>
<td class="Text_10">Postcode: </td>
<td><input name="Postcode" size=28 maxlength="10" class="FormBox" value="<%=QuestionAnswers_Address_Postcode%>"></td>
<td valign="top" al ign="right"><a href="#" id=PostcodeLookup name="PostcodeLookup" onclick="getAd()"><img src="images/button_lookup.png" border="0"></a></td>
</tr>
</table>
</form>
Here is the function the button calls and the xml:
sub getAd
Set xml = CreateObject("Microsoft.XMLHTTP")
// Opens the connection to the remote server.
xml.Open "GET", "functions/getAddr.asp?PC=" & Replace(RHAScript.Postcode.Value," ",""), False
// Actually Sends the request and returns the data:
xml.Send
// Display the HTML both as HTML and as text
myarr = Split(xml.responseText,",")
if myarr(0) = "-1" then
msgbox "Address not found!"
else
RHAScript.Postcode.value = UCase(Replace(RHAScript.Postcode.Value," ",""))
RHAScript.HouseNumber.value = myarr(0)
RHAScript.City.Value = myarr(1)
RHAScript.County.Value = myarr(2)
end if
Set xml = Nothing
End Sub
And here is the function that that piece of code called:
Dim conn,cm, parm
Set conn = Server.CreateObject("ADODB.Connection")
Set cm = Server.CreateObject("ADODB.Command")
'Set rs = Server.CreateObject("ADODB.RecordSet")
'conn.Open "Driver={SQL Server}; Server=jamz; Database=ora; UID=sa; PWD=;"
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MotionDat;Data Source=zeus;"
'Get address
cm.ActiveConnection = conn
cm.CommandText = "getAddr"
' 4 is Stored Procedure
cm.CommandType = 4
Set parm = cm.CreateParameter ("@PC",200,1,7)
cm.Parameters.Append parm
cm.Parameters("@PC")=Request.QueryString("PC")
set rs = cm.Execute
if rs.EOF then
Response.Write "-1"
else
Response.Write rs(0) + ","
Response.Write rs(1) + ","
Response.Write rs(2) + ","
Response.Write rs(3)
end if
Here is the output the way it's supposed to look:
House Number / Street : Pond Street
City :
County : Sheffield
Postcode : S1 1AA
This is what is produced on the server version:
House Number / Street : <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"><html dir=ltr><head><style>a:link {font:8pt/11pt verdana; color:FF0000}a:visited {font:8pt/11pt verdana; color:#4e4e4e}</style><META NAME="ROBOTS" CONTENT="NOINDEX"><title>The page cannot be displayed</title><META HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252"></head><script> function Homepage(){<!--// in real bits
City : urls get returned to our script like this:// res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm //For testing use DocURL = "res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm" DocURL=document.URL; //this is where the http or https will be
County : as found by searching for :// but skipping the res:// protocolIndex=DocURL.indexOf("://"
Postcode : S1 1AA
Sorry this is so long and thank you if you are still reading this. Why is it doing this? Why will this not run on my server, and if so how can I ever display pages? Does the code need to be change to make it compatible?
I would like to get this working and any help would be greatfully received, if not I will have to scrap it and start again, which is a shame since it does work on my local version.
Thanks again,
Taiya
I have inherited some code that I thought was XML but turns out that it isn't. It does a postcode lookup. When I run it on my local system it works perfectly but when I upload it to the server for final testing before release it displays part of a html page instead.
Here is the code, this first bit are the fields to be updated:
<form action="PageEnd.asp" method="post" name="RHAScript">
<table cellSpacing=0 cellPadding=0 border=0>
<tr>
<td class="Text_10" width="100">Number/ Street: </td>
<td colspan="2"><input name="HouseNumber" size=38 maxlength="250" class="FormBox" value="<%=QuestionAnswers_Address_HouseNumber%>"></td>
</tr>
<tr>
<td class="Text_10">City: </td>
<td colspan="2"><input name="City" size=38 maxlength="50" class="FormBox" value="<%=QuestionAnswers_Address_City%>"></td>
</tr>
<tr>
<td class="Text_10">County: </td>
<td colspan="2"><input name="County" size=38 maxlength="50" class="FormBox" value="<%=QuestionAnswers_Address_County%>"></td>
</tr>
<tr>
<td class="Text_10">Postcode: </td>
<td><input name="Postcode" size=28 maxlength="10" class="FormBox" value="<%=QuestionAnswers_Address_Postcode%>"></td>
<td valign="top" al ign="right"><a href="#" id=PostcodeLookup name="PostcodeLookup" onclick="getAd()"><img src="images/button_lookup.png" border="0"></a></td>
</tr>
</table>
</form>
Here is the function the button calls and the xml:
sub getAd
Set xml = CreateObject("Microsoft.XMLHTTP")
// Opens the connection to the remote server.
xml.Open "GET", "functions/getAddr.asp?PC=" & Replace(RHAScript.Postcode.Value," ",""), False
// Actually Sends the request and returns the data:
xml.Send
// Display the HTML both as HTML and as text
myarr = Split(xml.responseText,",")
if myarr(0) = "-1" then
msgbox "Address not found!"
else
RHAScript.Postcode.value = UCase(Replace(RHAScript.Postcode.Value," ",""))
RHAScript.HouseNumber.value = myarr(0)
RHAScript.City.Value = myarr(1)
RHAScript.County.Value = myarr(2)
end if
Set xml = Nothing
End Sub
And here is the function that that piece of code called:
Dim conn,cm, parm
Set conn = Server.CreateObject("ADODB.Connection")
Set cm = Server.CreateObject("ADODB.Command")
'Set rs = Server.CreateObject("ADODB.RecordSet")
'conn.Open "Driver={SQL Server}; Server=jamz; Database=ora; UID=sa; PWD=;"
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MotionDat;Data Source=zeus;"
'Get address
cm.ActiveConnection = conn
cm.CommandText = "getAddr"
' 4 is Stored Procedure
cm.CommandType = 4
Set parm = cm.CreateParameter ("@PC",200,1,7)
cm.Parameters.Append parm
cm.Parameters("@PC")=Request.QueryString("PC")
set rs = cm.Execute
if rs.EOF then
Response.Write "-1"
else
Response.Write rs(0) + ","
Response.Write rs(1) + ","
Response.Write rs(2) + ","
Response.Write rs(3)
end if
Here is the output the way it's supposed to look:
House Number / Street : Pond Street
City :
County : Sheffield
Postcode : S1 1AA
This is what is produced on the server version:
House Number / Street : <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"><html dir=ltr><head><style>a:link {font:8pt/11pt verdana; color:FF0000}a:visited {font:8pt/11pt verdana; color:#4e4e4e}</style><META NAME="ROBOTS" CONTENT="NOINDEX"><title>The page cannot be displayed</title><META HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252"></head><script> function Homepage(){<!--// in real bits
City : urls get returned to our script like this:// res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm //For testing use DocURL = "res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm" DocURL=document.URL; //this is where the http or https will be
County : as found by searching for :// but skipping the res:// protocolIndex=DocURL.indexOf("://"
Postcode : S1 1AA
Sorry this is so long and thank you if you are still reading this. Why is it doing this? Why will this not run on my server, and if so how can I ever display pages? Does the code need to be change to make it compatible?
I would like to get this working and any help would be greatfully received, if not I will have to scrap it and start again, which is a shame since it does work on my local version.
Thanks again,
Taiya