Jesper T Medlem sedan nov. 2001 7 144 inlägg Trådstart 31 okt. 2002 01:38 #1 strSQL = "SELECT Id, Sublink_LinkID, Frukt " & _
"FROM tabellen " & _
"ORDER BY sublink_linkID, vara ASC"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnString
Set objRS = objConn.Execute(strSQL)
If Not objRS.EOF Then
'## -- get all links --
arrLinks = objRS.GetRows()
'Response.write arrLinks
End If
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<script type="text/javascript">
var lista = new Array();
function inptSearchlist(value,listobj){
if(lista.length == 0) buildlist(listobj);
matches=0;
listobj.length = lista.length;
for(n=0;n<lista.length;n++){
if(lista[n].text.substring(0,value.length).toLowerCase() == value.toLowerCase()) {
listobj[matches].text= lista[n].text;
listobj[matches].value = lista[n].value;
matches++;
}
}
listobj.length = matches;
listobj.selectedIndex=0;
}
function buildlist(obj){
for(n=0;n<obj.length;n++){
lista[n] = new makeobj(obj[n].value,obj[n].text);
}
}
function makeobj(value,text){
this.value=value; this.text=text;
}
function boxData(sText, vValue){
this.text = sText;
this.value = vValue;
}
<%
If IsArray(arrLinks,2) Then
i = 0
[b]For N = 0 TO UBound(arrLinks,2)[/b]
intSubLinkID = arrLinks(0,N)
intLinkID = arrLinks(1,N)
strSubLink = arrLinks(2,N)
If intLinkID <> intLastLinkID Then
Response.Write vbcrlf & "var link" & intLinkID & " = new Array();" & vbcrlf
i = 0
End If
Response.Write "link" & intLinkID & "[" & i & "] = new boxData(""" & strSubLink & """," & intSubLinkID & ");" & vbcrlf
intLastLinkID = intLinkID
i = i + 1
Next
End If
%>
skriver jag: For N = 0 TO 14
Ekström Medlem sedan feb. 2002 2 594 inlägg UBound() räknar antalet index. Det UBound() plockar ut är alltså inte detsamma som det sista indexet.
Prova UBound(pryl)-1
Skriv förresten gärna ut felmeddelande på din nuvarande kod tillsammans med första inlägget.
L LarsG Medlem sedan dec. 2000 12 464 inlägg Jo det är högsta indexet som returneras.
@nders Medlem sedan juni 2000 32 967 inlägg Till att börja med förklara problemet. Jag förstår inte vad det är som blir fel?
Jesper T Medlem sedan nov. 2001 7 144 inlägg Både For N = 0 TO UBound(arrLinks,2) och For N = 0 TO UBound(arrLinks), loopar ut fem poster då det i själva verket är 14.
såg ett litet fel:
If IsArray(arrLinks,2) Then
ska vara:
If IsArray(arrLinks) Then
vad får du ut om du skriver:
response.write ubound(arrLinks,2)
Jesper T Medlem sedan nov. 2001 7 144 inlägg
doggelito skrev:
såg ett litet fel:
If IsArray(arrLinks,2) Then
ska vara:
If IsArray(arrLinks) Then
vad får du ut om du skriver:
response.write ubound(arrLinks,2)
Om jag skriver ut ubound(arrlinks) får jag : 2, men den listar tre rader.(skall vara 14)
Jesper T Medlem sedan nov. 2001 7 144 inlägg Funkar nu(med ubound(arrlinks,2) , konstigt, jag har ju inte gjort något! Tack ändå!
Jesper T Medlem sedan nov. 2001 7 144 inlägg Förut så såg sql:en ut så här:
strSQL = "SELECT Id, Sublink_LinkID, Frukt " & _
"FROM frukter" & _
"ORDER BY sublink_linkID, Frukt ASC"
Då fungerade det att skriva:
Nu ser frågan ut så här:
strSQL = "SELECT f.Id, f.Sublink_LinkID, f.Frukt, n.Notes " & _
"FROM frukter f, notes n " & _
" WHERE n.N_namn_id = 22"&_
" AND n.N_datum = #2002-10-27#"&_
"ORDER BY f.sublink_linkID,f.Frukt ASC"
Nu fungerar det inte att skriva så här:For N = 0 TO UBound(arrLinks,2)
Varför?
Jesper T Medlem sedan nov. 2001 7 144 inlägg
PatrikB skrev:
Felmeddelande?
cya,
Nej, det blir bara tre rader.
P PatrikB Medlem sedan mars 2000 2 836 inlägg då har du inte fler poster som matchar helt enkelt.
cya,
Jesper T Medlem sedan nov. 2001 7 144 inlägg Och vad är det då för ett fel då?
S solbulle Medlem sedan mars 2001 5 287 inlägg Är du HELT säker på att det verkligen är 14 poster som uppfyller dina villkor i din sqlfråga?
Jesper T Medlem sedan nov. 2001 7 144 inlägg Men dessa frågor avser ju endast tabellen Notes, jag vet inte hur man skall få ut rätt grejjor ur tabellen frukter (getrows) :
" WHERE n.N_namn_id = 22"&_
" AND n.N_datum = #2002-10-27#"&_
Jesper T Medlem sedan nov. 2001 7 144 inlägg Är det ingen som har några idéer ang. detta?
