Her er det.. Hvis der er noget der ikke virker så sig til.. Så hjælper jeg gerne.
<%
' Her connecter vi til DB
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("ditforumsdb.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From forums"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic %>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form action="opretbruger.asp?mode=tilfojet" method="post">
<table width="26%" border="0" align="left">
<tr>
<td width="33%" height="10">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
<font color="#000000">Forum's Navn</font><font color="#FF0000">*</font>
<br>
<input type="text" name="username" size="20" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; " >
</font></div>
</td>
</tr>
<tr>
<td width="33%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Forum
Beskrivelse</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
<font color="#FF0000">*</font><br>
<input type="text" name="navn" size="70" font face="Verdana, Arial, Helvetica, sans-serif"; style="border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; ">
</font></div>
</td>
</tr>
<%
if mode ="" then
mode = request("mode") %>
</table>
<p> </p>
<center>
<div align="center"> <font size="2"><b><font face="Neuropol"><font color="#000000"><br>
</font> <br>
</font> </b> </font> <font size="2"><b><font face="Neuropol"><br>
</font></b></font></div>
</center>
<p><font size="2"><b><font face="Neuropol"><br>
</font> </b> </font> </p>
<p>
<%
if mode = "tilfojet" then
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet dit <B>Brugernavn</B></font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet dit <B>Password</B></font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet din <B>E-Mail</B></font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet hvad du <B>Hedder</B></font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet hvilken <B>By</B> du kommer fra</font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet en <B>Beskrivelse</B> af dig selv</font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet din <B>Alder</B></font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet hvilken <B>Processor/CPU</B> du har</font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet hvilken <B>Skærm</B> du har</font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet hvilket <B>Grafikkort</B> du har</font><br>")
//and response.write ("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#FF0000'><br>Du har ikke angivet dit <B>Gamernick</B> <font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>(Gamernick er det du kalder dig når du spiller Online)</font></font><br>")
' Tjekker om felter er udfyldt..
Dim Error
Error = False
If Request.Form("Forum") = "" Then Error = True
If Request.Form("Description") = "" Then Error = True
If Error Then
Response.Write("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>HUSK NU ALLE FELTER MED <font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#FF0000'<b>*</b><font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>UD FORAN SKAL UDFYLDES</font></font>")
Else
rs.Addnew
rs("Forum") = Request.form("Forum")
rs("Description") = Request.form("Description")
rs.Update
Response.Write "Dit Forum er nu oprettet.."
end if
end if
end If
%>
</p>
</form>
<p><br>
<font color="#FFFFFF" face="tahoma"></font></p>
</body>
</html>
