Her kommer der så lidt kode..
Formen ser såen her ud..
<body>
<table width="700" border="0" align="center" class="small" cellspacing=0>
<tr>
<td colspan="5">
<h1>
<%=rs("headline")%>
</h1>
</td>
<tr>
<tr>
<td colspan="5">
<%=rs("freetext")%>
</td>
</tr>
<tr>
<td colspan=5 align=right>
<%=rs("markall")%>
<input type="radio" name="mark" onClick="selectAll()" class="test">
<%=rs("unmarkall")%>
<input type="radio" name="mark" onClick="selectNone()" class="test" checked>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<%if rs2.eof then%>
<tr class="headline">
<td>
<%=rs("nousers")%>
</td>
</tr>
<%else%>
<tr class="headline">
<td>
<%=rs("name_field")%>
</td>
<td>
<%=rs("email_field")%>
</td>
<td>
<%=rs("Neartc_Field")%>
</td>
<td>
<%=rs("Repid_Field")%>
</td>
<!--td align="center">
<%=rs("approve_Field")%>
</td>
<td align="center">
<%=rs("delete_Field")%>
</td-->
</tr>
<%do while not rs2.eof%>
<tr>
<form action="./approve3.asp?mode=process" method="post" id=form1 name=form1>
<td bgcolor="<%= col %>"><font class="<%= textclass %>">
<%=rs2("Firstname")%> <%=rs2("lastname")%>
</td>
<td bgcolor="<%= col %>"><font class="<%= textclass %>">
<a href="mailto:<%=rs2("email")%>" class="<%= linkclass %>"><%=rs2("email")%></a>
</td>
<td bgcolor="<%= col %>"><font class="<%= textclass %>">
<%
SQL4 = "SELECT * FROM users where id=" & rs2("neartc")
set rs4 = conn.execute(sql4)
%>
<%=rs4("firstname")%> <%=rs4("lastname")%>
</td>
<td bgcolor="<%= col %>"><font class="<%= textclass %>">
<%=rs2("repid")%>
</td>
<td bgcolor="<%= col%>">
<%
SQLstmt = "SELECT * FROM titles where id=" & rs2("title")
Conn.Execute (SQLstmt)
Set rs6 = conn.Execute(SQLstmt)
SQL5 = "SELECT * FROM titles"
SET titles = Conn.Execute(SQL5)
%>
<select name="title" class="test">
<option value="<%=rs2("title")%>" SELECTED><%=rs6("title")%></option>
<option>----------</option>
<% Do While not titles.EOF %>
<option value="<%=titles("id")%>"><%=titles("title")%></option>
<%
titles.MoveNext
Loop
titles.Close
set titles = Nothing
%>
</select>
</td>
<td bgcolor="<%= col %>">
<input type=checkbox name="userid" value="<%=rs2("id")%>" class="test">
</td>
<!--td align="center" bgcolor="<%= col %>"><font class="<%= textclass %>">
<a href="approve.asp?mode=ok&id=<%=rs2("id")%>" class="<%= linkclass %>"><%=rs("approve_link")%></a>
</td>
<td align="center" bgcolor="<%= col %>"><font class="<%= textclass %>">
<a href="approve.asp?mode=notok&id=<%=rs2("id")%>" class="<%= linkclass %>"><%=rs("delete_link")%></a>
</td-->
</tr>
<%
if( linkclass="smallink" ) then
linkclass="whitelink"
else
linkclass="smallink"
end if
if( textclass="" ) then
textclass="white"
else
textclass=""
end if
if( col="#ffffff" ) then
'col="#c0c0c0"
col="#000066"
else
col="#ffffff"
end if
rs2.MoveNext
Loop
rs2.Close
set rs2 = Nothing
%>
<tr>
<td colspan=5 align=right>
<input type=submit name=approve Value="Godkend markerede" onmouseover="this.style.color='red'" onmouseout="this.style.color='black'"><input type="submit" name=notok value="Slet markerede" onmouseover="this.style.color='red'" onmouseout="this.style.color='black'">
</table>
<%end if%>
Her er så mit process script:
<%elseif request("mode") = "process" then%>
'Først checkker jeg om der bliver sendt en ID, hvis ikke der bliver det kommer der en besked.
<%
if request("userid") = "" then
Response.Write "<font class=headline>Du har ikke markeret nogen brugere....</font>"
Response.End
end if
if request("approve") <> "" then
'Her er det så menningen at jeg skal kunne få sorteret hhv. id og Title ud så de følges ad for jeg skal så bruge id'en til at hente brueren i databasen og godkende ham samt at chekke at hans title = det som administrateron evt. har valgt i formen.
Set rs3 = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From test_users where id=" & strID
rs3.Open strSQL, Conn, 1,3
IF rs3("title") <> request("strTITLES") then
rs3("title") = strTITLES
end if
rs3("approved") = 1
rs3.Update
rs3.Close
Set rs3 = Nothing
end if
%>
Jeg håber at det gav lidt mere mening.. Jeg ved godt det er lidt langhåret...
