Søg i array efter en post med to ord

Jeg kunne forestille mig noget i stil med flg.:

For i=lbound(ArrRec) to ubound(ArrRec)
  If instr(Trim(ArrRec(i)), " ") = 0 then
      'skriv 1. html kode
    Else
      'to ord
      'skriv 2. html kode
  End If
Next

Idé: Gennemløb alle elementer i listen og trim mellem før og efter indholdet. Søg derefter efter et mellemrum... hvis der er nogen, så skriv 1. eller skriv 2.

Jeg prøver lige.

Jeg får følgende fejl i linje :  If instr(Trim(ArrRec(i)), " ") = 0 then

Fejl:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: 'ArrRec'
/gjonline/dbtest.asp, line 34

Det er muligvis fordi der ikke er noget indhold i listen... er der det?

Ja jeg har en DB med 10-15 poster hvor der blandt andet er en post med to ord.

Næh det er ikke derfor! Det er naturligvis fordi det er for længe siden jeg har brugt denne funktion (InStr) - man skal jo starte med at angive startindeks. Det betyder at koden skal se således ud i stedet:

For i=lbound(ArrRec) to ubound(ArrRec)
  If instr(1, Trim(ArrRec(i)), " ") = 0 then
      'skriv 1. html kode
    Else
      'to ord
      'skriv 2. html kode
  End If
Next

Desværre samme fejl.

kan du smide lidt mere kode med... der må være nogle omstændigheder jeg ikke kan tage højde for med den informationer jeg har pt. :)

Her er hele koden:

'Creating the Recordset Object
Set Conn = Server.CreateObject("ADODB.Connection")

'Creating a DSN-Less connection to your Database
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("pos.mdb")

'Open your recordset
Conn.Open strDSN

'* Get records for USA - SOHO ***************************************
strSQL = "SELECT * FROM Retail Where Country='usa' and City='soho'"
Set rs = Conn.Execute(strSQL)

' Everything in the memory
If Not rs.EOF Then
  ArrRec = rs.getrows()
End If
'* Get records for USA - SOHO ***************************************

' Close connections
rs.close
set rs = nothing
conn.close
set conn = nothing

' Print records for USA - SOHO
'For i = 0 to Ubound(ArrRec,2)
  'Response.Write(ArrRec(2,i))%><BR><%
'Next

For i=lbound(ArrRec) to ubound(ArrRec)
  If instr(1, Trim(ArrRec(i)), " ") = 0 then
    'skriv 1. html kode
    Response.Write "1. html kode"
  Else
    'to ord
    'skriv 2. html kode
    Response.Write "2. html kode"
  End If
Next

For i=lbound(ArrRec) to ubound(ArrRec)
  If instr(1, Trim(ArrRec(0,i)), " ") = 0 then
      'skriv 1. html kode
    Else
      'to ord
      'skriv 2. html kode
  End If
Next

Nu har jeg sat den til at lede i den første kolonne i resultatet, men det kan godt være du vil søge i en anden kolonne... det må du lige selv tage en beslutning om :)

Kommer med flg fejl lige meget hvilken kolonne jeg vælger at sætte den til at søge i:

Microsoft VBScript runtime (0x800A0009)
Subscript out of range: 'i'
/gjonline/dbtest.asp, line 34

Det lader til at du skal bytte rundt på 0 og i, således:

If instr(1, Trim(ArrRec(i,0)), " ") = 0 then

Det er bare ikke det der står i dokumentationen, men hey - det er nok bare mig der ikke fatter en reje :)

Næh, det passer heller ikke! :(

OK, nu tror jeg at jeg dik fat i den (og ja, det var mig der ikke fattede en reje, for dokumentationen var - sjovt nok - korrekt). Det skal se sådan ud:

For i = 0 to ubound(ArrRec,2)
  If instr(1, Trim(ArrRec(0,i)), " ") = 0 then
      'skriv 1. html kode
    Else
      'to ord
      'skriv 2. html kode
  End If
Next


Jeg udskrifter lbound med 0 da arrays altid starter ved index 0

Bugger! Jeg tester den i NS 7.2 og der fungerer det godt nok. Hvilken version kører du?

Møj! Forkert vindue! Sorry :(

Så virker det. Perfekt. Tak for hjælpen.

Hej jeg skal bruge lidt hjælp til en funktions omskrivning i arrays
den skal søge på tal mellem 10 og 100 når jeg trykker knappen søg
kan ikke helt gennemskue hvordan

kan i hjælpe mig?

function soeg() {
for(i=0; i<tal.length; i++) {
tal[length] = document.form1.tallene.value;
document.write(tal[i] +  "        " + "er fundet");