Hi I have just reset and it is sort of working!!
The problem has arisen as I have two of these which then produce a DRW
result based on..
Select County
then on search there is an option to select post code/zip based on County
Then the DRW is supposed to produce all matching records... Its working on
line (Win2003 FP server) but not locally WinXP Pro??? so I can no longer
publish any updates!!!!
<td><% If Request("Desc")>"" Then %>
<%Dim DSN_Name
DSN_Name = Application("DB11_ConnectionString")
set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open DSN_Name
Search=Request("Description")
Set RSCat = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT DISTINCT County FROM Names WHERE (Desc LIKE '%" &Search& "%')
ORDER BY County"
RSCat.Open SQL, Connection
%><select name="County" size="1">
<option value="<%=Request("County")%>"><%=Request("County")%></option>
<% while NOT RSCat.EOF %>
<option value="<%=RSCat("County")%>"><%=RSCat("County")%></option>
<%
RSCat.MoveNext
wend
RSCat.Close
%>
<%Else%>
Enter Search Term<%End IF%></td>
</tr>
<tr>
<td>Post Code:</td>
<td><%If Request("County")>"" Then%>
<%Dim DSN_Name2
DSN_Name2 = Application("DB11_ConnectionString")
set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open DSN_Name2
Search=Request("Desc")
Search2=Request("County")
Set RSCat = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT DISTINCT Pc1 FROM Names WHERE (Desc LIKE '%"&Search& "%' AND
County LIKE '%" &Search2& "%') ORDER BY Pc1"
RSCat.Open SQL, Connection
%>
<select name="Pc1" size="1">
<option><%=request("Pc1")%></option>
<% while NOT RSCat.EOF %>
<option value="<%=RSCat("Pc1")%>"><%=RSCat("Pc1")%></option>
<%
RSCat.MoveNext
wend
RSCat.Close
%><%Else%>SELECT COUNTY<%End IF%></td>
.... DRW
"Thomas A. Rowe" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Is this on your local or the remote server? Have you reset the database
> connection under Tools | Web / Site Settings?
>
> 80004005 is a indication of a permission problem.
>
> --
> ==============================================
> Thomas A. Rowe (Microsoft MVP - FrontPage)
> WebMaster Resources(tm)
> http://www.ycoln-resources.com
> FrontPage Resources, WebCircle, MS KB Quick Links, etc.
> ==============================================
> If you feel your current issue is a results of installing
> a Service Pack or security update, please contact
> Microsoft Product Support Services:
> http://support.microsoft.com
> If the problem can be shown to have been caused by a
> security update, then there is usually no charge for the call.
> ==============================================
>
> "Mettá" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Error Type:
>> Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
>> [Microsoft][ODBC Microsoft Access Driver]General error Unable to open
>> registry key 'Temporary (volatile) Jet DSN for process 0xd00 Thread 0xc7c
>> DBC 0x11d0a6c Jet'.
>>
>> M
>>
>> "Mettá" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>> Thanks for your response but that is not the error, see post above for
>>> correct error script, NAM33 is used throughout the script...
>>>
>>> M
>>>
>>> "Thomas A. Rowe" <(E-Mail Removed)> wrote in message
>>> news:%(E-Mail Removed)...
>>>> Yes, you haven't set/assigned DSN_NAM33.
>>>>
>>>> --
>>>> ==============================================
>>>> Thomas A. Rowe (Microsoft MVP - FrontPage)
>>>> WebMaster Resources(tm)
>>>> http://www.ycoln-resources.com
>>>> FrontPage Resources, WebCircle, MS KB Quick Links, etc.
>>>> ==============================================
>>>> If you feel your current issue is a results of installing
>>>> a Service Pack or security update, please contact
>>>> Microsoft Product Support Services:
>>>> http://support.microsoft.com
>>>> If the problem can be shown to have been caused by a
>>>> security update, then there is usually no charge for the call.
>>>> ==============================================
>>>>
>>>> "Mettá" <(E-Mail Removed)> wrote in message
>>>> news:(E-Mail Removed)...
>>>>> The following is a "simple" select distinct query in a form...
>>>>>
>>>>>
>>>>> <%Dim DSN_NAM33
>>>>> DSN_Name1 = Application("DB11_ConnectionString")
>>>>> set Connection = Server.CreateObject("ADODB.Connection")
>>>>> Connection.Open DSN_NAM33
>>>>> Set RSCat = Server.CreateObject("ADODB.RecordSet")
>>>>> SQL = "SELECT DISTINCT County FROM Names ORDER BY County"
>>>>> RSCat.Open SQL, Connection
>>>>> %><select name="County" size="1">
>>>>> <option value="<%=Request("County")%>"><%=Request("County")%></option>
>>>>> <% while NOT RSCat.EOF %>
>>>>> <option value="<%=RSCat("County")%>"><%=RSCat("County")%></option>
>>>>> <%
>>>>> RSCat.MoveNext
>>>>> wend
>>>>> RSCat.Close
>>>>> %>
>>>>>
>>>>> Can anyone see anything wrong in this??
>>>>>
>>>>> Thanks
>>>>> M
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>