sortering med chebokse og hvordan med genselection og SQLén?
Nogle medlemmer fra tabellen Users har fået makeringer i tabellen forkortelser. Forkortelser er bare nogle ord som fortæller om users. Man skal kunne benytte dette til at sortere efter. Markere man en forkortelse skal siden reloades og man ser kun users som har makering for dette.Tabllelen hedder bare forkortelser pga. at det en en forkortelse af et længere spørgsmål man har markeret eller ej.
Siden skal ikke gemme noget, men kun liste users.
Problemet er at jeg ikke kan få de formselektioner til at markere efter reload af siden og jeg har ej hellere fået skrevet den SQL som skal sortere users efter hvilke forkortelser som er markeret.
Kan du hjælpe mig videre?
Her er min kode:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/m.asp" -->
<%
Dim rs_users
Dim rs_users_numRows
Set rs_users = Server.CreateObject("ADODB.Recordset")
rs_users.ActiveConnection = MM_m_STRING
rs_users.Source = "SELECT * FROM Users"
rs_users.CursorType = 0
rs_users.CursorLocation = 2
rs_users.LockType = 1
rs_users.Open()
rs_users_numRows = 0
%>
<%
Dim rs_forkortelser
Dim rs_forkortelser_numRows
Set rs_forkortelser = Server.CreateObject("ADODB.Recordset")
rs_forkortelser.ActiveConnection = MM_m_STRING
rs_forkortelser.Source = "SELECT * FROM Sp"
rs_forkortelser.CursorType = 0
rs_forkortelser.CursorLocation = 2
rs_forkortelser.LockType = 1
rs_forkortelser.Open()
rs_forkortelser_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_forkortelser_numRows = rs_forkortelser_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>arbejdsdokument</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body><form action="index.asp" method="post" name="arbejdsomraade" id="arbejdsomraade">
<%
for each elm in request.form
response.write elm & " -- " & request(elm) & "<br>"
next
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" bgcolor="#EEEEEE"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td class="tekst">Sorter efter arbejdsområde</td>
<td><div align="right"> <font size="2" face="Arial, Helvetica, sans-serif">
<input name="submit" type="submit" class="formknap" value="Opdater">
</font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td nowrap> <input type="checkbox" name="checkbox" value="checkbox">
<span class="tekst">alle til eller alle fra</span> <br>
<% While ((Repeat1__numRows <> 0) AND (NOT rs_forkortelser.EOF))
sp_id = rs_forkortelser.Fields.Item("sp_id").Value
'sp_id = reequest.form(rs_forkortelser.Fields.Item("sp_id").Value)
Dim sp_id_true_false, sp_id_checked
If sp_id = "true" Then
sp_id_true_false = "true"
sp_id_checked = "checked"
else
sp_id_true_false = ""
sp_id_checked = ""
End if
%>
<input type="checkbox" name="<%=sp_id%>" value="<%=sp_id_true_false%>" <%=sp_id_checked%>>
<font size="1" face="Arial, Helvetica, sans-serif"><%=(rs_forkortelser.Fields.Item("ord").Value)%></font><br>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_forkortelser.MoveNext()
Wend
%>
<br>
</td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr valign="top" bgcolor="#EEEEEE">
<td colspan="11" class="tekst"> </td>
</tr>
<tr valign="top" bgcolor="#CCCCCC">
<td class="tekst"><div align="center">Firma</div>
</td>
<td class="tekst"><div align="center">Postnr</div>
</td>
<td class="tekst"><div align="center">By</div>
</td>
<td class="tekst"><div align="center">Kontaktperson</div>
</td>
<td class="tekst"><div align="center">Titel</div>
</td>
<td class="tekst"><div align="center">Tlf. </div>
</td>
<td class="tekst"><div align="center">Email</div>
</td>
<td class="tekst"><div align="center">Web</div>
</td>
<td class="tekst"><div align="center">Branche</div>
</td>
<td class="tekst"><div align="center">Virksomheds type</div>
</td>
<td class="tekst"><div align="center">Antal medarbejdere</div>
</td>
</tr>
<tr bgcolor="#EEEEEE" class="tekst">
<td><%=(rs_users.Fields.Item("firmanavn").Value)%> </td>
<td><%=(rs_users.Fields.Item("postalcode").Value)%> </td>
<td><%=(rs_users.Fields.Item("city").Value)%> </td>
<td><%=(rs_users.Fields.Item("f_name").Value)%> </td>
<td><%=(rs_users.Fields.Item("stilling").Value)%> </td>
<td><%=(rs_users.Fields.Item("phone").Value)%> </td>
<td><%=(rs_users.Fields.Item("email").Value)%> </td>
<td><%=(rs_users.Fields.Item("homepage_url").Value)%> </td>
<td><%=(rs_users.Fields.Item("branche").Value)%> </td>
<td> </td>
<td> </td>
</tr>
</table></td>
</tr>
</table></form>
</body>
</html>
<%
rs_users.Close()
Set rs_users = Nothing
%>
<%
rs_forkortelser.Close()
Set rs_forkortelser = Nothing
%>
