Wrox Home  
Search P2P Archive for: Go

  Return to Index  

access_asp thread: ASP error '80020009' with If(..) Then statement


Message #1 by "Anup Raghoebarsinf" <araghoebarsing@x...> on Mon, 24 Jun 2002 19:44:55
I'm trying to generate different error messages if some (user input)values 
already exist in my database tables. I'm using an Access database and a 
html form with an insert statement.
The error message I keep geeting is:
error '80020009' 
Exception occurred. 

/mainframe/inschrijf.asp, line 56 (If then statement between **)

I've search on Microsoft Knowledge Base but didn't find a solution. Can 
anyone help? Does somebody know an alternative way (other than using an if-
then statement) to generate different error meesages based on comparison 
user input and a recordset.

Below is some of my code:

strsql = " SELECT fldBedrijfsnaam, fldAfdeling, fldStraatnaam, fldEmail 
FROM Werkgevers " &_
" WHERE fldBedrijfsnaam = ' "& CStr(Request.Form("Bedrijfsnaam")) &" ' " &_
" AND fldAfdeling = ' "& CStr(Request.Form("Afdeling")) &" ' "&_
" AND fldStraatnaam = ' "& CStr(Request.Form("Straatnaam")) &" ' "&_
" OR fldEmail = ' "& CStr(Request.Form("Email")) &" ' "
set rsBedrijf = Connection.Execute (strsql)

If Not rsBedrijf.EOF Or Not rsBedrijf.BOF Then 

HERE MY INSERT STATEMENT..

Else 

**If (rsBedrijf ("fldBedrijfsnaam") =  CStr(Request.Form("Bedrijfsnaam"))) 
AND (rsBedrijf( "fldAfdeling") =  CStr(Request.Form("Afdeling"))) AND  
(rsBedrijf( "fldStraatnaam") =  CStr(Request.Form("fldStraatnaam"))) Then**
Response.Write("De opgegeven bedrijfsnaam en afdeling komen reeds voor in 
onze database.")
ElseIf rsBedrijf("fldEmail") =  CStr(Request.Form("Email")) then
Response.Write( "Het ingevulde emailadres komt reeds voor in onze 
database.")
End If
		

  Return to Index