har den här koden

<code>
nuffra = nuffra+1
"true"& nuffra = "sameinget"
if int(plusid) = int(session("id")) then
"true"& nuffra = "sameeget"
else
"true"& nuffra = "samemotstandare"
End If
</code>

den ligger i en funktion som körs flera gånger.. det jag vill göra nu är att skapa en variabel som heter true1, true2, true3 osv för varje gång som funktionen körs.

men nu är det så att koden ovan inte fungerar och jag känner mej ganska säker på att nån här vet hur jag ska gå till väga för att få det att fungera...
kanske att jag är på helt fel spår...

får felmeddelandet:

Kompileringsfel i Microsoft VBScript error '800a0400'
Programsats förväntas.
functions.asp, line 58
"true"& nuffra = "sameinget"

Vad jag förstår så skickar du med nummret som den ska ha till funktionen. Då kan du testa med att skapa en array: true(nuffra)

Så vitt jag vet så går det inte skapa variabelnamn genom asp.

hur gör jag det då?

För att göra det lite svårare för dig har jag bytt namn på variablerna. Från nuffra till Index och från True till Result:
<code>
Dim Result()
Dim Current
Current = Int(Session("id"))
Redim Result(10)
Do Until Index >= 10
Index = Index + 1
Result(Index) = "sameinget"
If Int(plusid) = Current then
Result(Index) = "sameeget"
Else
Result(Index) = "samemotstandare"
End If
Loop
</code>

Tack ska testa det.
Hur länge har du hållit på med ASP? Du verkar ju kunna nästan allt:)

Jag håller inte på med ASP. Det är ju VB Script. Jag kan VB.

okej.. men nu behöver jag mera hjälp :)

skriver såhär i en annan funktion


for samekoll = 1 to 4
if Result(samekoll) = "sameeget" or Result(samekoll) = "samemotstandare" then
samee = samee + 1
end if
if Result(samekoll) = "samemotstandare" then
samemot = samemot + 1
end if
next

men får felet:

Körningsfel i Microsoft VBScript error '800a000d'
Inkompatibla typer: 'Result'
functions.asp, line 86



såhär ser funktionerna ut nu:

<code>
function samen(laggt,mot,ide,kortispelide,kanter)
SQL = "Select spelarid from kortispel where position='" & posid & "' and spelid=" & ide
rs.open SQL, connect
if rs.EOF then
else
kortagaren = rs("spelarid")
End If
rs.close
if isNumeric(mot) then
if int(laggt) = int(mot) then

SQL = "Select spelarid from kortispel where position=" & kanter
rs.open SQL, Connect
plusid = rs("spelarid")
rs.close

Dim Result()
Dim Current
Current = Int(Session("id"))
Redim Result(4)

Index = Index + 1
Result(Index) = "sameinget"
If Int(plusid) = Current then
Result(Index) = "sameeget"
Else
Result(Index) = "samemotstandare"
End If
End If
End If
End function











function kollasame()

for samekoll = 1 to 4
if Result(samekoll) = "sameeget" or Result(samekoll) = "samemotstandare" then
samee = samee + 1
end if
if Result(samekoll) = "samemotstandare" then
samemot = samemot + 1
end if
next

if samee >= 2 and samemot >= 1 then


SQL = "Select handelse from tttavlingar where id=" & ide
rs.open SQL, Connect
handelse = rs("handelse")
handelse = handelse & "<br>" & anvnamn2 & " utförde en Same och tog " & samee & " kort."
rs.close

SQL = "Update tttavlingar set handelse = '" & handelse & "' where id=" & ide
rs.open SQL, Connect, 1,2

end if


End function
</code>

har spårat felet en bit nu... verkar som att det är när arrayen är tom som det blir fel... hur ska jag lösa det här?

fick det att fungera nu, tack för all hjälp