Opbygge en streng af rs()'er

strINI = strINI & ";" & rs("initialer")

Du manglede et &

Set rs = myConn.Execute(strSQL)

strINI = rs("initialer")
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strINI = strINI & rs("initialer") &";"
rs.movenext
loop
end if
strini=left(strini,len(strini)-1)

<askhoej>
Ja jeg manglede '&' men det gjorde vist ikke fra eller til.
<mortvader>
Det virker desværre ikke. Men jeg får da ingen fejlmeddelelse mere.

Her er lidt mere kode:
<%
str="Nej"
strSQL = "SELECT initialer FROM medarbejdere WHERE"
strSQL = strSQL & " (mailnaevnsmedlemmer = '" & str & "')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("pkn.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)

strINI = rs("initialer")
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
Response.write "" & rs("initialer") & ""  ' TEST af søgningen
strINI = strINI & rs("initialer") &";"
rs.movenext
loop
end if
strini=left(strini,len(strini)-1)
 
Response.write "TEST: " & rsINI & ""

---
Det giver blot udskriften:
Response.write "" & rs("initialer") & ""  ' TEST af søgningen"

men intet på den sidste:
Response.write "TEST: " & rsINI & ""

Og det burde den vel?

ikke rsINI men strINI

Jamen så snakker vi ikke mere om det.

Tak for hjælpen

;]