Hvoffor tildeler den ikke en værdi til denne forespørgelse?

hvad med at skrive 

linknumber = 0
i stedet for
linknumber = (\"0\")


prøv engang

Det er den fløjtenes ligeglad med ?????????????

Det er nu engang bedst at bruge et tal

num = 0

end en streng:

num = \"0\"

da asp.dll skal alligevel konvertere det til et tal undervejs.

hmmm prøv at fjerne \' tegnene i din connection
( hvis altså  yourID er et tal og ikke en streng
så det kommer til at se således ud i stedet

<!--#include virtual=\"/Connections/addlink.inc\" -->
<%
Dim LinkNumber
LinkNumber = (\"0\")

Set RsAddNumbers = Conn.Execute(\"Select MAX(AddNumber) AS [Numbers] FROM AddLinkInfo Where MedlemsIdNr = \" & YourId & \"\")
If RsAddNumbers.EOF Or RsAddNumbers(\"Numbers\") = 0 Or RsAddNumbers(\"Numbers\") = \"\" Then
    LinkNumber = LinkNumber + 1
  Else
    LinkNumber = RsAddNumbers(\"Numbers\") + 1
End If

\'YourId\' er et tekst feldt.

Nå men så kan jeg da gøre det sådant i stedet for :-((

Set RsTest = Conn.Execute(\"Select COUNT(*) AS [Total] FROM AddLinkInfo WHERE MedlemsIdNr = \'\" & YourId & \"\'\")
  If RsTest.EOF Or RsTest.BOF Or RsTest(\"Total\") = 0 Then
    LinkNumber = LinkNumber + 1
  End If
 
  If Not RsTest(\"Total\") = 0 Or RsTest(\"Total\") = Null Then
    Set RsAddNumbers = Conn.Execute(\"Select MAX(AddNumber) AS [Total1] FROM AddLinkInfo Where MedlemsIdNr = \'\" & YourId & \"\' \")   
          LinkNumber = RsAddNumbers(\"Total1\") + 1
    End If

Så ved jeg da at hvis \'RsTest\' er tomt, retuneres værdien \'0\'

MAX(FeldtNavn) retunere åbenbart hverken 0, Null, \"\", EOF, BOF, men hvad kan det så retunere??? et eller andet må der da komme tilbage.

Nååååå der er lige lidt kludder i \'If not RsTest\' :-))

<!--#include virtual=\"/Connections/addlink.inc\" -->
<%
Dim LinkNumber
LinkNumber = (\"0\")

Set RsTest = Conn.Execute(\"Select COUNT(*) AS [Total] FROM AddLinkInfo WHERE MedlemsIdNr = \'\" & YourId & \"\'\")
  If RsTest.EOF Or RsTest.BOF Or RsTest(\"Total\") = 0 Then
    LinkNumber = LinkNumber + 1
  End If
 
  If Not RsTest.EOF Or RsTest.BOF Or RsTest(\"Total\") = 0 Then
    Set RsAddNumbers = Conn.Execute(\"Select MAX(AddNumber) AS [Total1] FROM AddLinkInfo Where MedlemsIdNr = \'\" & YourId & \"\' \")   
          LinkNumber = RsAddNumbers(\"Total1\") + 1
    End If