If anybody has a spare half hour, I wonder if you could give this a bash.

It's just 2 pages and a small database, all downloadable.

http://www.webthang.co.uk/tuts/tuts_dmx/dan1/dan1.asp

I've tried everything I know and it fails, I just wonder if I'm missing
something.
This is the error I get:

Error Type:
Microsoft VBScript compilation (0x800A0411)
Name redefined
/Website/car/vehicle_results.asp, line 92, column 4
Dim yrpostcode
---^

Happy New Year to you all.

Regards
Alan

Without looking at yoru code, most likely your are Dimensioning that
variable twice, which is allowable in javascript, but not in VBscript.

emichael brandt

AlanShaw wrote:
> If anybody has a spare half hour, I wonder if you could give this a bash.
>
>  It's just 2 pages and a small database, all downloadable.
>
>  http://www.webthang.co.uk/tuts/tuts_dmx/dan1/dan1.asp
>
>  I've tried everything I know and it fails, I just wonder if I'm missing
> something.
>  This is the error I get:
>
>  Error Type:
>  Microsoft VBScript compilation (0x800A0411)
>  Name redefined
>  /Website/car/vehicle_results.asp, line 92, column 4
>  Dim yrpostcode
>  ---^
>
>  Happy New Year to you all.
>
>  Regards
>  Alan
>
>
>

Now I'm going into unfamiliar territory, are you saying that if I set the pa
ge
up as a ?JavaScript.asp? page and not a ?VBScript.asp? page it should work?

The site that the tutorial is on was ?down? yesterday, (first time I?ve know
that to happen to them), but it is working now if you weren?t able to see it
.

The first part of the code is:



<%@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_Postcode_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
%>
<%
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 Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsResults_numRows = rsResults_numRows + Repeat1__numRows
%>

You are Dimensioning yrpostcode at both line 70 and line 101.  Remove
line 101 and this problem will be fixed.

fyi, to convert vbscript to javascript can be a daunting task.

emichael

AlanShaw wrote:
> Now I'm going into unfamiliar territory, are you saying that if I set the 
page
> up as a ?JavaScript.asp? page and not a ?VBScript.asp? page it should work
?
>
>  The site that the tutorial is on was ?down? yesterday, (first time I?ve k
now
> that to happen to them), but it is working now if you weren?t able to see 
it.
>
>  The first part of the code is:
>
>
>
>  <%@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_Postcode_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
>  %>
>  <%
>  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 Repeat1__numRows
>  Dim Repeat1__index
>
>  Repeat1__numRows = -1
>  Repeat1__index = 0
>  rsResults_numRows = rsResults_numRows + Repeat1__numRows
>  %>
>