Printable View
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?
Code: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'.
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)
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:
Code:<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>