opret bruger
jeg har lavet et brugersystem.men jeg ved ik helt hvordan den skal tjekke om brugernavnet er i brug..
her er scripten:
<% 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(\"XXX.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From Brugere\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if mode =\"\" then %>
skrive din oplysninger !
<form action=\"opret.asp?mode=tilfojet\" method=\"post\">
<center>
<table border=1 cellpadding=4 cellspacing=0 align=CENTER bgcolor=#E4D7CB width=\"476\" height=\"182\" bordercolor=\"#CC9966\">
<tr bgcolor=#FF9900 border=0>
<th colspan=2 valign=TOP> <font face=\"Verdana\" color=\"#FFFFFF\">Opret mig
selv </font></th>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b><font color=\"#644632\">Brugernavn</font></b></font></td>
<td valign=TOP width=\"332\"> <font face=\"tahoma\" size=\"2\">
<input type=\"text\" name=\"Brugernavn\" size=\"20\" maxlength=\"255\" style=\"border: 1 solid #000000\">
</font></td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP height=\"19\" width=\"128\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b><font color=\"#644632\">Password</font></b></font></td>
<td align=LEFT valign=TOP height=\"19\" width=\"332\">
<p><font face=\"tahoma\" size=\"2\"><font face=tahoma size=1><font face=tahoma size=2>
<input type=\"password\" name=\"Password\" size=\"20\" maxlength=\"255\" style=\"border-style: solid; border-width: 1\">
</font></font></font></p>
</td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"><font size=\"2\"></font></td>
<td align=LEFT valign=TOP width=\"332\"> </td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#644632\" size=\"2\">Dit
Navn:</font></b></td>
<td align=LEFT valign=TOP width=\"332\"><font face=\"tahoma\" size=\"2\">
<input type=\"text\" name=\"Navn\" size=\"20\" maxlength=\"255\" style=\"border: 1 solid #000000\">
</font></td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#644632\" size=\"2\">Alder</font></b></td>
<td align=LEFT valign=TOP width=\"332\"><font face=\"tahoma\" size=\"2\">
<input type=\"text\" name=\"Alder\" size=\"20\" maxlength=\"255\" style=\"border: 1 solid #000000\">
</font></td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#644632\" size=\"2\">Køn</font></b></td>
<td align=LEFT valign=TOP width=\"332\"><font face=tahoma size=2><font face=tahoma size=1><font face=tahoma size=2><font face=tahoma size=1><font face=tahoma size=2><font face=tahoma size=1><font face=tahoma size=2>
<select name=\"Kon\">
<option value=\"Jeg ved det ik endnu\" selected>(Vælg)</option>
<option value=\"Mand\">Mand</option>
<option value=\"Kvinde\">Kvinde</option>
</select>
</font></font></font></font></font></font></font></td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#644632\" size=\"2\">Email:</font></b></td>
<td align=LEFT valign=TOP width=\"332\"><font face=\"tahoma\" size=\"2\">
<input type=\"text\" name=\"Email\" size=\"20\" maxlength=\"255\" style=\"border: 1 solid #000000\">
</font></td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#644632\" size=\"2\">ICQ
#:</font></b></td>
<td align=LEFT valign=TOP width=\"332\"><font face=\"tahoma\" size=\"2\">
<input type=\"text\" name=\"Icq\" size=\"20\" maxlength=\"255\" style=\"border: 1 solid #000000\">
</font></td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#644632\" size=\"2\">Website:</font></b></td>
<td align=LEFT valign=TOP width=\"332\"><font face=\"tahoma\" size=\"2\">
<input type=\"text\" name=\"Website\" size=\"20\" maxlength=\"255\" style=\"border: 1 solid #000000\">
</font></td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td valign=TOP width=\"128\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#644632\" size=\"2\">Fritekst:</font></b></td>
<td align=LEFT valign=TOP width=\"332\"><font face=\"tahoma\" size=\"2\">
<textarea name=\"Fritekst\" cols=\"50\" style=\"border: 1 solid #000000\" rows=\"4\" wrap=\"VIRTUAL\"></textarea>
</font></td>
</tr>
<tr bgcolor=\"#FFCC99\">
<td colspan=2 align=CENTER>
<input type=submit value=Opret mig ! name=\"submit\">
<a href=\"opret.asp\"> Opret mig</a></td>
</tr>
</table>
<font face=\"tahoma\" size=\"2\"><font face=tahoma size=1><font face=tahoma size=2><font face=tahoma size=1><font face=tahoma size=2><font face=tahoma size=1><font face=tahoma size=2><font face=tahoma size=1><font face=tahoma size=2><font face=tahoma size=1><font face=tahoma size=2><br>
<font face=tahoma size=2>OBS: Vi ser meget strængt på misbrug af denne service!<br>
</font></font></font></font></font></font></font></font></font></font></font></font>
</center>
</form>
<font face=tahoma size=2>
<% end if %>
<% if mode =\"tilfojet\" then
rs.AddNew
rs(\"Brugernavn\") = Request.form(\"Brugernavn\")
rs(\"Password\") = Request.form(\"Password\")
rs(\"Navn\") = Request.form(\"Navn\")
rs(\"Alder\") = Request.form(\"Alder\")
rs(\"Kon\") = Request.form(\"Kon\")
rs(\"Email\") = Request.form(\"email\")
rs(\"ICQ\") = Request.form(\"ICQ\")
rs(\"Website\") = Request.form(\"Website\")
rs(\"Fritekst\") = Request.form(\"Fritekst\")
rs(\"dato\") = date()
rs(\"kl\") = time()
rs(\"Ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
rs.Update
%>
</font> <font face=\"tahoma\" size=\"2\"><b>Du er nu blevet registeret</b></font>
<a href=\"default.asp\">Tilbage til login siden</a><br>
<br>
<% end if %>
håber du skriver det hele, så jeg ik skal ændrer på det selv, håber du forstår :)
