Slette/rette online

Kigger på indlæggende i morgen, skal i seng nu.. ;o)

det havde været lettere hvis du havde posted noget info fra din brugertabel i basen (feltnavne etc.)

men dybest set skal du have din bruger frem i en variabel derefter bruge:

sql = \"delete * from _dintabel_ where id =\" & _denbrugerduvilhaveslettet_

hvis du vil have alle dine brugere frem med en afkrydsningsbox, så skal du lave et loop i din base

sql = \"select * from _dintabel_\"
set rs = conn.execute(sql)

do while not rs.eof
strhtml = strhtml & \"<tr><td><input type=\'checkbox\' name=\'\"& rs(\"id\") &\"\'>\" & rs(\"_bruger_\") & \"</td></tr>\"
rs.movenext
loop



så skal du sætte din strHtml imellem et sæt <form> tags
noget alá

<form method=\'post\' action=\'_ditscript_.asp\'>
<table>
<%= strHtml %>
</table>
<input type=\'submit\' value=\'slet_bruger\' name=\'slet\'>
</form>



så får du vist alle brugere der er i tabellen, og de kommer med en check-box, du kan kalde værdien af i dit script der sletter brugeren, se ovenover!

johh..men kan man så ikke gå ind og slette brugere uden at have tilladelse ved bare at kende navnet på administrations-siden??

jeg er selv ved at fedte rundt med noget lignende ASP kode, og leder efter en metode til at logge ind i en password-beskyttet access DB via conn-string, som man f.eks kunne specificere via den indtastede URL (eller en alternativ metode, som jeg bare ikke har fantasi til at forestille mig..).

det lyder som om du godt kunne ligge inde med et svar, madrich ;-)

monkeysee  --->Har du ikke mulighed for at ligge DB\'en i en \"sikker\" mappe på din server, og så lave en \"rimeligt\" sikker login med et par formularer og en session?


det letteste ville helt klart være at oprette et almindeligt Login (til asp), men hvis DB navnet er kendt af andre (altså hvis det er en fil baseret base) end dig selv OG den ligger i en \"ikke\" sikret mappe --> dvs. den kan hentes på en url på nettet, så bliver du nok nødt til at lave en sikret base! men der kan man også logge på, men det du så skal, er at der hvor du normalt skriver paswords, dette er til en Mysql base (dvs ikke en filbaseret base, men princippet er vist nogenlunde det samme)

mysql_connect(\"localhost\",request.form(\"username\"),request.form(\"password\"));

Altså angive et login, sammen med at du \"connecter\" til basen! --> her er det så nogle variabler der´er indtastet i en formular! (whatever:))

Med hensyn til det oprindelige spørgsmål!, så går jeg udfra at realone har et logon på sit administrations-site, det er som sagt en normal feature!

madrich >> Nej, min server er et discount webhotel til 50 kr. md. Tvivler stærkt på at de er så fleksible ;-(
Hvad angår dit SQL eksempel - Det er det jeg leder efter! MEN: Min egen connection string er lidt anderledes, da det er en alm. Access DB:
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"gaestebog.mdb\")

Kan man gøre det samme med en Access DB ???

Ja det skulle ikke være det store problem, men hvem er din web-udbyder?

internetklubben.dk - hostet af dantel. Det er en OK udbyder (billig/stabil), men de tager såååå lang tid om at servicere at jeg nærmest opgiver tanken om at placere min DB i filsystemet på forhånd...

Alle udbydere af hvad jeg har set altså), laver en speciel mappe, der hedder DB (eller noget i den forretning) og hvis du placerer din base i den, så er den ikke tilgængelig på nettet, men er tilgængelig for den server hvorpå den er placeret!

du har ASP PRO eller hvad?

Har du ikke en ICQ, eller opretter du ikke et spqm, da Realone, nok ikke synes det er særlig fedt at få spammet hans!

Her er et eksempel på et login system som jeg selv har lavet og bruger :

Default.asp

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
%>
<!--#include virtual=\"/Connections/FmMember.inc\" -->

<html>
<head>
<title>Log in to ForMor member section</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%
Dim YourCookiesId, CookiesId, NoCookies
YourCookiesId = Request.Cookies(\"Memberacces\")(\"YourId\")
CookiesId = Request.Cookies(\"Memberacces\")(\"CookiesId\")
NoCookies = (\"0\")

If YourCookiesId = \"\" OR CookiesId = \"\" Then
NoCookies = NoCookies + 1
End IF
If NoCookies = 1 Then
 
Dim fejl, FejlYourId, FejlPassword, FejlForkertPassword, FejlYourIdNotInDb
Fejl = Request.Querystring(\"Fejl\")
FejlYourId = Request.Querystring(\"FejlYourId\")
FejlPassword = Request.Querystring(\"FejlPassword\")
FejlForkertPassword = Request.Querystring(\"FejlForkertPassword\")
FejlYourIdNotInDb = Request.Querystring(\"FejlYourIdNotInDb\")
%>
<form name=\"form1\" method=\"get\" action=\"makelogin.asp\">
  <table width=\"550\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td>
        <div align=\"center\"><img src=\"../banner/div_pic/guld_bue_550_top.jpg\" width=\"550\" height=\"39\">
          <font color=\"#FF0000\"><B>
          <%If FejlYourId > 0 Or FejlPassword > 0 Then
            Response.Write \"There was a problem with the information you submittet.<br>\"
            End If %>
         
          <%If FejlForkertPassword = 1 Then
            Response.Write \"Password is incorect<br>\"
            End If %>
         
          <% If Fejl = 1 Then
          Response.Write \"You must fill in the fields\"
          End If %>
         
          <% If FejlYourIdNotInDb > 0 Then
              Response.Write \"The ID number is not in our database\"
            End If %>
          </B></font></div>
      </td>
    </tr>
  </table>
  <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td width=\"224\">Enter your Id #</td>
      <td width=\"264\">
        <font color=\"#FF0000\">
        <%If FejlYourId > 0 Then
          Response.Write \"There was a problem with your Member Id\"
          End If %>
        </font>
        <input type=\"text\" name=\"YourId\">
      </td>
    </tr>
    <tr>
      <td width=\"224\">Enter your password</td>
      <td width=\"264\">
        <font color=\"#FF0000\">
        <%If FejlPassword > 0 Then
          Response.Write \"There was a problem with your Password\"
          End If %>
        </font>
        <input type=\"password\" name=\"Password\">
      </td>
    </tr>
  </table>
  <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td>
        <div align=\"center\">
        <font color=\"#FF0000\"><B>
          <%If FejlYourId > 0 Or FejlPassword > 0 Then
            Response.Write \"Please note that you can\'t use characters like<br>_ \' % , ; & =<br>or spaces \"
            End If %>
        </B></font>
        </div>
      </td>
    </tr>
  </table>
  <table width=\"r%\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td>
        <input type=\"submit\" name=\"Submit2\" value=\"Submit\">
      </td>
    </tr>
  </table>
  <br>
  <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td width=\"4\">
        <input type=\"radio\" name=\"RememberMe\" value=\"1\" checked>
      </td>
      <td width=\"484\">I want to log in every time I visit the member section (<font color=\"#FF0000\">Recommended</font>)*</td>
    </tr>
    <tr>
      <td width=\"4\">
        <input type=\"radio\" name=\"RememberMe\" value=\"2\">
      </td>
      <td width=\"484\">I want to be automatically logged in each time I visit the
        member section **</td>
    </tr>
  </table>
  <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td><img src=\"../banner/div_pic/guld_bue_550_bund.jpg\" width=\"550\" height=\"39\"></td>
    </tr>
  </table>
</form>
<table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
  <tr>
    <td>
      <p><font size=\"2\">* If you choose this recommended option nobody can enter
        your member section unless they know your password</font></p>
      <p><font size=\"2\">** If you choose this option anybody can enter your member
        section if they use your computer!</font></p>
      <p><font size=\"2\" color=\"#FF0000\">Please note :</font><font size=\"2\"><br>
        If your browser does not support cookies you wont be able to log in to
        the member section.</font></p>
    </td>
  </tr>
</table>
</body>
</html>
<%End If %>
<%
If NoCookies = 0 Then
Set RsCheckCookies = Conn.Execute(\"SELECT CookiesId FROM MedlemsInfo Where MedlemsIdNr = \'\" & YourCookiesId & \"\'\")
  If RsCheckCookies(\"CookiesId\") = CookiesId Then
  Server.Transfer \"logged_in.asp\"
  Else
  Response.Redirect \"re_log_in.asp?Side=/member/default.asp&BadCookiesPassword=1\" %>
<%
End If
End If
%>



makelogin.asp :

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
%>
<!--#include virtual=\"/Connections/FmMember.inc\" -->
<%
Dim YourId, Password, FejlYourId, Fejl, FejlPassword, FejlYourIdNotInDb, FejlForkertPassword, FejlRememberMe, RememberMe
YourId = Request.Querystring(\"YourId\")
Password = Request.Querystring(\"Password\")
Fejl = (\"0\")
FejlYourId = (\"0\")
FejlPassword = (\"0\")
FejlYourIdNotInDb = (\"0\")
FejlForkertPassword = (\"0\")
FejlRememberMe = (\"0\")
RememberMe = Request.Querystring(\"RememberMe\")

%>

<%
If YourId = (\"\") Or Password = (\"\") Then
  Fejl = Fejl + 1
End If

  if instr(YourId ,\"\'\") Or _
  instr(YourId ,\"&\") Or _
  instr(YourId ,\",\") Or _
  instr(YourId ,\";\") Or _
  instr(YourId ,\"_\") Or _
  instr(YourId ,\"=\") Or _
  instr(YourId ,\" \") Or _
  instr(lcase(YourId) ,\"select \") Or _
  instr(lcase(YourId) ,\" where \") Or _
  instr(lcase(YourId) ,\" or \") Or _
  instr(lcase(YourId) ,\" by \") Or _
  instr(lcase(YourId) ,\" insert \") Or _
  instr(lcase(YourId) ,\" update \") Or _
  instr(lcase(YourId) ,\" and \") Then
  FejlYourId = FejlYourId + 1
  End If
 
  if instr(Password ,\"\'\") Or _
  instr(Password ,\"&\") Or _
  instr(Password ,\",\") Or _
  instr(Password ,\";\") Or _
  instr(Password ,\"_\") Or _
  instr(Password ,\"=\") Or _
  instr(Password ,\" \") Or _
  instr(lcase(Password) ,\"select \") Or _
  instr(lcase(Password) ,\" where \") Or _
  instr(lcase(Password) ,\" or \") Or _
  instr(lcase(Password) ,\" by \") Or _
  instr(lcase(Password) ,\" insert \") Or _
  instr(lcase(Password) ,\" update \") Or _
  instr(lcase(Password) ,\" and \") Then
  FejlPassword = FejlPassword + 1
  End If
 
  If Fejl > 0 Or FejlYourId > 0 Or FejlPassword > 0 Then
  Response.Redirect \"default.asp?FejlYourId=\" & FejlYourId & _
  \"&FejlPassword=\" & FejlPassword & _
  \"&Fejl=\" & Fejl
  End If
 
  Set RS = conn.Execute (\"SELECT MedlemsIdNr From MedlemsInfo WHERE MedlemsIdNr =\'\" & YourId & \"\'\")
 
  If RS.EOF Then
  Response.Redirect \"default.asp?FejlYourIdNotInDb=1\"
  Else
 
 
  Set RS1 = conn.Execute (\"SELECT MedlemsPassword From MedlemsInfo WHERE MedlemsIdNr =\'\" & YourId & \"\'\")
 
  If RS1(\"MedlemsPassword\") <> Password Then
  FejlForkertPassword = FejlForkertPassword + 1
  End If
  If RememberMe = \"\" Then
  FejlRememberMe = FejlRememberMe + 1
  End If
 
  If FejlYourIdNotInDb > 0 Or FejlForkertPassword > 0 Or FejlRememberMe > 0 Then
  Response.Redirect \"default.asp?FejlYourIdNotInDb=\" & FejlYourIdNotInDb & _
  \"&FejlForkertPassword=\" & FejlForkertPassword & _
  \"&FejlRememberMe=\" & FejlRememberMe
  Else
 
  Function MakePassword(intAntaltegn)
  For x = 1 To intAntalTegn
    Randomize
    intChooser = Int(Rnd * 2) + 1
    Select Case intChooser
    Case 1
      intWildChar = Int(Rnd * 57) + 65
      If intWildChar => 91 And intWildChar <= 96 Then
        intWildChar = intWildChar + 8
      End If
      strPassword = strPassword & Chr(intWildChar)
    Case Else
      intWildChar = Int(Rnd * 9) + 1
      strPassword = strPassword & intWildChar
    End Select
  Next
  MakePassword = strPassword
End Function
CookiesId1 = MakePassword(20)
\'for at undgå 2 mennesker ender med samme CookiesId sætter vi Id nummer ind foran
CookiesId = YourId & CookiesId1

If RememberMe = (\"1\") Then

  Set RS2 = conn.Execute (\"UPDATE MedlemsInfo SET CookiesId = \'\" & CookiesId & \"\' Where MedlemsIdNr = \'\" & YourId & \"\'\")

  Response.Cookies(\"Memberacces\")(\"CookiesId\") = \"\" & CookiesId & \"\"
  Response.Cookies(\"Memberacces\")(\"YourId\") = \"\" & YourId & \"\"
  \'Response.Cookies(\"Memberacces\").Expires = dateadd(\"h\",2,now()) 
  Response.Redirect \"logged_in.asp\"
  Else
  If RememberMe = (\"2\") Then
 
  Set RS3 = conn.Execute (\"UPDATE MedlemsInfo SET CookiesId = \'\" & CookiesId & \"\' Where MedlemsIdNr = \'\" & YourId & \"\'\")
 
  Response.Cookies(\"Memberacces\")(\"CookiesId\") = \"\" & CookiesId & \"\"
  Response.Cookies(\"Memberacces\")(\"YourId\") = \"\" & YourId & \"\"
  Response.Cookies(\"Memberacces\").Expires = Date+365
  Response.Redirect \"logged_in.asp\"
    End If
  End If
  End If
End If
%>

Logged_in.asp :

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
%>
<!--#include virtual=\"/member/check_cookies.inc\" -->
Bla bla bla bla

Check_cookies.inc :

Denne fil inkluderes bare på alle sidcer som skal være beskyttet

<%
Dim CookiesId, YourId, Side
CookiesId = Request.Cookies(\"Memberacces\")(\"CookiesId\")
YourId = Request.Cookies(\"Memberacces\")(\"YourId\")
Side = Request.Servervariables(\"URL\") & \"?\" & Request.Querystring

If Request.Cookies(\"MemberAcces\")(\"CookiesId\") = (\"\") Then
Response.redirect \"/member/re_log_in.asp?side=\" & Side & _
\"&NoCookies=1\"
Else
%>
<!--#include virtual=\"/Connections/FmMember.inc\" -->
<%

  Set RS = conn.Execute (\"Select MedlemsIdNr, CookiesId From MedlemsInfo Where MedlemsIdNr = \'\" & YourId & \"\'\")
 
  If CookiesId <> RS(\"CookiesId\") then
  Response.redirect \"/member/re_log_in.asp?side=\" & Side & _
  \"&BadCookiesPassword=1\"
  End If
End If
 
%>



re_log_in.asp :

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
%>
<%
Dim fejl, FejlYourId, FejlPassword, FejlForkertPassword, BadCookiesPassword, Side, NoCookies, FejlYourIdNotInDb
Fejl = Request.Querystring(\"Fejl\")
FejlYourId = Request.Querystring(\"FejlYourId\")
FejlPassword = Request.Querystring(\"FejlPassword\")
FejlForkertPassword = Request.Querystring(\"FejlForkertPassword\")
BadCookiesPassword = Request.Querystring(\"BadCookiesPassword\")
Side = Request.Querystring(\"Side\")
NoCookies = Request.Querystring(\"NoCookies\")
FejlYourIdNotInDb = Request.Querystring(\"FejlYourIdNotInDb\")
%>
<html>
<head>
<title>You must be logged in to wiev the page.</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<form name=\"form1\" method=\"get\" action=\"re_make_login.asp\">
  <table width=\"550\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td>
        <div align=\"center\"><img src=\"../banner/div_pic/guld_bue_550_top.jpg\" width=\"550\" height=\"39\">
          <font color=\"#FF0000\"><B>
          <%If FejlYourId > 0 Or FejlPassword > 0 Then
            Response.Write \"There was a problem with the information you submittet.<br><br>\"
            End If %>
         
          <%If FejlForkertPassword = 1 Then
            Response.Write \"Password is incorect<br><br>\"
            End If %>
         
         
          <% If Fejl = 1 Then
          Response.Write \"You must fill in the fields\"
          End If %>
         
          <% If BadCookiesPassword > 0 Then
              Response.Write \"Your cookies password diddent match, Please log in again.\"
            End If %>
         
          <% If NoCookies > 0 Then
              Response.Write \"You must be logged in to wiev this page\"
            End If %>
           
          <% If FejlYourIdNotInDb > 0 Then
              Response.Write \"The ID number is not in our database\"
            End If %>
          </B></font></div>
      </td>
    </tr>
  </table>
  <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td width=\"224\">Enter your Id #</td>
      <td width=\"264\">
        <font color=\"#FF0000\">
        <%If FejlYourId > 0 Then
          Response.Write \"There was a problem with your Member Id\"
          End If %>
        </font>
        <input type=\"text\" name=\"YourId\">
      </td>
    </tr>
    <tr>
      <td width=\"224\">Enter your password</td>
      <td width=\"264\">
        <font color=\"#FF0000\">
        <%If FejlPassword > 0 Then
          Response.Write \"There was a problem with your Password\"
          End If %>
        </font>
        <input type=\"password\" name=\"Password\">
        <input type=\"hidden\" name=\"Side\" value=\"<% = Side %>\">
      </td>
    </tr>
  </table>
  <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td>
        <div align=\"center\">
        <font color=\"#FF0000\"><B>
          <%If FejlYourId > 0 Or FejlPassword > 0 Then
            Response.Write \"Please note that you can\'t use characters like<br>_ \' % , ; & =<br>or spaces \"
            End If %>
        </B></font>
        </div>
      </td>
    </tr>
  </table>
  <table width=\"r%\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td>
        <input type=\"submit\" name=\"Submit2\" value=\"Submit\">
      </td>
    </tr>
  </table>
  <br>
  <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td width=\"4\">
        <input type=\"radio\" name=\"RememberMe\" value=\"1\" checked>
      </td>
      <td width=\"484\">I want to log in every time I visit the member section (<font color=\"#FF0000\">Recommended</font>)*</td>
    </tr>
    <tr>
      <td width=\"4\">
        <input type=\"radio\" name=\"RememberMe\" value=\"2\">
      </td>
      <td width=\"484\">I want to be automatically logged in each time I visit the
        member section **</td>
    </tr>
  </table>
  <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
    <tr>
      <td><img src=\"../banner/div_pic/guld_bue_550_bund.jpg\" width=\"550\" height=\"39\" border=\"0\"></td>
    </tr>
  </table>
</form>
<table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
  <tr>
    <td>
    <font color=\"#FF0000\"><B>
      <% If BadCookiesPassword > 0 Then
          Response.Write \"This error ocours only if someone else has used your member information to log in to your account or you have logged into the member section from another computer\"
        End If %>
          </B></font>
      <p><font size=\"2\">* If you choose this recommended option nobody can enter
        your member section unless they know your password</font></p>
      <p><font size=\"2\">** If you choose this option anybody can enter your member
        section if they use your computer!</font></p>
      <p><font size=\"2\" color=\"#FF0000\">Please note :</font><font size=\"2\"><br>
        If your browser does not support cookies you wont be able to log in to
        the member section.</font></p>
    </td>
  </tr>
</table>
</body>
</html>




re_make_login.asp :

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
Response.Expires = 0
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
%>
<!--#include virtual=\"/Connections/FmMember.inc\" -->
<%
Dim YourId, Password, FejlYourId, Fejl, FejlPassword, FejlYourIdNotInDb, FejlForkertPassword, FejlRememberMe, RememberMe
YourId = Request.Querystring(\"YourId\")
Password = Request.Querystring(\"Password\")
Fejl = (\"0\")
FejlYourId = (\"0\")
FejlPassword = (\"0\")
FejlYourIdNotInDb = (\"0\")
FejlForkertPassword = (\"0\")
FejlRememberMe = (\"0\")
RememberMe = Request.Querystring(\"RememberMe\")
Side = Request.Querystring(\"Side\")

%>

<%

If Side = \"\" Then
Response.Redirect \"http://www.formor.dk/member/not_from_domaine.asp\"
End If

If YourId = (\"\") Or Password = (\"\") Then
  Fejl = Fejl + 1
End If

  if instr(YourId ,\"\'\") Or _
  instr(YourId ,\"&\") Or _
  instr(YourId ,\",\") Or _
  instr(YourId ,\";\") Or _
  instr(YourId ,\"_\") Or _
  instr(YourId ,\"=\") Or _
  instr(YourId ,\" \") Or _
  instr(lcase(YourId) ,\"select \") Or _
  instr(lcase(YourId) ,\" where \") Or _
  instr(lcase(YourId) ,\" or \") Or _
  instr(lcase(YourId) ,\" by \") Or _
  instr(lcase(YourId) ,\" insert \") Or _
  instr(lcase(YourId) ,\" update \") Or _
  instr(lcase(YourId) ,\" and \") Then
  FejlYourId = FejlYourId + 1
  End If
 
  if instr(Password ,\"\'\") Or _
  instr(Password ,\"&\") Or _
  instr(Password ,\",\") Or _
  instr(Password ,\";\") Or _
  instr(Password ,\"_\") Or _
  instr(Password ,\"=\") Or _
  instr(Password ,\" \") Or _
  instr(lcase(Password) ,\"select \") Or _
  instr(lcase(Password) ,\" where \") Or _
  instr(lcase(Password) ,\" or \") Or _
  instr(lcase(Password) ,\" by \") Or _
  instr(lcase(Password) ,\" insert \") Or _
  instr(lcase(Password) ,\" update \") Or _
  instr(lcase(Password) ,\" and \") Then
  FejlPassword = FejlPassword + 1
  End If
 
  If Fejl > 0 Or FejlYourId > 0 Or FejlPassword > 0 Then
  Response.Redirect \"re_log_in.asp?FejlYourId=\" & FejlYourId & _
  \"&FejlPassword=\" & FejlPassword & _
  \"&Fejl=\" & Fejl & _
  \"&Side=\" & Side
  End If
 
  Set RS = conn.Execute (\"SELECT MedlemsIdNr From MedlemsInfo WHERE MedlemsIdNr =\'\" & YourId & \"\'\")
 
  If RS.EOF Then
  Response.Redirect \"re_log_in.asp?FejlYourIdNotInDb=1&Side=\" & Side
  Else
 
  Set RS1 = conn.Execute (\"SELECT MedlemsPassword From MedlemsInfo WHERE MedlemsIdNr =\'\" & YourId & \"\'\")
 
  If RS1(\"MedlemsPassword\") <> Password Then
  FejlForkertPassword = FejlForkertPassword + 1
  End If
  If RememberMe = \"\" Then
  FejlRememberMe = FejlRememberMe + 1
  End If
 
  If FejlYourIdNotInDb > 0 Or FejlForkertPassword > 0 Or FejlRememberMe > 0 Then
  Response.Redirect \"re_log_in.asp?FejlYourIdNotInDb=\" & FejlYourIdNotInDb & _
  \"&FejlForkertPassword=\" & FejlForkertPassword & _
  \"&FejlRememberMe=\" & FejlRememberMe & _
  \"&Side=\" & Side
  Else
 
  Function MakePassword(intAntaltegn)
  For x = 1 To intAntalTegn
    Randomize
    intChooser = Int(Rnd * 2) + 1
    Select Case intChooser
    Case 1
      intWildChar = Int(Rnd * 57) + 65
      If intWildChar => 91 And intWildChar <= 96 Then
        intWildChar = intWildChar + 8
      End If
      strPassword = strPassword & Chr(intWildChar)
    Case Else
      intWildChar = Int(Rnd * 9) + 1
      strPassword = strPassword & intWildChar
    End Select
  Next
  MakePassword = strPassword
End Function
CookiesId1 = MakePassword(20)
\'for at undgå 2 mennesker ender med samme CookiesId sætter vi Id nummer ind foran
CookiesId = YourId & CookiesId1

If RememberMe = (\"1\") Then

  Set RS2 = conn.Execute (\"UPDATE MedlemsInfo SET CookiesId = \'\" & CookiesId & \"\' Where MedlemsIdNr = \'\" & YourId & \"\'\")

  Response.Cookies(\"Memberacces\")(\"CookiesId\") = \"\" & CookiesId & \"\"
  Response.Cookies(\"Memberacces\")(\"YourId\") = \"\" & YourId & \"\"
  Response.Redirect \"\" & Side
  Else
  If RememberMe = (\"2\") Then
 
  Set RS3 = conn.Execute (\"UPDATE MedlemsInfo SET CookiesId = \'\" & CookiesId & \"\' Where MedlemsIdNr = \'\" & YourId & \"\'\")
 
  Response.Cookies(\"Memberacces\")(\"CookiesId\") = \"\" & CookiesId & \"\"
  Response.Cookies(\"Memberacces\")(\"YourId\") = \"\" & YourId & \"\"
  Response.Cookies(\"Memberacces\").Expires = Date+365
  Response.Redirect \"\" & Side
    End If
  End If
  End If
End If
%>

fmMember.inc :

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\\sti til db\"
%>

monkeysee og realone ???????

Så det først nu!!!!!!1

Kan dette ikke lige forklares?

bojohansen --- Jeg ved egentlig ikke helt, hvad der foregår! Jeg oprettede spm\'et i går og ville tjekke indlæggene i dag, men det ser da ud til, at monkeysee fuldstændig har overtaget spm\'et... Måske skulle vi give ham lov til at dele point ud..?? ;o)
</RealOne>

Madrich --- Jeg oprettede denne fil: sletbruger.asp

<html>
<head>
<title>Slet Bruger</title>
</head>
<body>
<%
sql = \"select * from community.mdb\"
set rs = conn.execute(sql)

do while not rs.eof
strhtml = strhtml & \"<tr><td><input type=\'checkbox\' name=\'\"& rs(\"id\") &\"\'>\" & rs(\"_bruger_\") & \"</td></tr>\"
rs.movenext
loop
%>
<form method=\'post\' action=\'sletbruger.asp\'>
<table>
<%= strHtml %>
</table>
<input type=\'submit\' value=\'slet_bruger\' name=\'slet\'>
</form>
</body>
</html>
-----------------------------------------------------
Men fik en intern http-500 serverfejl (hvad det så end er)... Hvad er der galt..?? Det skal lige siges, at jeg har mit site ved friserverplads.dk, og ja, databasen ligger i samme mappe som sletbruger.asp ..

bojohansen --- Og login-systemet var vist et, som monkeysee ville ha\'... Jeg skal bare have at vide, hvordan man online sletter brugere, når ens eget Acces97 ikke kan åbne databasen..  ;o)
</Realone>

madrich --- Hvis nu siden hedder www.friserverplads.dk/ungtest, db\'en hedder community og siden, jeg vil have \"sletscriptet\" til at køre på hedder \"sletbruger.asp\" .. Kan du så ikke lige en et fuldt cut\'n\'paste, hvor jeg ikke skal rette noget som helst..?? Så går det nemlig ikke galt..  ;o)
</RealOne>

^ community.mdb

Det kan jeg da godt! --> men hvis du vil have et komplet script, må du heller køre op til 100 points, da jeg egentligt allerede har svaret, og det tager lige lidt skæring til:)

Du mangler bla. din connection til basen, det er nok derfor der kommer fejl:)

madrich --- Okay, så får du 100 point, men du får dem ikke før jeg har set scriptet og det kører!
Scriptet skal indeholde:
En liste med informationerne fra db\'en (brugernavn, password osv, som brugerne har sendt til db\'en) samt checkboxe ved hver bruger og en slet og (hvis det kan lade sig gøre) en rediger-knap..
Hvornår kan scriptet være færdigt..??
</RealOne>

madrich --- Og så skal det være rimelig overskueligt, så jeg selv kan sætte scriptet til at køre på andre databaser..
</RealOne>

Jeg kan have det klart inden for en time, fra nu af, smid din email, jeg vil gerne have din database, så jeg kan se hvad der skal laves, måske er det nødvendigt med et par enkelte tilføjelser, Har du evt ICQ`?

realone@ofir.dk
96293273

Du får adr. til databasen over icq..

Det her virker!

<%
Response.buffer = true
set conn = Server.CreateObject(\"ADODB.connection\")
Conn.open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"community.mdb\")
if request.form(\"slet\") = \"slet_bruger\" then
sqlslet = \"delete * from bruger where brugerId =\" & request.form(\"brugerID\")
conn.execute(sqlslet)
set sqlslet = nothing
end if
if len(request.querystring(\"brugerID\")) > 0 then
sqlvisbruger = \"select * from bruger where brugerID =\" & request.querystring(\"brugerID\")
set rs1 = conn.execute(sqlvisbruger)
strhtml = \"<tr><td>brugerId</td><td>brugernavn</td><td>brugerkodeord</td><td>brugerhttp</td><td>brugerIcq</td><td>brugertekst</td></tr><tr><td>\"& rs1(\"brugerId\") &\"</td><td>\"& rs1(\"brugernavn\") &\"</td><td>\"& rs1(\"brugerkodeord\") &\"</td><td>\"& rs1(\"brugerhttp\") &\"</td><td>\"& rs1(\"brugerIcq\") &\"</td><td>\"& rs1(\"brugertekst\") &\"</td></tr><tr><td><input type=\'hidden\' value=\" & rs1(\"brugerId\") &\" name=\'brugerID\'><input type=\'submit\' value=\'slet_bruger\' name=\'slet\'></td></tr>\"
conn.close
set rs1 = nothing
set sqlvisbruger = nothing
else
sql = \"select * from bruger\"
set rs = conn.execute(sql)
do while not rs.eof
strhtml = strhtml & \"<tr><td><a href=slet.asp?brugerID=\"& rs(\"brugerID\") &\">\" & rs(\"brugernavn\") & \"</a></td></tr>\"
rs.movenext
loop
conn.close
set rs = nothing
set sql = nothing
end if
%>
<html>
<head>
<title>Slet Bruger</title>
</head>
<body>
<form method=\'post\' action=\'slet.asp\'>
<table>
<%= strHtml %>
</table>
</form>
</body>
</html>

Jeg lavede det en smule om da du gerne ville have at man skulle kunne opdatere sine oplysninger selv.

det har jeg ikke lavet, men det burde være til at gennemskue hvad jeg har lavet, --> nemlig trukket variablerne ud fra basen, og der hvor du får den \"store\" bruger oversigt kan tages direkte ud (du skal bare kalde variablerne i textfelter og / eller text areas) istedet for at udskrive dem og så lave en update streng, som jeg viste dig på ICQ!§

Heyyyyyyyy, min fejl :-))) læste vist ikke rigtigt.......... nå men så fik han jo lige et log in sys for 0 Point :-))

jeg rodede nok lidt i tråden~~~~, jeg troede du havde opfattet mig som \"på sidelinien\", madrich
jeg blev klogere!

<monkeyC>

MonkeySee--> jeg vil gerne hjælpe dig, du kan evt oprette et spgm:)

Klart, men jeg tror lige jeg skal \"formulere\" mig overfor min udbyder først (de har selvfølgelig ikke svaret på mine emails endnu >:0)

Monkeysee, er der ikke en DB mappe i roden, når du logger ind via FTP`?

madrich --- Jamen den streng viste du mig jo ikke...

madrich --- Tusind tak for scriptet.. Det virker meget godt..  :)
</RealOne>

madrich --- Det der ret bruger-script..??

Jeg har desværre ikke tid, lige nu, er kommet til at få noget arbejde der tager ret lang tid, men du kan selv lave det, det du skal med dit sql-statement er noget ala

sql = \"update distinctrow tabel_navn set (kolonne1,kolonne2,kolonne3) values (dennyeværdi,dennyeværdi1,dennyeværdi2) where Id = \"&request.form(\"id\")