Jag har ett script i ASP som listar medlämmarna och där jag kan krysa i en/flera checkboxar för att ta bort dom men det funkar inte så snälla nån hjälp mig!!! Jo scriptet listar alla medlämmar och på varje rad är det en checkbox som jag kan krysa i och sen trycka på "Ta bort" så ska dom raderas ur min db men det vill inte funka :-(Hjälp!!!
-----------------------------------------------------------------------------------
<!-- #include virtual="/applications/adovbs.inc" -->
<html>
<title>Inloggning och användardatabas</title>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\asp\data\users.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset") %>
<% '====================================================================================================================== %>
<% ' Skapa användare %>
<% '====================================================================================================================== %>
<% If Request.QueryString("alt") = "createuser" Then %>
<font size="1" face="verdana, arial">
<b>Skapa ny användare</b><p>
<form method="POST" action="admin.asp?alt=create">
<b>Nytt användarnamn</b><br>
<input type="text" size="30" name="username" style="font-size: 8pt; font-family: verdana, arial"><p>
<b>Nytt lösenord</b><br>
<input type="text" size="30" name="password" style="font-size: 8pt; font-family: verdana, arial"><p>
<b>E-post</b><br>
<input type="text" size="30" name="e-post" style="font-size: 8pt; font-family: verdana, arial"><p>
<b>Behörighet</b><br>
<input type="radio" name="access" value="A">A-access (admin)<br>
<input type="radio" name="access" value="B">B-access (medarbetare)<br>
<input type="radio" name="access" value="C">C-access (användare)<p>
<input type="submit" value="Skapa nytt konto" style="font-size: 8pt; font-family: verdana, arial">
</form>
<p>
<ul>
<li>Skapa ny användare
<li>Lista användare
</ul>
</font>
<% ElseIf Request.QueryString("alt") = "create" Then %>
<font size="1" face="verdana, arial">
<b>Ny användare skapad!</b><p>
<% Visa = "SELECT * FROM users"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = Request.Form("access")
RecSet.Update %>
<p>
<ul>
<li>Skapa ny användare
<li>Lista användare
</ul>
</font>
<% RecSet.Close
End If %>
<% '====================================================================================================================== %>
<% ' Lista användare %>
<% '====================================================================================================================== %>
<% If Request.QueryString("alt") = "viewusers" Then %>
<font size="1" face="verdana, arial">
<b>Listar användare!</b><p>
<% Dim ConnDB, RS, SSQL
Set ConnDB = Server.CreateObject("ADODB.connection")
Set RS = Server.CreateObject("ADODB.recordset")
ConnDB.Provider="microsoft.jet.OLEDB.4.0"
ConnDB.Properties("data source")="c:\inetpub\wwwroot\asp\data\users.mdb"
ConnDB.Open
SSQL = "SELECT * FROM users;"
RS.Open SSQL,ConnDB,1,3 %>
<form method="post" action="admin.asp?alt=deluser" name="listform">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100"><font size="1" face="verdana, arial"><b>Användare</b></font></td>
<td width="100"><font size="1" face="verdana, arial"><b>Lösenord</b></font></td>
<td width="150"><font size="1" face="verdana, arial"><b>E-post</b></font></td>
<td width="100"><font size="1" face="verdana, arial"><b>Behörighet</b></font></td>
<td width="100"><font size="1" face="verdana, arial"><b>Tabort</b></font></td>
</tr>
<% Do Until RS.EOF %>
<tr>
<td><font size="1" face="verdana, arial"><% =RS("Username") %></font></td>
<td><font size="1" face="verdana, arial"><% =RS("Password") %></font></td>
<td><font size="1" face="verdana, arial">"><% =RecSet("E-post") %></font></td>
<td><font size="1" face="verdana, arial"><% =RS("Access") %></font></td>
<td><font size="1" face="verdana, arial"><input type="checkbox" value="<% =RS("Username") %>" name="Recivers"></td>
</tr>
<% RS.MoveNext
Loop %>
</table>
<p>
<br>
<input type="submit" value="Ta Bort Medlämmar" name="submit"> <input type="reset" value="Töm Checkboxar" name="reset">
<br>
<ul>
<li>Skapa ny användare
<li>Lista användare
</ul>
</font>
</form>
<% ElseIf Request.QueryString("alt") = "delUser" Then %>
<%
If Request.Form("Recivers").Count > 0 Then
Dim ConnDB
Dim SSQL
Dim vTemp
Dim sIn
Dim sList
Set ConnDB = Server.CreateObject("ADODB.connection")
ConnDB.Provider="microsoft.jet.OLEDB.4.0"
ConnDB.Properties("data source")="c:\inetpub\wwwroot\asp\data\users.mdb"
ConnDB.Open
For each vTemp in Request.Form("Recivers")
If Len(sIn) Then
sIn = sIn & ", '" & vTemp & "'"
Else
sIn = "'" & vTemp & "'"
End if
sList = sList & vTemp & "<BR>" & vbCrLf
Next
SSQL = "DELETE * FROM users WHERE username IN (" & sIn & ")"
ConnDB.Execute SSQL
Response.Write "<B>Följande medlämmar har tagits bort:</B><BR>" & vbcrlf
Response.Write sList
Else
%>
<H1>Inga medlämmar markerade!</H1>
<%
End if
%>Sv: Hjälp!!!