ASP + If-Abfragen Problem

[franky]

Hallo hier der ganze text

Dim objConn, objRs, strSQL, strConnString, strSQLpos
  Dim ID , Bezeichnung, Reihenfolge, Cursortext, Position_neu, Hauptid, Position_alt

ID = Request.Form("hidden")
  Hauptid = Request.Form("hidden1")
  Bezeichnung = Request.Form("mbezeichnung")
  Cursortext = Request.Form("mtext")
  Position_neu = Request.Form("folgenr")
  Position_alt = Request.Form("hidden2")

Set objConn = Server.CreateObject("ADODB.Connection")
  strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.MapPath("..") & "\db\Lacon.mdb;" & _
    "User Id=admin;" & _
    "Password=;"
  objConn.Open strConnString

Set objRs = server.CreateObject("ADODB.Recordset")
  objRs.ActiveConnection = objConn

strSQL = "SELECT COUNT(*) as izahl FROM tblMenuepunkt WHERE MHAUPTID "
  if HauptID = "NULL" then
   strSQL = strSQL + "is null"
  else
   strSQL = strSQL + "= " & Hauptid
  end if
  objRs.Source = strSQL
  objRs.open

if Position_neu > 1 and position_neu <= objRs("izahl") then

else
    Response.write("Der Wert ist außerhalb des gültigen Bereichs!<br>Es müssen Werte zwischen 1 und " &_
    objRs("izahl") & " eingegeben werden!")
  end if
objRs.close
Set objRS = nothing