Langsom kode - hvorfor?
HeyJeg skriver nogle referencer ud fra en DB.
Nedenstående kode virker, men det tager ca. 8 sekunder inden min referenceliste vises på skærmen. Er der noget der er galt med nedenstående kode der gør den langsom? Der er ca. 200 poster i DB'en.
Hvis der yderlige info om en reference fx. video eller billder så vises et link til disse informationer. Det er der der sker i den if-sætning der begynder med: If (RS2.BOF Or RS2.EOF) AND ...
-----------------
<%
tid = session("tid")
if tid = "" OR tid = "Alle referencer" then
strSQL = "SELECT * FROM Referencer ORDER BY tid DESC, id DESC;"
else
strSQL = "SELECT * FROM Referencer WHERE tid = '" & tid & "' ORDER BY tid DESC, id DESC;"
end if
set rs = conn.execute(strSQL)
If (RS.BOF Or RS.EOF) Then
response.write "Ingen referencer for denne i denne periode"
else
r = 0
Do Until rs.EOF
tempID = rs("ID")
strSQL2 = "SELECT * FROM StortPicRef where referenceId = " & tempID & " ORDER BY largePic DESC;"
set rs2 = conn.execute(strSQL2)
strSQL3 = "SELECT * FROM lillePicRef where referenceId = " & tempID & " ORDER BY smallPic DESC;"
set rs3 = conn.execute(strSQL3)
strSQL4 = "SELECT * FROM VideoRef WHERE referenceId = " & tempID & ";"
set rs4 = conn.execute(strSQL4)
%>
HTML HTML
<%
If (RS2.BOF Or RS2.EOF) AND (RS3.BOF Or RS3.EOF) AND (RS4.BOF Or RS4.EOF) AND (g="xxx") Then
%>
HTML HTML
<%
else
%>
HTML HTML
<%
end if
RS.MoveNext
r=1
loop
rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
rs3.Close
Set rs3 = Nothing
rs4.Close
Set rs4 = Nothing
Conn.Close
set Conn = Nothing
end if
%>
