jeg kan ikke helt få det til at fungere:
her min tilmeld side:
<%' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN
%>
<html>
<head>
<title>Untitled Document</title>
</head>
<body>
<form name="form1" method="post" action="tilmeld.asp?islem=ekle" onSubmit="return denetle()">
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr align="center">
<td colspan="2"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Ansøg om medlemsskab</font></strong></td>
</tr>
<tr>
<td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Navn</font></td>
<td><input name="navn" type="text" id="navn"></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Password</font></td>
<td><input name="pass" type="password" id="pass"></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email</font></td>
<td><input name="email" type="text" id="email"></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Adresse</font></td>
<td><input name="adresse" type="text" id="adresse"></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Post Nr</font></td>
<td><input name="postnr" type="text" id="postnr"></td>
</tr>
<tr>
<td>By</td>
<td><input name="by" type="text" id="by"></td>
</tr>
<tr>
<td>Telefon</td>
<td><input name="telefon" type="text" id="telefon"></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="..::Tilmeld::.."></td>
<td><input type="reset" name="Submit2" value="..::Slet::.."></td>
</tr>
</table>
</form>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/database.mdb")
islem = Request.QueryString("islem")
if islem="ekle" then
call ekle
else
end if
%>
<%sub ekle
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/database.mdb")
Set gir = server. CreateObject("ADODB.Recordset")
kayit = "Select * from tabelnavn"
gir.Open kayit,sur,1,3
Dim navn, pass, email, adresse, postnr, by, telefon
navn = request.form("navn")
pass = request.form("pass")
email = request.form("email")
adresse = request.form("adresse")
postnr = request.form("postnr")
by = request.form("by")
telefon = request.form("telefon")
if navn="" or pass="" or email="" or adresse="" or postnr="" or by"" or telefon"" then
Response.Write "<center>Alle felter skal udfyldes...</center>"
'Response.End
else
gir.AddNew
gir("navn") = navn
gir("pass") = pass
gir("email") = email
gir("adresse") = adresse
gir("postnr") = postnr
gir("by") = by
gir("telefon") = telefon
gir.Update
response.write("De er nu tilmeld men skal aktiveres af Admin først for at kunne logge ind på siden!")
%>
<%
end if
end sub
%>
</body>
</html>
her min admin side:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN
%>
<html>
<head>
<title>Untitled Document</title>
</head>
<body>
<%
if request.servervariables("REQUEST_METHOD") = "POST" then
'opdater
slet = Request.Form("slet")
ider = Request.Form("aktiv")
deaktiv = Request.Form("deaktiv")
if ider<>"" then
SQL = "update tabelnavn set aktiv=1 where id in (" &ider & ")"
else
if slet<>"" then
SQL = "DELETE FROM tabelnavn WHERE ID IN(" & slet & ")"
else
if deaktiv<>"" then
SQL = "update tabelnavn set aktiv=0 where id in (" &deaktiv & ")"
End if
End if
End if
Conn.Execute(SQL)
'Response.redirect(request.Servervariables("SCRIPT_NAME"))
response.Redirect("admin.asp")
end if
%>
<!--Nu henter jeg de tilmeldte der venter på at blive aktiveret...Som jeg så kan aktivere.... eller slette-->
<%
sql = "select * from tilmeld where aktiv=0"
set rs=Conn.Execute(SQL)
response.write "<table>"
response.write "<form action=""" & request.ServerVariables("SCRIPT_NAME")&""" method=""post"">"
response.write "<tr bgcolor=#ffcc99><td>Aktiver</td><td>Slet</td><td>ID</td><td>Navn</td><td>Nickname</td><td>Email</td><td>Land</td><td>Dato</td></tr>"
do while not rs.EOF
response.write "<tr bgcolor=#ffffff>"
response.write "<td>Aktiver <input type=""checkbox"" name=""aktiv"" value=""" & rs("id") & """></td>"
response.write "<td>Slet <input type=""checkbox"" name=""slet"" value=""" & rs("id") & """></td>"
response.write "<td>" & rs("id") & "</td>"
' response.write "<td>" & rs("medlems_nr ") & "</td>"
response.write "<td>" & rs("Navn") & "</td>"
response.write "<td>" & rs("Password") & "</td>"
response.write "<td>" & rs("Email") & "</td>"
response.write "<td>" & rs("Adresse") & "</td>"
response.write "<td>" & rs("Postnummer") & "</td>"
response.write "<td>" & rs("By") & "</td>"
response.write "<td>" & rs("Telefon") & "</td>"
response.write "</tr>"
rs.Movenext
loop
%>
</table>
<input type="submit" name="aktiver" value=".::Udfør::.">
</form>
<!--Og til sidste de aktiveret medlemmer som jeg så kan slette eller deaktivere-->
<%
sql = "select * from tilmeld where aktiv=1"
set rs=Conn.Execute(SQL)
response.write "<table>"
response.write "<form action=""" & request.ServerVariables("SCRIPT_NAME")&""" method=""post"">"
response.write "<tr bgcolor=#ff99cc><td>Deaktiver!</td><td>Slet</td><td>ID</td><td>Navn</td><td>Nickname</td><td>Email</td><td>Land</td><td>Dato</td></tr>"
do while not rs.EOF
response.write "<tr bgcolor=#ffffff>"
response.write "<td>Deaktiver <input type=""checkbox"" name=""deaktiv"" value=""" & rs("id") & """></td>"
response.write "<td>Slet <input type=""checkbox"" name=""slet"" value=""" & rs("id") & """></td>"
response.write "<td>" & rs("id") & "</td>"
response.write "<td>" & rs("navn") & "</td>"
response.write "<td>" & rs("password") & "</td>"
response.write "<td>" & rs("email") & "</td>"
response.write "<td>" & rs("adresse") & "</td>"
response.write "<td>" & rs("dato") & "</td>"
response.write "</tr>"
rs.Movenext
loop
%>
</table>
<input type="submit" name="aktiver" value=".::Udfør::.">
</form>
</body>
</html>
