Ja, den er ret lille. Jeg har ændret den til en størrelse 12 i stedet.
Dette her skulle fungere efter hensigten:
<%
Response.Buffer = True
%>
<html>
<head>
<title>Community</title>
</head>
<body>
<form method=post action=opret.asp>
<font face="Tahoma" size="2"><b>Opret bruger</b><br>
<br>
<div id="fejl">
<!--Her bliver fejlmeddelelsen skrevet ud-->
</div>
<div id="indhold">
<!-- Dette er inholdslaget - her står formen, og her bliver "du er nu oprettet" skrevet ud -->
<table border="0" cellspacing="0" cellpadding="0" width="225">
<tr>
<td width="92">
<font face="Tahoma" size="2"><b>Brugernavn: </b></font>
</td>
<td width="129">
<input type=text name=brugernavn size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000" value="<%=request.form("brugernavn")%>"></td>
</tr>
<tr>
<td width="92">
<font face="Tahoma" size="2"><b>Kodeord:</b></font></td>
<td width="129">
<input type=text name=kode size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000" value="<%=request.form("kode")%>"></td>
</tr>
<tr>
<td width="92">
<font face="Tahoma" size="2"><b>Email:</b></font></td>
<td width="129">
<input type=text name=mail size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000" value="<%=request.form("mail")%>"></td>
</tr>
<tr>
<td width="92">
<font face="Tahoma" size="2"><b>Icq:</b></font></td>
<td width="129">
<input type=text name=icq size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000" value="<%=request.form("icq")%>"></td>
</tr>
<tr>
<td width="92">
<font face="Tahoma" size="2"><b>Msn:</b></font></td>
<td width="129">
<input type=text name=msn size="30" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000" value="<%=request.form("msn")%>"></td>
</tr>
<tr>
<td width="92">
<font face="Tahoma" size="2"><b>Fritekst:</b></font></td>
<td width="129">
<textarea name=fritekst size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000" rows="5" cols="30"><%=request.form("fritekst")%></textarea></td>
</tr>
</table>
<p><font face="Tahoma" size="2"><b>
<input type=submit value="Opret Bruger" style="background-color: #FFFFFF; font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
</b></font></p>
</form>
</div>
<%
if request.ServerVariables("REQUEST_METHOD") = "POST" then
For each Item in Request.Form
if Request.form(item) = "" then
%>
<script>
document.getElementById("fejl").innerHTML = "<font style='color: #FC8F3F; font-size: 12; font-family: Verdana'>Udfyld <%=item%></font><br><br>"
</script>
<%
fejl = 1
end if
Next
If fejl <> 1 Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("community.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From brugere where brugernavn = '" & Request.form("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
%>
<script>
document.getElementById("fejl").innerHTML = "<font style='color: #FC8F3F; font-size: 12; font-family: Verdana'>Brugernavnet er optaget - vælg et andet</font></font><br><br>"
</script>
<%
fejl = 2
end if
If not (fejl = 1 or fejl = 2) Then
rs.addnew
rs("brugernavn") = Request.form("brugernavn")
rs("kode") = Request.form("kode")
rs("mail") = Request.form("mail")
rs("icq") = Request.form("icq")
rs("msn") = Request.form("msn")
rs("fritekst") = Request.form("fritekst")
rs.update
'Response.Write("<meta HTTP-EQUIV=""REFRESH"" CONTENT=""00000000; URL=opret.asp?error=Du er nu oprettet!"">")
'Response.Write "Du er nu oprettet <br><br> <a href='default.asp'>Gå til hovedsiden</a>"
%>
<script>
document.getElementById("indhold").innerHTML = "Du er nu oprettet <br><br> <a href='default.asp'>Gå til hovedsiden</a>"
</script>
<%
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
end if
end if
end if
%>
</body>
</html>
