Udtræk

og hvordan ser koden ud som åber antalcoms.Fields("antalcomsREF") ?

Hvis antalcoms er tom vil der komme en fejl

Hvilken fejl får du?

fejlen siger : "Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record."

Jeg henter ud med :
<%    Set Conn = Server.CreateObject("ADODB.Connection")
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/popp.mdb")
    Conn.Open strDSN
    %>

udtrækket passer - jeg har lavet en display og den viser "6" hvilke er korrekt.

Det kode du har vist er bare til at åbne en connection til databasen.

Hvis fejlen er :  Either BOF or EOF is True
Så betyder det at recordset er tomt.


Er du sikker på du får åbnet for reorset inden if sætningen?

Når jeg sætter ...
<%    Set Conn = Server.CreateObject("ADODB.Connection")
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/popp.mdb")
    Conn.Open strDSN
    set antalcoms = Conn.Execute ("SELECT count(id) AS antalcomsREF FROM po")
    no = antalcoms.Fields("antalcomsREF")%>

og

<%=intInput%>
<%=no%>

med id=1 får jeg "1" og "6" hvilet er korrekt. med id=2 får jeg "2" og "6" - med id=7 (eller derover) får jeg ovennævnte fejl.

ok så prøv at bruge variablen no i if sætningen hvis du får lukket for antalcoms igen if sætnignen:

<%
If (IsNumeric(Request.QueryString("id"))) And (Request.QueryString("id") <> "") Then
  If Request.QueryString("id") < 1 Then
      intINPUT = 1
    else
    If Request.QueryString("id") > no Then
    intINPUT = no
    end if
    intINPUT = Request.QueryString("id")
end if
End if
%>

nix - intInput er stadig lig id .. også selvom id > no

ok så prøv med int omkring det kan være fordi den tolker den ene variable som streng og den anden som tal:

    If int(Request.QueryString("id")) > int(no) Then

Nej, samme fejl når jeg kommer over id=6

Hvor er if sætningen placeret i forhold til connection til databasen?

ARH det er i if sætningen den er gal den vil altid sætte id til request.Quersyting da du har en end if skulle være en else så prøv lige sådan her:

<%
If (IsNumeric(Request.QueryString("id"))) And (Request.QueryString("id") <> "") Then
  If Request.QueryString("id") < 1 Then
      intINPUT = 1
    else
    If int(Request.QueryString("id")) > int(no) Then
      intINPUT = no
    else
      intINPUT = Request.QueryString("id")
    end if
  end if
End if
%>

Direkte kopieret.. :

<%    Set Conn = Server.CreateObject("ADODB.Connection")
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/popp.mdb")
    Conn.Open strDSN
    set antalcoms = Conn.Execute ("SELECT count(id) AS antalcomsREF FROM po")
    no = antalcoms.Fields("antalcomsREF")


If (IsNumeric(Request.QueryString("id"))) And (Request.QueryString("id") <> "") Then
  If Request.QueryString("id") < 1 Then
      intINPUT = 1
    else
    If int(Request.QueryString("id")) > int(no) Then
    intINPUT = no
    end if
    intINPUT = Request.QueryString("id")
end if
End if
Conn.Close
set Conn=nothing%>

lol - jaaa .. der var den. Tak for hjælpen!!