response.redirect

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Deaz - tagwall</title>
</head>

<body>

<font face=\"verdana\" size=\"2\">
<%

Dim bruger

bruger = Request.QueryString(\"bruger\")

If Request.Servervariables(\"Query_String\") <> \"\" then

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"2650.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From brugersystem\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   
Do Until rs.EOF

If bruger = rs(\"brugernavn\") then request.redirect(\"bruger_allerede_oprettet.asp)

Rs.MoveNext
Loop

      rs.AddNew
        rs(\"brugernavn\") = Request.QueryString(\"brugernavn\")
        rs(\"password\") = Request.QueryString(\"password\")
        rs(\"email\") = Request.QueryString(\"email\")
        rs(\"alder\") = Request.QueryString(\"alder\")
        rs(\"dato\") = date()
        rs(\"ip\") = Request.ServerVariables(\"Remote_Addr\")
      rs.Update
           
    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

response.write(\"<b>Din bruger er nu oprettet.</b> <a href=\'default.asp\'>Tilbage til forsiden</a>\")

Else %>

</font>

<form action=\"tilfoj_bruger.asp\" method=\"get\">
<div align=\"center\">
  <center>
  <table border=\"0\" width=\"350\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\">
    <tr>
      <td width=\"100%\">
        <table border=\"0\" width=\"100%\" bgcolor=\"#FFFFFF\" cellspacing=\"0\" cellpadding=\"10\">
          <tr>
            <td width=\"100%\">
              <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\" height=\"79\">
                <tr>
                  <td width=\"24%\" height=\"19\"><font face=\"Verdana\" size=\"2\">brugernavn:</font></td>
                  <td width=\"76%\" height=\"19\"><font size=\"2\" face=\"Verdana\"><input name=\"brugernavn\"></font></td>
                </tr>
                <tr>
                  <td width=\"24%\" height=\"20\"><font face=\"Verdana\" size=\"2\">password:</font></td>
                  <td width=\"76%\" height=\"20\"><font size=\"2\" face=\"Verdana\"><input type=password name=\"password\" size=\"20\"></font></td>
                </tr>
                <tr>
                  <td width=\"24%\" height=\"20\"><font size=\"2\" face=\"Verdana\">e-mail:</font></td>
                  <td width=\"76%\" height=\"20\"><font size=\"2\" face=\"Verdana\"><input name=\"email\" size=\"20\"></font></td>
                </tr>
                <tr>
                  <td width=\"24%\" height=\"20\"><font size=\"2\" face=\"Verdana\">alder:</font></td>
                  <td width=\"76%\" height=\"20\"><font size=\"2\" face=\"Verdana\"><input name=\"alder\"></font></td>
                </tr>
                <tr>
                  <td width=\"24%\" height=\"20\" valign=\"top\"><font size=\"2\" face=\"Verdana\">profil:</font></td>
                  <td width=\"76%\" height=\"20\"><font size=\"2\" face=\"Verdana\"><textarea name=\"profil\" rows=\"6\" cols=\"28\"></textarea></font></td>
                </tr>
                <tr>
                  <td width=\"24%\" height=\"20\"></td>
                  <td width=\"76%\" height=\"20\"><font size=\"2\" face=\"Verdana\"><input type=\"submit\" value=\"Send\"></font></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </center>
</div>
</form>

<% end if %>

</body>
</html>