Jag vill se till så att alla checkboxar (type 11) hamnar sist i formuläret.
<%
'Skriver ut det som man ska fylla i.
strProfileRegister = strProfileRegister & ";"
set rsGetFields = Server.CreateObject("adodb.recordset")
sqlGetFields = "Select * from tblAuthor"
rsGetFields.Open sqlGetFields, Conn
For each strField in rsGetFields.Fields
strFieldType = rsGetFields(strField.Name).type
'Kollar vilka fält som är undantag för registreringen
if Instr(strProfileRegister, strField.Name & ";") > 0 then
Response.write ""
else
'Fixar korrekta namn för fälten
set rsGetFieldName = Server.CreateObject("adodb.recordset")
sqlGetFieldName = "Select * from tblPublicNames where fieldName = '"&strField.Name&"'"
rsGetFieldName.Open sqlGetFieldName, Conn
response.write"<tr><td bgcolor="&strTblColor1&" width=""150"">"&_
" "&rsGetFieldName("Public_fieldName")&" "&_
"</td><td bgcolor="&strTblColor1&">"
if strFieldType = "11" then
response.write"<input type=""checkbox"">"
elseif strFieldType = "202" then
response.write"<input type=""text"" name="&strField.Name&" size=""26"">"
elseif strFieldType = "203" then
response.write"<textarea cols=""20"" rows=""3"" name="&strField.Name&"></textarea>"&_
"</td></tr>"
end if
end if
Next
%>
sqlGetFields = "Select * from tblAuthor"
rsGetFields.Open sqlGetFields, Conn
For each strField in rsGetFields.Fields
[B]strFieldType = rsGetFields(strField.Name).type[/B]
Det är ju den feta raden som bestämmer typen, men hur ska jag då sortera i sql frågan?'
sqlGetFields = "Select * from tblAuthor Order by strField asc"
rsGetFields.Open sqlGetFields, Conn
For each strField in rsGetFields.Fields
strFieldType = rsGetFields(strField.Name).type
ja, det finns olika typer, som text, pm och ja/nej... Det som jag skrev fungerade inte... Jag villa alltså sortera ja/nej fälten så att dom hamnar underst i formuläret...
Lägg till ett fält i tabellen du kan sortera efter. Då kan du dessutom ganska enkelt flytta upp ett eller ett par fält om du vill att sorteringen ska ska gälla för "alla fält utom det och det".
