W
WeCareTexas
on http://wecaretexas.com/ListSearch.asp when you do a search I am receiving
and error. Until I tried to fix it I was getting a Microsoft Jet 4.0 error.
This site is being hosted on GoDaddy. Last week, there was a glitch on
another hosting company and I had to move the site and now it is broken and I
am clueless of how to resolve this issue.
Any help will be appreciated. I would like to have the site back up very
soon
--------------------------------------------------------------------------------------------
Here is the code with a issue:
<% if Request.QueryString("FN") <> "" then
dim con
dim rsMain
dim prjDesc
dim fnamelen
dim lnamelen
session("id")=""
set con=server.CreateObject("adodb.connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path &
"\fpdb\lists.mdb"
'creating record set object
set rsMain = Server.CreateObject("ADODB.Recordset")
if rsMain.State=1 then rsMain.Close
if Request.QueryString("FN") <> "" then
rsMain.Open "select * from results where name like '"&
Request.QueryString("FN") &"%'",con
elseif Request.QueryString("FN") = "" then
end if
'Response.Write rsMain.Source
%>
and error. Until I tried to fix it I was getting a Microsoft Jet 4.0 error.
This site is being hosted on GoDaddy. Last week, there was a glitch on
another hosting company and I had to move the site and now it is broken and I
am clueless of how to resolve this issue.
Any help will be appreciated. I would like to have the site back up very
soon
--------------------------------------------------------------------------------------------
Here is the code with a issue:
<% if Request.QueryString("FN") <> "" then
dim con
dim rsMain
dim prjDesc
dim fnamelen
dim lnamelen
session("id")=""
set con=server.CreateObject("adodb.connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path &
"\fpdb\lists.mdb"
'creating record set object
set rsMain = Server.CreateObject("ADODB.Recordset")
if rsMain.State=1 then rsMain.Close
if Request.QueryString("FN") <> "" then
rsMain.Open "select * from results where name like '"&
Request.QueryString("FN") &"%'",con
elseif Request.QueryString("FN") = "" then
end if
'Response.Write rsMain.Source
%>