| AlanShaw 2005-03-30, 7:37 am |
| Can anybody see why the attached code fails in the second part at the Distance
ActiveConnection STRING? It passes through the Postcode part at the beginning.
The error message is: Error Type: Provider (0x80004005) Unspecified error
/natcarsearch/vehicle_results.asp, line 50 Browser Type: Mozilla/4.0
(compatible; MSIE 6.0; Windows NT 5.1; CDSource=BP1b.00; .NET CLR 1.1.4322)
Page: POST 46 bytes to /natcarsearch/vehicle_results.asp POST Data:
yrpostcode=bn14+4tr&yrdistance=0.2&yrMake=Audi
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/conNatCarSearch.asp" -->
<%
Dim rsPostcode__MMColParam
rsPostcode__MMColParam = "1"
If (Request.Form("yrpostcode") <> "") Then
rsPostcode__MMColParam = Request.Form("yrpostcode")
End If
%>
<%
Dim rsPostcode
Dim rsPostcode_numRows
Set rsPostcode = Server.CreateObject("ADODB.Recordset")
rsPostcode.ActiveConnection = MM_conNatCarSearch_STRING
rsPostcode.Source = "SELECT * FROM postcode WHERE postcode LIKE '%" +
left(rsPostcode__MMColParam, 4) + "%'"
rsPostcode.CursorType = 0
rsPostcode.CursorLocation = 2
rsPostcode.LockType = 1
rsPostcode.Open()
rsPostcode_numRows = 0
%>
<%
Dim rsDistance__long1
rsDistance__long1 = "1"
If (rsPostcode.Fields.Item("longitude").Value <> "") Then
rsDistance__long1 = rsPostcode.Fields.Item("longitude").Value
End If
%>
<%
Dim rsDistance__lat1
rsDistance__lat1 = "1"
If (rsPostcode.Fields.Item("latitude").Value <> "") Then
rsDistance__lat1 = rsPostcode.Fields.Item("latitude").Value
End If
%>
<%
Dim rsDistance__dist
rsDistance__dist = "1"
If (Request.Form("yrdistance") <> "") Then
rsDistance__dist = Request.Form("yrdistance")
End If
%>
<%
Dim rsDistance
Dim rsDistance_numRows
Set rsDistance = Server.CreateObject("ADODB.Recordset")
rsDistance.ActiveConnection = MM_conNatCarSearch_STRING
rsDistance.Source = "SELECT * FROM postcode WHERE longitude BETWEEN " +
Replace(rsDistance__long1, "'", "''") + " + " + Replace(rsDistance__dist, "'",
"''") + " AND " + Replace(rsDistance__long1, "'", "''") + " - " +
Replace(rsDistance__dist, "'", "''") + " AND latitude BETWEEN " +
Replace(rsDistance__lat1, "'", "''") + " + " + Replace(rsDistance__dist, "'",
"''") + " AND " + Replace(rsDistance__lat1, "'", "''") + " - " +
Replace(rsDistance__dist, "'", "''") + ""
rsDistance.CursorType = 0
rsDistance.CursorLocation = 2
rsDistance.LockType = 1
rsDistance.Open()
rsDistance_numRows = 0
%>
<%
Dim rsResults__MMColParam
rsResults__MMColParam = "1"
If (Request.Form("yrMake") <> "") Then
rsResults__MMColParam = Request.Form("yrMake")
End If
%>
<%
Dim yrpostcode
Do While Not rsDistance.Eof
If rsDistance("Postcode")<>"" Then
yrpostcode = yrpostcode &"'" & rsDistance("Postcode")& "'" & ","
End If
rsDistance.MoveNext()
Loop
yrpostcode = Left(yrpostcode, Len(yrpostcode)-1)
%>
<%
Dim rsResults
Dim rsResults_numRows
Set rsResults = Server.CreateObject("ADODB.Recordset")
rsResults.ActiveConnection = MM_conNatCarSearch_STRING
rsResults.Source = "SELECT * FROM CarDetails WHERE Trim(Left(yrPostcode, 4))
IN (" & yrpostcode & ") AND yrMake = '" + Replace(rsResults__MMColParam, "'",
"''") + "'"
rsResults.CursorType = 0
rsResults.CursorLocation = 2
rsResults.LockType = 1
rsResults.Open()
rsResults_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsResults_numRows = rsResults_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p><font color="#000066" size="4" face="Arial, Helvetica, sans-serif">Vehicle
Search Results
</font>
</p>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFCC00">
<td width="22%"><div align="center"><font color="#000033" size="3"
face="Arial, Helvetica, sans-serif">Make</font></div></td>
<td width="22%"><div align="center"><font color="#000033" size="3"
face="Arial, Helvetica, sans-serif">Model</font></div></td>
<td width="8%"><div align="center"><font color="#000033" size="3"
face="Arial, Helvetica, sans-serif">Year</font></div></td>
<td width="12%"><div align="center"><font color="#000033" size="3"
face="Arial, Helvetica, sans-serif">Colour</font></div></td>
<td width="21%"><div align="center"><font color="#000033" size="3"
face="Arial, Helvetica, sans-serif">Description</font></div></td>
<td width="15%"><div align="center"><font color="#000033" size="3"
face="Arial, Helvetica, sans-serif">Price</font></div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsResults.EOF))
%>
<tr>
<td><div align="center"><%=(rsResults.Fields.Item("yrMake").Value)%></div>
</td>
<td><div align="center"><%=(rsResults.Fields.Item("yrModel").Value)%></div>
</td>
<td><div align="center"><%=(rsResults.Fields.Item("yrYear").Value)%></div>
</td>
<td><div
align="center"><%=(rsResults.Fields.Item("yrColour").Value)%></div>
</td>
<td><div align="center"><%=(rsResults.Fields.Item("yrNotes").Value)%></div>
</td>
<td><div align="center"><%=(rsResults.Fields.Item("yrPrice").Value)%></div>
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsResults.MoveNext()
Wend
%>
</table>
<p> </p>
</body>
</html>
<%
rsPostcode.Close()
Set rsPostcode = Nothing
%>
<%
rsDistance.Close()
Set rsDistance = Nothing
%>
<%
rsResults.Close()
Set rsResults = Nothing
%>
|