View Single Post
  #1 (permalink)  
Old August 20th, 2011, 03:13 PM
4Wheels 4Wheels is offline
Registered User
Points: 65, Level: 1
Points: 65, Level: 1 Points: 65, Level: 1 Points: 65, Level: 1
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
Join Date: Jun 2011
Posts: 4
Thanks: 2
Thanked 0 Times in 0 Posts
Exclamation database problem - could use some help

i'm trying to put an old asp 3.0 database driven plants (with 600+) website back online that i built 6+ years ago. good luck remembering code that old!

the strange thing is that this site was working great for 2 years when it was online. all i did was remove it and store on my personal machine with everything intact. please take a look, anyone and let me know what you think it is. thanks!!

this is the error msg:

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/index.asp, line 31

================================================== =======

this is index.asp from the top line to the closing head tag.

<!-- #INCLUDE FILE="content.asp" -->
<!doctype html public "-//w3C//dtd html 4.0 transitional//en">
<html><head><title>Successful Houseplants - growing and buying tips</title>
<meta name="description" content="Be successful with plants! Read interesting facts, buying and 'Plant Doctor' tips 
for many exciting plants. Also has links to nurseries to buy plants, books, and supplies." />
<meta name="keywords" content="" />
<link rel="stylesheet" href="plants.css" type="text/css" />
  Response.Expires = 60 
  Response.ExpiresAbsolute = Now() - 1 
  Response.AddHeader "pragma","no-cache" 
  Response.AddHeader "cache-control","private" 
  Response.CacheControl = "no-cache" 

  if Session("Logout") <> "yes" then
    if Request.Cookies("SavedLogin").haskeys then
      Session("blnValidUser") = true
    end if
  end if

  set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
  set rsIntro = Server.CreateObject("ADODB.Recordset")
  strSQL = "SELECT count(*) as plantcnt FROM intro " & _
           "WHERE ready=true and Instr(common_name, '1')=0 and group_nbr<17 "
***************** line 31 below throws the error ****************

rsIntro.Open strSQL, objConn
************************************************** *****

  if not rsIntro.EOF then
    dim intTotPlants
  end if
  strSQL = "SELECT count(*) as tipscnt FROM intro WHERE ready=true and Instr(common_name, '1')=1 or group_nbr>16"
  rsIntro.Open strSQL, objConn
  if not rsIntro.EOF then
    dim int
  end if

  set rsIntro = nothing
  set objConn = nothing
================================================== ====

i declare these and more in content.asp (the include file)

  dim filePath, objConn
  filePath = Server.MapPath("\db\plants.mdb") 
  dim filePath2, objConn2
  filePath2 = Server.MapPath("\db\promotions.mdb")

  dim filePath3, objConn3
  filePath3 = Server.MapPath("\db\vars.mdb")

  dim strSQL
================================================== =====

let me know if you need to see the fields in the "intro" table...
Reply With Quote