Plocka ut igen...

if instr(";" & strField.name & ";" , ";" & listan & ";") > 0 then
'namnet finns med

if instr(";" & strField.name & ";" , ";" & strProfileRequired & ";") > 0 then 
strValue = "*"
else
strValue = ""
end if

'den som jag gjorde
strRequired = Split(strProfileRequired,";")
for i = 0 to ubound(strRequired)
if strField.Name = strRequired(i) then
strValue = "*"
else
strValue = ""
end if
next

Antar att dessa är ganska lika, men ingen av dom fungerar. När jag försöker skriva ut variabeln händer ingenting trots att namnet finns med i listan.
När jag istället lägger in det namnet som jag vet finns, alltså inte ur en arrey så fungerar det utmärkt.

Någonting?

R: Detta fungerar tex utmärkt.

if strField.Name = "username" then
strValue = "*"
else
strValue = ""
end if

Är det något problem med små och stora bokstäver?

Instr och = gör skillnad på dem.

Nej. I formulärsnamnen är med små bokstäver liksom dom i listan...

Lite mer kod

For each strField in rsGetFields.Fields
	strFieldType = rsGetFields(strField.Name).type
	'Kollar vilka fält som är undantag för registreringen
	
	if Instr(strProfileRegister, strField.Name & ";") > 0 then 
	     Response.write ""
	else
	'Fixar korrekta namn för fälten
	set rsGetFieldName = Server.CreateObject("adodb.recordset")
	sqlGetFieldName = "Select * from tblPublicNames where fieldName = '"&strField.Name&"'"
	rsGetFieldName.Open sqlGetFieldName, Conn
	
		if instr(";" &strField.name&";",";"&strProfileRequired&";") > 0 then 
		strValue = "*"
		else
		strValue = ""
		end if
	
	response.write"<tr><td bgcolor="&strTblColor1&" width=""130"" valign=""top"">"
    response.write " "&rsGetFieldName("Public_fieldName")&": "&strValue&" "&_
				  "</td><td bgcolor="&strTblColor1&">"

ahh... det löste sig... gjorde om din kod lite utan att veta vad jag höll på med men det funkade

if instr(";"&strProfileRequired, strField.Name) > 0 then

Är det något fel på den??