[thelist] Re: Access DB design troubles

[burgan at iprimus.com.au]

I'm trying to 'print to screen' the name of the users referrer.
Here's how I'm trying to do it - which obviously doesn't work.

---CODE---

  Set adoCon = Server.CreateObject("ADODB.Connection")
  adoCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("dbs\CustInfo.mdb")
  Set rsAddUser = Server.CreateObject("ADODB.Recordset")

  strSQL = "SELECT * FROM Contact WHERE UserID = 2;"

  rsAddUser.CursorType = 2
  rsAddUser.LockType = 3
  rsAddUser.Open strSQL, adoCon

  if NOT rsAddUser("ReferralID") = 0 then
      Response.Write ("Your referrer is:<br>")

      hold_strSQL = strSQL
      strSQL = "SELECT * FROM Contact WHERE UserID = '" &
rsAddUser("ReferralID") & "';"
      Response.Write (strSQL & "<br>")
      Response.Write (rsAddUser("FirstName") & " " & rsAddUser("LastName")
& "<br><br>")

      strSQL = hold_strSQL
      Response.Write (strSQL & "<br>")
      Response.Write (rsAddUser("FirstName") & " " & rsAddUser("LastName")
& "<br><br>")
    else
      Response.Write ("You were not referred to this page")
  end if

--END CODE--

I know I'm going wrong but where??

Thanks
Tim

--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .