if - else - elseif - confused!

Hi

Can someone please help?

I keep getting an error saying 'expected end line 1508' which is at the bottom of my page.

My code is so incredible long otherwise I would post it here. Do you have any ideas?

Thanks!

if str="a" or str="b" or str="c" then
  printForm()
response.end

else
  set rs = cn.execute("select * from myTable where ni = '" & ni & "' or un = '" & un & "' or email = '" & email & "'")
  if rs.eof then
    cn.execute("INSERT myTable VALUES('" & ni & "','" & email & "'")

  else
    if rs("ni") = ni then
      print table saying you are already registered

    elseif rs("un") = un then
      print table saying username in use
    elseif rs("email") = email then
      print table saying email in use

  else
      print table saying incorrect

  end if
end if

</BODY>
</HTML>

Thanks for getting back. In english (with a bit of code) I need to do this

'server side validation - check to see if form fields have been completed or not

if strusername = "" or strpassword = "" then

<table>I say within my html table - please complete fields!</table>

response.end ' this stop record being added if field is empty and user has to go back to form

else

'check to see if anyone is in db according to ni number. Also check to see if anyone is using the username or password. Can't have 2 people with same un and pw combination!

set up cn and run command to retrieve values where rscheckuser("ninumber") =  strninumber or rscheckuser("username") = strusername or rscheckuser("password") = strpassword or rscheckuser("Email") = stremail

if no matching value is found then

run command and submit data to db

if a matching value is retrieved then

if rscheckuser("ninumber") = strninumber then

<table>you are already registered</table>

if rscheckuser("username") = strusername then

<table>please enter a different username</table>

if rscheck("userpassword") = strpassword then

<table>please enter a different password</table>

if rscheck("email") = stremail then

<table>email already in use</table>

Surely people have come up against this? It does seem complicated but I need to do these checks and just not sure how and when to do them if I don't do them this way. I think the problem kicks in after the dat is submitted to database(if no one with same ni number found in db). Or, can I do a whole series of these instead of if then else.

if... then...end if

if...then...end if

Thanks for your help! Appreciate it.

Lee

That was the first thing I tried. I added one <%end if%> and it still kept asking for 'expected end' so added another and another. Still keeps asking. Can you take a look at my code and see if you can spot anything? Where it says<table></table> is where I print my whole html table with a message

'do server side validation in javascript turned off
if strContractedInIndicator = "" or strFirstName = "" then
%>
<table>
this says : please enter required text
</table>

<%response.end
else
strContractedInIndicator = "0"

'set command and establish connection
Set cndb = server.CreateObject("adodb.connection")
Set cmdcheckuser = server.CreateObject("adodb.command")
Set cmdaddtodatabase = server.CreateObject("adodb.command")
Set cmdretrievefromdb = server.CreateObject("adodb.command")
Set rsrecordsretrieved = server.CreateObject("adodb.recordset")
Set rscheckuser = server.CreateObject("adodb.recordset")

'set connection to local DNS or change to web host DNS
cndb.CommandTimeout = 15
cndb.CursorLocation = adUseServer
cndb.ConnectionString = "DSN=cjrcls" 'this is for local
'cndb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mydatasourcehere.mdb"
on error resume next
cndb.Mode = 3 '3 = adModeReadWrite
cndb.open

if err <> 0 then
response.write "Error connecting to the database"
response.end
end if

With cmdcheckuser
.CommandTimeout = 15
set .ActiveConnection = cndb
.CommandType = adCmdtext
.CommandText = "SELECT * FROM ApplicantDetails WHERE NINumber = '" & strNINumber & "' OR UserName = '" & strUserName & "' OR UserPassword = '" & strUserPassword & "' OR EmailContact = '" & strEmailContact & "';"
End with

rscheckuser.Open cmdcheckuser,,adOpenStatic,adLockOptimistic

on error resume next

if err.number <> 0 then
response.write "error connecting to database<br>" &_
"Error: " & err.Description
response.end
end if

'if can't find a record with matching NINumber then user is not in db so submit their details
if rscheckuser.EOF = true or rscheckuser.BOF = true then

'pass values as parameters
With cmdaddtodatabase
.CommandTimeout = 15
set .ActiveConnection = cndb
.CommandType = adCmdText
.CommandText = "INSERT INTO ApplicantDetails (ContractedInIndicator .....My Note: This all works perfectly..passes parameters etc)


on error resume next
.Execute

if err.number <> 0 then
Response.write err.description
Response.End
end if

'if was successfully submitted then redirect to process page with NINumber
if err.number = 0 then
id = strNINumber
Response.redirect "process.asp?id=" & Encrypt(strNINumber) 'added
Response.End
end if

End with

elseif rscheckuser("NINumber") = strNINumber then

%>
<!-- if persons NINumber has been found in db then tell them they are already registered! -->

<table class="bylinefont" width="100%" bgcolor="white" border="0" cellpadding="0" cellspacing="0" align="left"> This says: you are already registered!
</table>

<%elseif rscheckuser("UserName") = strUserName then%>

<table class="bylinefont" width="100%" bgcolor="white" border="0" cellpadding="0" cellspacing="0" align="left">This says please enter a different username </table>

<%elseif rscheckuser("UserPassword") = strUserPassword then
%>

<table class="bylinefont" width="100%" bgcolor="white" border="0" cellpadding="0" cellspacing="0" align="left">This says please enter a different password </table>

<%elseif rscheckuser("EmailContact") = strEmailContact then
%>

<table class="bylinefont" width="100%" bgcolor="white" border="0" cellpadding="0" cellspacing="0" align="left">This says that the email is already in use </table>

<%end if%>
<%end if%>
<%end if%>

</body>
</html>