// så skulle den være der - der manglede en "end if" jeg har skrevet din db og tabel rigtigt her - men check lige det
<% Option Explicit %>
<% session.LCID = 1030 %>
<% '-------- session ovenover sætter det rigtige dato-format på din side hvis du henter tid og dato fra din db -- %>
<html>
<head>
<title>Opret bruger</title>
<%
dim tema
tema = "redss"
if tema = "red" then
%>
<link href="
http://style.leol.dk/css_red_tema.css" rel="stylesheet" type="text/css">
<%
else
%>
<link href="
http://style.leol.dk/css2.css" rel="stylesheet" type="text/css">
<%
end if
%>
<%
if tema = "red" then
%>
</head>
<body background="
http://images.leol.dk/BGT2.PNG" bgcolor="#FF0000">
<%
else
%>
<%
end if
%>
<%
if tema = "red" then
%>
<table background="
http://images.leol.dk/debatf_red.PNG" style="border: 1px solid white;" width="100%" height="50">
<%
else
%>
<table background="images/debatf.PNG" style="border: 1px solid white;" width="100%" height="50">
<%
end if
%>
<tr>
<td>
<h2 style="padding-top: 7px;"><font color="#000000">Opret bruger</font></h2>
</td>
</tr>
</table>
<%
dim action,dsn,strdsn,rs,conn,JMail,strSQL
action = REQUEST.QUERYSTRING("action")
if action = "send" then
' Databaseforbindelse - husk at angive sti til din database
if request.form("kon") = "" then
response.write("Husk at skrive dit køn")
else
if request.form("Landsdel") = "" then
response.write("Du mangler at skrive hvad landsdel du er fra")
else
if request.form("Alder") = "" then
response.write("Du mangler at skrive din alder")
else
if request.form("Fornavn") = "" then
response.write("Du mangler at skrive dit fornavn")
else
if request.form("Efternavn") = "" then
response.write("Du mangler at skrive dit efternavn.<br><font color='red'>Bemærk</font> denne oplysning bliver ikke vist på
www.leol.dk og derfor for bliver hemmeligt.")
else
if request.form("Brugernavn") = "" then
response.write("Du mangler at skrive dit brugernavn")
else
if instr(request.form("Brugernavn"),"-") <> 0 then
response.write("Brugernavnet må ikke indeholde en bindestreg")
else
if instr(request.form("Brugernavn")," ") <> 0 then
response.write("Brugernavnet må ikke indeholde mellemrum")
else
if Request.Form("Email") = Request.Form("GEmail") then
if Request.Form("Kodeord") = Request.Form("GKodeord") then
'---- checker om brugernavnet allerede findes så du ikke har to brugere med samme navn ---->
Set conn = Server.CreateObject("ADODB.Connection")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/db/brugersytem.mdb")
conn.Open (strDSN)
strSQL = "SELECT * FROM bruger where LCase(brugernavn) = '" & LCase(Request.Form("brugernavn")) & "'"
Set rs = Conn.Execute(strSQL)
if not rs.EOF then
'------ redirect siden med linkback asp eller html det er lige meget, husk at lave siden --------- >
response.redirect("brugernavnetfindes.asp")
end if
Conn.Close
Set Conn = Nothing
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/brugersystem.mdb")
Conn.Open DSN
strSQL = "Insert into bruger (Fornavn, Efternavn, Alder, Brugernavn, Kodeord, Email, Kon, ProfilTekst, Landsdel) values('" & Request.Form("Fornavn") & "', '"& Request.Form("Efternavn") &"', '" & Request.Form("Alder") & "', '"& Request.Form("Brugernavn") &"', '" & Request.Form("Kodeord") & "','" & Request.Form("Email") & "','" & Request.Form("Kon") & "','" & Request.Form("ProfilT") & "', '" & Request.Form("Landsdel") & "')"
Conn.Execute(strSQL)
Set JMail = Server.CreateOBject( "JMail.Message" )
JMail.Logging = True
JMail.Silent = True
JMail.From = "leol.dk" ' Her kan du f.eks skrive din Afsender E-mail
JMail.FromName = "leol.dk" ' Her er det bare navnet
JMail.Charset = "iso-8859-1"
JMail.AddRecipient request.form("Email")
JMail.Subject = "Brugertilmelding på leol.dk"
JMail.Body = "Hej" & vbCrLf & vbCrLf & "Du har oprettet en bruger på
www.leol.dk. Med" & vbCrLf & "Brugernavn: "& vbCrLf & Request.Form("Brugernavn") & vbCrLf & "Kodeord: " & Request.Form("kodeord") & vbCrLf & vbCrLf & vbCrLf & "Læs venligt reglerne på
www.leol.dk." & vbCrLf & vbCrLf & "Med venlig hilsen." & vbCrLf & "
www.leol.dk"'Hvis mailen ikke når igennem
if not JMail.Send("mail.leol.dk" ) then
Response.Write "FEJL BESKED: " & JMail.ErrorMessage & "<br/>" & vbCrLf
Response.Write "FEJL KILDE: " & JMail.ErrorSource & "<br/>" & vbCrLf
Response.Write "FEJL LOG: <pre>" & JMail.Log & "</pre>" & vbCrLfelse
ELSE
Response.write "Tak For Din Tilmelding<br>En E-Mail Blev Sendt Med Dit Brugernavn Og Kodeord!"
end if
Set JMail = nothing
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
else
response.write("Dine 2 kodeord er ikke ens")
end if
else
response.write("Dine 2 E-mails er ikke ens")
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
%><form action="opret4.asp?action=send" method="post">
<table border="0" style="border: 0px solid black;" width="100%" id="table1">
<tr>
<td width="120"><font color="#000000">Fornavn</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="text" name="Fornavn" id="loginform"></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Efternavn</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="text" name="Efternavn" id="loginform"></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Alder</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="text" name="Alder" id="loginform"></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Ønsket brugernavn</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="text" name="Brugernavn" id="loginform"></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Kodeord</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="text" name="Kodeord" id="loginform"></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Gentag kodeord</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="text" name="GKodeord" id="loginform"></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">E-mail</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="text" name="Email" id="loginform"></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Gentag E-mail</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="text" name="GEmail" id="loginform"></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Køn</font></td>
<td bgcolor="#FF0000"><font color="#000000"><input type="radio" name="kon" value="Dreng">
Dreng <input type="radio" name="kon" value="Pige"> Pige</font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Landsdel</font></td>
<td bgcolor="#FF0000"><font color="#000000"><select name="Landsdel" style="background-image: url('
http://images.leol.dk/BGT.png'); border: 1px solid black">
<option value="Nord-Jylland">Nord-Jylland</option>
<option value="Mellem-Jylland">Mellem-Jylland</option>
<option value="Sonder-Jylland">Sønder-Jylland</option>
<option value="Fyn">Fyn</option>
<option value="Nord-Sjaelland">Nord-Sjælland</option>
<option value="Mellem-Sjaelland">Mellem-Sjælland</option>
<option value="Syd-Sjaelland">Syd-Sjælland</option>
<option value="Kobenhavn">København</option>
<option value="O'erne">Ø'erne</option>
</select></font></td>
</tr>
<tr>
<td width="120"><font color="#000000">Profil Tekst</font></td>
<td bgcolor="#FF0000"><input type="text" name="ProfilT" id="loginform"></td>
</tr>
<tr><td><input type="submit" value="Opret bruger"></td></tr>
</table>
</form>
</table>
</body>
