Hej!

Jag önskar lite hjälp med följande kod

<code>

'## variabel med kolumnnamnen
StrRecObject="ø,Ltum,Lmm,EffektW,YteffektWcm2,Artikelnr"

'## SQL-Frågan
sql = "SELECT " & StrRecObject & " FROM tblData WHERE ProdID =" & intProdid ' & Request.QueryString("ProdID") & ""
Set RecSet = Connect.execute(sql)


<% Do While not RecSet.EOF %>
<tr>
<%
'## Loopar igenom arryen för att bygga ihop reCset som skall presentera datan i tabellen.
strRec = split(StrRecObject,",")
For I = LBound(strRec) to UBound(strRec)
response.write("<td class='line'>" & RecSet( & strRec(I) &) "</td>")
next
%>
<tr>
<% RecSet.MoveNext
Loop %>
</code>

Jag får ett felmeddelande i den sista Response.write satsen i for-satsen. dvs felet ligger & RecSet( & strRec(I) &)

Hur meckar jag ihop den sista raden

borde det inte bli så:

response.write("<td class='line'>" & RecSet(strRec(I)) & "</td>")

?

Hej!

du har så rätt. Ibland är det mest uppenbara svårt att se..

tack för hjälpen

/phinala

<code>
'## variabel med kolumnnamnen
StrRecObject="ø,Ltum,Lmm,EffektW,YteffektWcm2,Artikelnr"

'## SQL-Frågan
sql = "SELECT " & StrRecObject & " FROM tblData WHERE ProdID =" & intProdid ' & Request.QueryString("ProdID") & ""
Set RecSet = Connect.execute(sql)

Do Until RecSet.EOF
Response.write "<tr>"
'## Loopar igenom fält i recordset och presentera datan i tabellen.
For Each F In RecSet.Fields
Response.Write "<td class='line'>" & F.Value "</td>"
Next
Response.Write "</tr>"
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
%>
</code>