Kan denne kode optimeres?

Jeg har denne asp-kode som er meget langsom at afvikle.
Det er en form som henter data fra en db - hvorefter man kan rette i dem.
Nedenstående side bliver kaldt fra retinfo_2.asp - men retinfo_3.asp tager laaaang tid om at komme frem med alle data.
Der er ikke desiderede fejl i koden - men kan det skrives bedre så det afvikles hurtigere??

Jeg har udvalgt et par ekspempler fra koden - den rigtige kode består af dropdows og textfelter der fylder over 700 linjer.

Here goes:


<form name="form1" method="post" action="retinfo_4.asp?id=<%=identifikation%>">
                            <p>
                              <input type="text" name="textfield" value="<%=rs("dias")%>">
                              Billedenavn<br>
                              <input type="text" name="textfield2" value="<%=rs("thumbnail")%>">
                              Thumbnailnavn<br>
                              <input type="text" name="textfield3" value="<%=rs("bestillingsnr")%>">
                              Bestillingsnummer<br>
                              <input type="text" name="textfield4" value="<%=rs("cdnr")%>">
                              CD-nummer<br>
<select name="select" size="1">
<option selected>-</option>
<%
strSQL = "SELECT fotograf FROM diasliste where id = " & identifikation
Set RS = objconn.Execute(strSQL)
strSQL = "SELECT fotograf FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
Do While Not objrs.EOF
If NOT objrs("fotograf")="" OR objrs("fotograf")=NULL Then
%>
<option value="<%= objrs("fotograf")%>" <% If rs("fotograf") = objrs("fotograf") Then     response.Write("selected")%>><%= objRs("fotograf") %></option>
<%
else
end if
objrs.MoveNext
loop
%>

</select>
Fotograf<br>
<option selected>-</option>
<%
strSQL = "SELECT filmtype FROM diasliste where id = " & identifikation
Set RS = objconn.Execute(strSQL)
strSQL = "SELECT filmtype FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
Do While Not objrs.EOF
If NOT objrs("filmtype")="" OR objrs("filmtype")=NULL Then
%>
<option value="<%= objrs("filmtype")%>" <% If rs("filmtype") = objrs("filmtype") Then     response.Write("selected")%>><%= objRs("filmtype") %></option>
<%
else
end if
objrs.MoveNext
loop
%>

</select>
Filmtype<br>
<select name="select28" size="1">
<option selected>-</option>
<%
strSQL = "SELECT lukketid FROM diasliste where id = " & identifikation
Set RS = objconn.Execute(strSQL)
strSQL = "SELECT lukketid FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
Do While Not objrs.EOF
If NOT objrs("lukketid")="" OR objrs("lukketid")=NULL Then
%>
<option value="<%= objrs("lukketid")%>" <% If rs("lukketid") = objrs("lukketid") Then     response.Write("selected")%>><%= objRs("lukketid") %></option>
<%
else
end if
objrs.MoveNext
loop
%>
                               
</select>
Lukketid<br>

bla bla osv osv.