Någon som vill hjälpa mig med denna kod


strSQL2 = "SELECT * FROM cat"
Set rsLink2 = dbConn.Execute(strSQL2)
Do Until rsLink2.EOF
'// plockar ut alla länkar som tillhör denna kategori
strSQL3 = "SELECT * FROM linkCat WHERE cId = " &rsLink2("cId") &" AND lId = " &rsLink("lId")
Set rsLink3 = dbConn.Execute(strSQL3)
Do Until rsLink3.EOF
valdCat = rsLink2("cHeadline")
rsLink3.MoveNext
Loop
Response.Write "<div id=""checkCat"">"
IF valdCat = rsLink2("cHeadline") THEN
Response.Write "<input type=""checkbox"" name=""cId"" value=""" &rsLink2("cId") &""" checked>" &rsLink2("cHeadline")
ELSE
Response.Write "<input type=""checkbox"" name=""cId"" value=""" &rsLink2("cId") &""">" &rsLink2("cHeadline")
END IF
Response.Write "</div>"
rsLink2.MoveNext
Loop

Det vore bra om du skrev vad du vill ha hjälp med att effektivisera.


//Anna-Karn

Håller med Cougarina!

Då är frågan vill du effektivisera genom att minska antalet recordsets och loopar, så kanske detta funkar(obs! totalt otestat och gör säkert inte de du vill, kanske inte ens funkar!) :-)
<kod>
<%
' annat tjafs tillhörande rsLInk.

SQL = "SELECT cat.cHeadline, linkCat.cId, linkCat.lId FROM cat INNER JOIN linkCat ON linkCat.cId = cat.cId AND linkCat.lId = " & rsLink("lId")

Set rs = dbConn.ExeCute(SQL)

Do until rs.EOF
valdCat = rs("cHeadline")
Response.Write("<dic id=""checkCat"">")

If(valdCat = rs("cHeadline"))Then
Response.Write "<input type=""checkbox"" name=""cId"" value=""" &rs("cId") &""" checked ID="1">" &rs("cHeadline")
Else
Response.Write "<input type=""checkbox"" name=""cId"" value=""" &rs("cId") &""" ID="2">" &rs("cHeadline")
End If

Response.Write "</div>"
rs.MoveNext
Loop
%>
</kod>

Ja,

det jag vill är att inte behöva så många record set
och om det går att bara använda en sql fråga

hela koden:
<kod>

<%
call connOpen()

IF Session("REQsbK9G") <> "" THEN
strSQL = "SELECT * FROM link WHERE lId = " &Session("REQsbK9G")
Set rsLink = dbConn.Execute(strSQL)
%>
<form action="actions.asp?a=uppLink&lId=<%=rsLink("lId")%>" method="post" name="frmuppLink" onSubmit="return uppLink()">
<%

SQL = "SELECT cat.cHeadline, cat.cId, cat.lId, linkCat.cId, linkCat.lId FROM cat INNER JOIN linkCat ON linkCat.cId = cat.cId AND linkCat.lId = " & rsLink("lId")
Set rs = dbConn.Execute(SQL)

Do until rs.EOF
valdCat = rs("cHeadline")
Response.Write("<dic id=""checkCat"">")

If(valdCat = rs("cHeadline"))Then
Response.Write "<input type=""checkbox"" name=""cId"" value=""" &rs("cId") &""" checked>" &rs("cHeadline")
Else
Response.Write "<input type=""checkbox"" name=""cId"" value=""" &rs("cId") &""">" &rs("cHeadline")
End If

Response.Write "</div>"
rs.MoveNext
Loop


%>
<br>
<br>
<br>
Förenings / Företags namn:<br>
<input name="lHeadline" type="text" id="lHeadline" value="<%=rsLink("lHeadline")%>" size="50">
<br>
<br>
Telefon:<br>
<input name="lTele" type="text" id="lTele" value="<%=rsLink("lTele")%>" size="50">
<br>
<br>
E-post:<br>
<input name="lEpost" type="text" id="lEpost" value="<%=rsLink("lEpost")%>" size="50">
<br>
<br>
Hemsida:<br>
<input name="lUrl" type="text" id="lUrl" value="<%=rsLink("lUrl")%>" size="50">
<br>
<br>
<input type="submit" name="Submit" value="Uppdatera">
</form>
<%
call connClose()

ELSE

END IF
%>
</kod>