Jeg har prøvet at omskrive det lidt for at tilpasse det min kode,
men det virker stadig ikke, her er lidt mere kode:
<% if mode = "opret" then
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyldt
if (Request.Form("brugernavn") <> "" AND
Request.Form("adgangskode") <> "" AND Request.Form("email") <> ""
AND Request.Form("alder") <> "") then
If (Request.Form("pix") = "") then pix =
"images/ingen_profil_pix.jpg")
end if
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from bruger where brugernavn = '" &
Request("brugernavn") & "'"
rs.Open strsql, conn, 1, 3
'Tjecker om brugernavnet er optaget
if rs.eof or rs.BOF then
'Tilføjer brugeren til databasen og sender ham/hende
til login siden
rs.AddNew
rs("brugernavn") =
Server.HTMLEncode(Request("brugernavn"))
rs("brugerkode") =
Server.HTMLEncode(Request("adgangskode"))
rs("brugeralder") =
Server.HTMLEncode(Request("alder"))
rs("brugeremail") =
Server.HTMLEncode(Request("email"))
rs("brugerHjemmeside") =
Server.HTMLEncode(Request("hjemmeside"))
rs("brugermsn") = Server.HTMLEncode(Request("msn"))
rs("brugerPix") = Server.HTMLEncode(Request("pix"))
rs("brugeroprettet") = Date()
rs("brugerTekst") =
Server.HTMLEncode(Request("fri_tekst"))
rs.update
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials