Hallo, jag undrar hur jag ska kunna få följande kodsnutt att fungera. Jag får i daxläget upp: Inkompatibla typer: 'UBound'. Ytterligare ett problem som uppstår är att PersonalID 2 ibland är tom och då ska väl kommatecknet inte vara med.
<code>

intPersonalID = Request.Form("PersonalID1") & "," & Request.Form("PersonalID2")

j = 0 to UBound(intPersonalID)

SQL = "UPDATE tblPersonal SET "
Osv, osv

Next

</code>
Tackar på förhand
Uffe

intPersonalID innehåller en sträng (som gissningsvis ser ut såhär: "12,5") men UBound förväntar sig en array. Sedan ser det ut som en FOR-loop utan ordet FOR. Gissar att du vill göra såhär istället:

<code>
intPersonalID = Request.Form("PersonalID1") & "," & Request.Form("PersonalID2")

PersonalIDArr = Split(intPersonalID)
FOR j = 0 to UBound(PersonalIDArr)
'Kontroll ifall den är tom
If LEN(PersonalIDArr(j)) > 0 Then
'gör något
End If
Next
</code>

/Johan

Jepp, det var en liten bit på vägen

<code>
PersonalIDArr = Split(intPersonalID)

FOR j = 0 to UBound(PersonalIDArr)
'Kontroll ifall den är tom
If LEN(PersonalIDArr(j)) > 0 Then
'Response.Write PersonalIDArr(j)

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblResultat Where PersonalID=" & PersonalIDArr(j) & " And ButikID=" & ButikID & " and Datum= " & "#" & FormatDateTime(Date) & "#"
Set RS = Conn.Execute(SQL)

En massa kod....

End If
Next
</code>

I detta fallet blir då "Where PersonalID=" 1,20

Hur delar jag upp det?

Du delar aldrig din sträng med personalID.

PersonalIDArr = Split(intPersonalID)

Tackar där fick jag kläm på det.

MVH Uffe

Kan du inte förklar vad problemet är?
Har du flera poster du vill uppdaterat t.ex. en lista av värden du vill förändra?