Jag har nu i ett fält flera olika värden uppdelade med ;
Jag vill jämföra, så att om det värdet jag räknar upp från databasen med den nedre koden överenstämmer med något av de värden som finns i fältet med split, så ska det ej skrivas ut...
Detta funkar ju inte... så hjälp
strShowArrey = Split(strProfilePrivate,";")
For i = 0 To Ubound(strShowArrey)
Response.Write ""&strShowArrey(i)&"<br>"
Next
Response.Write "<br><br>"
set rsGetFields = Server.CreateObject("adodb.recordset")
sqlGetFields = "Select * from tblAuthor"
rsGetFields.Open sqlGetFields, Conn
For each strField in rsGetFields.Fields
if strField.Name = strShowArrey then
Response.write ""
else
Response.write " "&strField.Name&" <br>"
end if
Next
Nu kanske jag ändrade lite väl mycket. Vill du verkligen ha din array med så får du lyfta tillbaka den.
strProfilePrivate = strProfilePrivate & ";"
Response.Write "<br><br>"
set rsGetFields = Server.CreateObject("adodb.recordset")
sqlGetFields = "Select * from tblAuthor"
rsGetFields.Open sqlGetFields, Conn
For each strField in rsGetFields.Fields
if Instr(strProfilePrivate, strField.Name & ";") > 0 then
' Finns
Response.write ""
else
' Finns inte
Response.write " "&strField.Name&" <br>"
end if
Next
