Strange error using InterDev

[hpl]

I get this error when I am using Visual InterDev, but when I apply the PWS there is nothing wrong. How can I make it work in InterDev again?

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 0x304 Thread 0x62c DBC 0xab44bc Jet'.

[Sastraxi]

I got this one a while ago... I was using the wrong connection string. (I was using one for Access XP when I had a 2000 database)

[hpl]

I still haven't find out, what's wrong. The problem occured after I overwrite the files with an old version. I have used this connection string and it worked fine before:

<H3>This is the results of the search.</H3>
<%
if request.querystring("Name1") = "on" or request.querystring("Type1") = "on" or request.querystring("Mat1") = "on" or request.querystring("Temp1") = "on" or request.querystring("Market1") = "on" then

	set myconn = server.createobject("ADODB.connection")
	myconn.open "Driver={microsoft access Driver (*.mdb)};dbq="&server.mappath("market-products.mdb")
	'Code for market segment
	if Request.QueryString("Market1") ="on" then 
		if request.querystring("market") = "All" then
			sqlMarket =""
		else
			sqlMarket = " where " & Request.QueryString("market")& "= 'Ja'"
		end if
	end if
	'Code for product name
	if Request.QueryString("Name1") ="on" then 
		if sqlMarket ="" then
			if request.querystring("name") = "All" then
				sqlName =""
			else
				sqlName = " where name = '" & Request.QueryString("name") & "'"
			end if
		else
			if request.querystring("name") = "All" then
				sqlName =""
			else
				sqlName = " and name = '" & Request.QueryString("name") & "'"
			end if	
		end if
	end if
	'Code for system type
	if Request.QueryString("Type1") ="on" then 
		if request.querystring("type") = "All" then
			sqlType = ""
		else
			if sqlMarket ="" then
				if Request.QueryString("type")= "Buried system" then
				sqlType = " where buried = 'Yes'"
				else
				sqlType = " where free = 'Yes'"
				end if
			else
				if Request.QueryString("type")= "Buried system" then
				sqlType = " and buried = 'Yes'"
				else
				sqlType = " and free = 'Yes'"
				end if
			end if
			if sqlMarket ="" and sqlName="" then
				if Request.QueryString("type")= "Buried system" then
				sqlType = " where buried = 'Yes'"
				else
				sqlType = " where free = 'Yes'"
				end if
			else
				if Request.QueryString("type")= "Buried system" then
				sqlType = " and buried = 'Yes'"
				else
				sqlType = " and free = 'Yes'"
				end if
			end if		
		end if	
	end if
	'Code for material
	if Request.QueryString("Mat1") ="on" then 
		if request.querystring("mat") = "All" then
			sqlMat = ""
		else
			if sqlMarket ="" then
				sqlMat = " where carrier_material = '" & Request.QueryString("mat") & "'"
			else
				sqlMat = " and carrier_material = '" & Request.QueryString("mat") & "'"
			end if	
			if sqlMarket ="" and sqlName="" then
				sqlMat = " where carrier_material = '" & Request.QueryString("mat") & "'"
			else
				sqlMat = " and carrier_material = '" & Request.QueryString("mat") & "'"
			end if
			if sqlMarket ="" and sqlName="" and sqlType="" then
				sqlMat = " where carrier_material = '" & Request.QueryString("mat") & "'"
			else
				sqlMat = " and carrier_material = '" & Request.QueryString("mat") & "'"
			end if		
		end if	
	end if
	'Code for temperature range
	if Request.QueryString("Temp1") ="on" then 
		if sqlMarket ="" then
			sqlTemp = " WHERE Min_T <= " & request.querystring("temp")& " and Max_T >= " & Request.QueryString("temp")
		else
			sqlTemp = " and Min_T <= " & request.querystring("temp")& " and Max_T >= " & Request.QueryString("temp")
		end if	
		if sqlMarket ="" and sqlName ="" then
			sqlTemp = " WHERE Min_T <= " & request.querystring("temp")& " and Max_T >= " & Request.QueryString("temp")
		else
			sqlTemp = " and Min_T <= " & request.querystring("temp")& " and Max_T >= " & Request.QueryString("temp")
		end if	
		if sqlMarket ="" and sqlName ="" and sqlType ="" then
			sqlTemp = " WHERE Min_T <= " & request.querystring("temp")& " and Max_T >= " & Request.QueryString("temp")
		else
			sqlTemp = " and Min_T <= " & request.querystring("temp")& " and Max_T >= " & Request.QueryString("temp")
		end if
		if sqlMarket ="" and sqlName ="" and sqlType ="" and sqlMat = "" then
			sqlTemp = " WHERE Min_T <= " & request.querystring("temp")& " and Max_T >= " & Request.QueryString("temp")
		else
			sqlTemp = " and Min_T <= " & request.querystring("temp")& " and Max_T >= " & Request.QueryString("temp")
		end if		
	end if
	sql = "select * from products"
	sql = sql + sqlMarket + sqlName + sqlType + sqlMat + sqlTemp
		
	set rs = myconn.execute(sql)
	
	if not (rs.bof or rs.eof) then
			do while not rs.eof
			var = var & "<TR valign=top><td><font size = 2><a href=" & rs("link")&">" &_
			rs("name")&"</font></td><td><font size = 2>" &_
			rs("type")&"</font></td><td><font size = 2>" &_
			rs("media")&"</font></td><td><font size = 2>" &_
			rs("carrier_material")&"</font></td><td><font size = 2>" &_
			rs("insulation")&"</font></td><td><font size = 2>" &_
			rs("min_t")&"</font></td><td><font size = 2>" &_
			rs("max_t")&"</font></td><td><font size = 2>" &_
			rs("max_p")&"</font></td>"
			rs.movenext
			loop
			Response.Write("<table border = 2 cellspacing=2 cellpadding = 2>")
			Response.Write("<tr>")
			Response.Write("<th bgcolor =#c0c0c0 bordercolor =#000000><font size = 2>Product name</font></th>")
			Response.Write("<th bgcolor =#c0c0c0 bordercolor =#000000><font size = 2>Product type</font></th>")
			Response.Write("<th bgcolor =#c0c0c0 bordercolor =#000000><font size = 2>Media</font></th>")
			Response.Write("<th bgcolor =#c0c0c0 bordercolor =#000000><font size = 2>Pipe material</font></th>")
			Response.Write("<th bgcolor =#c0c0c0 bordercolor =#000000><font size = 2>Insulation</font></th>")
			Response.Write("<th bgcolor =#c0c0c0 bordercolor =#000000><font size = 2>Min. temp. [°C]</font></th>")
			Response.Write("<th bgcolor =#c0c0c0 bordercolor =#000000><font size = 2>Max. temp. [°C]</font></th>")
			Response.Write("<th bgcolor =#c0c0c0 bordercolor =#000000><font size = 2>Max. pressure [Bar]</font></th>")
			Response.Write("</tr>")
			Response.Write var
			'Response.Write sql
	else
			Response.Write "No matching products found for the search criteria"
	end if
	rs.close
	myconn.close
	set myconn = nothing
else
Response.Write "You have not chosen a search criteria, please select at least one"
end if
%>
</table>