Database connection script problem

M

Mettá

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
 
T

Thomas A. Rowe

Yes, you haven't set/assigned DSN_NAM33.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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.
==============================================
 
M

Mettá

Thanks for your response but that is not the error, see post above for
correct error script, NAM33 is used throughout the script...

M
 
M

Mettá

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
 
T

Thomas A. Rowe

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)

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á said:
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á said:
Thanks for your response but that is not the error, see post above for correct error script,
NAM33 is used throughout the script...

M
Click to expand...
Click to expand...
 
M

Mettá

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 said:
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)

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á said:
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á said:
Thanks for your response but that is not the error, see post above for
correct error script, NAM33 is used throughout the script...

M

Yes, you haven't set/assigned DSN_NAM33.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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.
==============================================

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
Click to expand...
Click to expand...
Click to expand...
 
M

Mettá

The actual error I now get is

Database Results Error
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open
registry key 'Temporary (volatile) Jet DSN for process 0xd00 Thread 0xb90
DBC 0x11d0064 Jet'.

Thanks
M


Thomas A. Rowe said:
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)

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á said:
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á said:
Thanks for your response but that is not the error, see post above for
correct error script, NAM33 is used throughout the script...

M

Yes, you haven't set/assigned DSN_NAM33.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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.
==============================================

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
Click to expand...
Click to expand...
Click to expand...
 
T

Thomas A. Rowe

Not related to the error, but avoid using just Request("variable") always specify which request
object you want to use, this avoid having SQL Injection risks, use Request.Form("variable"),
Request.QueryString("variable"), etc.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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á said:
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 said:
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)

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á said:
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

Thanks for your response but that is not the error, see post above for correct error script,
NAM33 is used throughout the script...

M

Yes, you haven't set/assigned DSN_NAM33.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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.
==============================================

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
Click to expand...
Click to expand...
Click to expand...
 
T

Thomas A. Rowe

What type of connection are you using FP file system (fpdb folder) or System DSN ?

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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á said:
The actual error I now get is

Database Results Error
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary
(volatile) Jet DSN for process 0xd00 Thread 0xb90 DBC 0x11d0064 Jet'.

Thanks
M


Thomas A. Rowe said:
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)

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á said:
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

Thanks for your response but that is not the error, see post above for correct error script,
NAM33 is used throughout the script...

M

Yes, you haven't set/assigned DSN_NAM33.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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.
==============================================

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
Click to expand...
Click to expand...
Click to expand...
 
T

Thomas A. Rowe

See if the following helps:

http://support.microsoft.com/default.aspx?scid=kb;en-us;315456

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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.
==============================================

Thomas A. Rowe said:
What type of connection are you using FP file system (fpdb folder) or System DSN ?

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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á said:
The actual error I now get is

Database Results Error
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary
(volatile) Jet DSN for process 0xd00 Thread 0xb90 DBC 0x11d0064 Jet'.

Thanks
M


Thomas A. Rowe said:
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)

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.
==============================================

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

Thanks for your response but that is not the error, see post above for correct error script,
NAM33 is used throughout the script...

M

Yes, you haven't set/assigned DSN_NAM33.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WebMaster Resources(tm)

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.
==============================================

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
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Limit No of records from a DB query 1
Trying to update db without using drw beyond access db import 8
FP database - trying to delete records (manual asp) 3
QueryString asp to asp.net 1
ado connection problem 2
Help with VBScript/Access database 0
how to setup a dsn-less connection 9
Forgotten Password script 1

Top