Ja... Altså, det jeg havde forestillet mig var noget lignende dette:
--------opret.asp----------
<body>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="Databasen" S-RecordSource="Personer" U-Database-URL="../fpdb/database.mdb" S-Form-Fields="Husnummer Skype By Fodselsdag Adresse MSN\ messenger Retning Emailadresse Efternavn Fornavn Mobilnummer Etage Telefonnummer Postnummer" S-Form-DBFields="Husnummer Skype By Fodselsdag Adresse MSN\ messenger Retning Emailadresse Efternavn Fornavn Mobilnummer Etage Telefonnummer Postnummer" U-ASP-Include-Url="../_fpclass/fpdbform.inc" startspan S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp" S-Builtin-DBFields="Fjerncomputer Webbrowsertype Tidsstempel" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="../_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="34604" -->
<p><input type="text" name="Brugernavn" size="20" value="Brugernavn"></p>
<p><input type="password" name="password" size="20" value="pass"></p>
<p><input type="text" name="Fodselsdag" size="20" value="fodselsdag"></p>
<p><input type="text" name="Fornavn" size="20" value="fornavn"></p>
<p><input type="text" name="Efternavn" size="20" value="efternavn"></p>
<p><input type="text" name="Adresse" size="20" value="adresse"></p>
<p><input type="text" name="Husnummer" size="20" value="husnr"></p>
<p><input type="text" name="Etage" size="20" value="etage"></p>
<p><input type="text" name="Retning" size="20" value="RETNING"></p>
<p><input type="text" name="Postnummer" size="20" value="postnr"></p>
<p><input type="text" name="By" size="20" value="by"></p>
<p><input type="text" name="Telefonnummer" size="20" value="tlf"></p>
<p><input type="text" name="Mobilnummer" size="20" value="mobil"></p>
<p><input type="text" name="Emailadresse" size="20" value="mail"></p>
<p><input type="text" name="MSN messenger" size="20" value="MSN"></p>
<p><input type="text" name="Skype" size="20" value="skype"></p>
<p><input type="password" name="password" size="20" value="pass"></p>
<p><input type="submit" value="Send" name="B1"><input type="reset" value="Nulstil" name="B2"></p>
</form>
</body>
<%
<!--#include file="md5.asp"-->
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/settings.mdb")
' Krypter brugernavn og password
Dim strBrugernavn, strPassword
strBrugernavn = MD5(Trim(Replace(request.form("Brugernavn"),"'","''" )))
strPassword = MD5(Trim(Replace(request.form("Password"),"'","''" )))
Dim strSQL, rs
' Undersøg, om det brugernavn brugeren har valgt allerede er i brug...
strSQL = "SELECT * FROM users WHERE username = '" & strUsername
Set rs = Conn.Execute(strSQL)
If not rs.EOF then
' Det valgte brugernavn var desværre allerede i brug
' Bed brugeren vælge et andet....
Else
' Der findes ingen brugere med samme navn - det er OK at oprette...
rs.AddNew
rs("username") = strUsername
rs("password") = strPassword
rs("Fodselsdag") = Trim(Replace(request.form("Fodselsdag"),"'","''" ))
rs("Fornavn") = Trim(Replace(request.form("Fornavn"),"'","''" ))
rs("Efternavn") = Trim(Replace(request.form("Efternavn"),"'","''" ))
rs("Adresse") = Trim(Replace(request.form("Adresse"),"'","''" ))
rs("Husnummer") = Trim(Replace(request.form("Husnummer"),"'","''" ))
' .... og alle de øvrige felter i formen...
rs.Update
End If
rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
%>
Jeg har bare tilføjet de to felter til din form.
Du behøver naturligvis ikke gøre det på nøjagtig samme måde, men jeg håber du kan se idéen. Koden er forøvrigt ikke på nogen måde testet, ligesom den heller ikke indeholder kode til behandling af fejlsituationer som f.eks. hvis det valgte brugernavn allerede bruges...
