ASP og databaser

1) hva mener du med \"minus et tal i HTML el. FORM, med et tal som står i databasen\" ?? Skal dette gjøres når man klikker på en knapp, skal det gjøres ved utskrift av siden ?

2)

<%
Dim userName, Conn, dbConn
dbConn = \"SERVER=local; DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open dbConn

userName = Request(\"userName\")

SQL = \"SELECT * FROM tabell WHERE userName LIKE \'\" & userName & \"\'\"
Set RS = Conn.Execute( SQL )

if( RS.EOF OR RS.BOF ) then
  SQL = \"INSERT INTO tabell (userName) VALUES( \'\" & userName & \"\', 1 )\"
    Conn.Execute( SQL )
    response.write(\"Bruker opprettet\");
else
      response.write(\"Det finnes en bruker i databasen\")
end if
RS.Close
Set RS = nothing
Conn.close
Set Conn = nothing
%>

/nute

Jeg mener at, endten skal man kunne skrive et tal fx. 10 i en form og trykke \"minus\", så trækker den de 10 fra tallene i databasen (10-database).

Men det gør ikke noget hvis man bare kan skrive tallet fast i HTML. Altså så når man åbner siden, så bliver tallet minuset i databasen.

Håber du forstod det! :-)

          <% mode = request(\"mode\") %>
                  <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../db/database.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From users\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
                  <% if mode =\"\" then %>
                <form action=\"signin.asp?mode=tilfojet\" method=\"post\">
                  <center>
                    <font face=tahoma size=2>
                    <div align=\"center\">
             
      <table width=\"400\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\" class=\"bottom\" align=\"center\">
        <tr>
          <td><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Email:</font><br>
            <input type=\"text\" name=\"email\" maxlength=\"100\" class=\"bottom\">
          </td>
          <td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Units:</font</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td width=\"251\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b>
            <input type=\"Submit\" value=\"Tilf&oslash;j\" name=\"Submit\">
            </b></font></td>
        </tr>
      </table>
              <br>
              <b><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\" class=\"mehr_platz\">
              </font></b> <br>

                    </div>
                    </font>
                  </center>
                  <br>
                </form>
               
<% end if %>
<% if mode =\"tilfojet\" then

      rs.AddNew
      rs(\"username\") = Request.form(\"email\")
      rs(\"e-mail\") = Request.form(\"email\")
rs(\"dato\") = date()
      rs(\"klokken\") = time()
      rs.Update
%>
Bruger oprettet.
<% end if %>
</body>
</html>

Hvordan vil du lave systemet, med at tjekke om brugeren er oprettet?

Du bytter denne linje kode:

<% if mode =\"tilfojet\" then

      rs.AddNew
      rs(\"username\") = Request.form(\"email\")
      rs(\"e-mail\") = Request.form(\"email\")
      rs(\"dato\") = date()
      rs(\"klokken\") = time()
      rs.Update
%>
Bruger oprettet.
<% end if %>

med denne:

<%
if mode =\"tilfojet\" then
  userName = Request(\"userName\")

  SQL = \"SELECT * FROM tabell WHERE userName LIKE \'\" & userName & \"\'\"
  Set RS = Conn.Execute( SQL )

  if( RS.EOF OR RS.BOF ) then
    SQL = \"INSERT INTO tabell (userName, e-mail, dato, klokken) VALUES( \'\" & userName & \"\', \'\" & email & \"\',\'\"& date() & \"\',\'\" & time & \"\' )\"
    Conn.Execute( SQL )
    response.write(\"Bruker opprettet\");
  else
      response.write(\"Det finnes en bruker i databasen\")
  end if
end if

det eneste du skal forandre er navnet på din tabell.

/nute

Hej nute

Nu har jeg gjort det, men fik en besked som lyder:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT INTO-sætningen.

/bruger/signin.asp, linje 53

Og linje 53 er: Conn.Execute( SQL )

Men her er noget mere af scriptet:
  if( RS.EOF OR RS.BOF ) then
    SQL = \"INSERT INTO users (username, e-mail, units, dato, klokken) VALUES( \'\" & email & \"\', \'\" & email & \"\',\'\"& units & \"\',\'\"& date() & \"\',\'\" & time() & \"\' )\"
    Conn.Execute( SQL )
    response.write(\"Bruker opprettet\")
  else
      response.write(\"Det finnes en bruker i databasen\")
  end if
end if %>

sett et mellomrom mellom VALUES og ( :

SQL = \"INSERT INTO users (username, e-mail, units, dato, klokken) VALUES ( \'\" & email & \"\', \'\" & email & \"\',\'\"& units & \"\',\'\"& date() & \"\',\'\" & time() & \"\' )\"

Virker ik

Ok jeg fik svaret på en anden måde

hmmm....du kan gjerne forklare hva løsningen var ?!?!