adduser.asp
hvor skal det stå i den? har nemlig prøvet og kunne ikke få det til at virke
<html>
<head>
<title><%=SetTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="748" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333">
<tr bordercolor="#FFFFFF">
<td colspan="4"><div align="left"><strong><img src="images/topbar.gif" width="480" height="42"></strong></div></td>
</tr>
<tr bordercolor="#FFFFFF">
<td colspan="4"><div align="right">
<!--#include file="inc_menu2.asp" -->
</div></td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="20%" valign="top"><blockquote>
<p align="left">
<!--#include file="inc_menu.htm" -->
<br>
</p>
</blockquote></td>
<td colspan="2"> <p>Her kan du oprette dig, til communitiet...<br>
Bare udfylsd felterne og klik opret, så kan du bruge siden !!</p>
<p></p>
<%
Response.Buffer = True
' tjekker om disse 5 felter er udfyldt !
brugernavn = Request("brugernavn")
password = Request("password")
navn = Request("navn")
alder = Request("alder")
kon = Request("kon")
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Skriver fejl, hvis der ikke er indtastet en oplysning.
if brugernavn = "" then
Response.Write("Du skal vælge et brugernavn<br></font>")
end if
if password = "" then
Response.Write("Du skal vælge et password!<br></font>")
end if
if navn= "" then
Response.Write("Du skal angive et navn på mindst 2 tegn!<br></font>")
end if
if alder= "" then
Response.Write("Du skal angive dit alder!<br></font>")
end if
if kon= "" then
Response.Write("Du skal angive dit køn!<br></font>")
end if
' opretter brugeren i databasen !
if brugernavn <> "" AND password <> "" AND navn <> "" AND alder <> "" AND kon <> "" 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("om") = Request.form("om")
rs("hits") = "0"
rs.update
Response.Redirect("adduser.asp")
end if
end if %> <form method="post" action="adduser.asp" id=form name=form>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="140" valign="top" class="skrift">Brugernavn: <font color="#FF0000">*</font></td>
<td> <input type="text" name="brugernavn" value="" maxlength="50" class="bottom" size="30">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Password: <font color="#FF0000">*</font></td>
<td> <input type="password" name="password" value="" maxlength="50" class="bottom" size="30">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift"> Navn: <font color="#FF0000">*</font></td>
<td> <input type="text" name="navn" value="" size="30" maxlength="50" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Alder: <font color="#FF0000">*</font></td>
<td> <input type="text" name="alder" maxlength="3" size="30" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Køn: <font color="#FF0000">*</font></td>
<td> <select name="kon" class="bottom">
<option value="-" selected>Vælg køn</option>
<option value="Mand">Mand</option>
<option value="Kvinde">Kvinde</option>
</select> </td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Email:</td>
<td> <input type="text" name="email" value="" size="30" maxlength="255" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">ICQ #:</td>
<td> <input type="text" name="icq" size="30" maxlength="15" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Website:</td>
<td> <input type="text" name="website" value="
http://" size="30" maxlength="255" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Info:</td>
<td> <textarea name="om" rows="4" cols="30" class="bottom"></textarea>
</td>
</tr>
<tr>
<td width="110" valign="top"> </td>
<td> <input type="submit" value="opret bruger" class="bottom"> </td>
</tr>
</table>
</form></td>
</tr>
<tr bordercolor="#FFFFFF">
<td colspan="4"><div align="center"><font size="1">This Community is designed
and developed by Daniel Kjær - 123design</font></div></td>
</tr>
</table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
