Detta är en kod som jag använder ganska offta, har den liggande i en inc fil nu men undrar om man kanske kan effektivisera den, kanske göra någon funktion eller sub som enkelt kan anropas när jag vill få fram datan? Har inte testat, men detta borde fungera snabbare... Tack så jätte mycket! Nä, skriv bara WriteSelect() så skriver den ut...Effektivisera en ofta använd databas loop i selectbox?
http://www.aspsidan.se/code/?c=5445Sv: Effektivisera en ofta använd databas loop i selectbox?
<%
Sub WriteSelect()
Response.Write "<select name=""wo_id"">"
Response.Write "<option selected value=""all"">Alla yrken</option>"
Dim SQL, RS, Last_CatID
SQL = "SELECT workcategory.wc_id, workcategory.wc_name, work.wo_id, work.wo_title FROM workcategory " _
& "LEFT OUTER JOIN work ON work.wo_wc_id = workcategory.wc_id " _
& "ORDER BY workcategory.wc_name, work.wo_title"
Set RS = objCon.Execute(SQL)
Last_CatID = -1
Do While Not RS.EOF
If cInt(Last_CatID) <> cInt(RS("wc_id")) Then
Response.Write "<option value=""0"" class=""select_heading"">" & Server.HTMLEncode(RS("wc_name")) & "</option>"
Last_CatID = cInt(RS("wc_id"))
End If
Response.Write "<option value=""" & RS("wo_id") & """> " & Server.HTMLEncode(RS("wo_title")) & "</option>"
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Response.Write "</select>"
End Sub
%>
Sv:Effektivisera en ofta använd databas loop i selectbox?
anropar jag den nu bara genom att skriva Response.Write(WriteSelect()) eller hur gör man dt? :SSv: Effektivisera en ofta använd databas loop i selectbox?
Det är en Sub så den returnerar ingenting.