har lavet tilføj , slet og nu mangler jeg bare rediger.asp !?
hejsa eksperter håber i kan hjælpe jeg har nu lavet en admin sektion med tilføj og slet nu ville jeg gerne kunne redigere i members.. hvordan ser koden ud .. eller hvordan laver jeg denne ?min tilmeld.asp ser sådan her ud hvis det kan hjælpe jer
<%
'der bliver lavet forbindelse til databasen
Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
%>
<html>
<head><title>Medlems Klup</title></head>
<body>
<a href="main.asp">back</a>
<form action="tilmeld.asp" method="post">
<font size="4">add medlem</font><p>
<%
'inholdet af formular felterne bliver hentet
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
username = Request("username")
email = Request("email")
password = Request("password")
besked = Request("besked")
'der bliver tjekket om brugeren har udfylt alle felterne rigtigt
err = 0
err = 0
if username = "" then
err = 1
errmess = errmess & "Du skrev ikke noget brugernavn<br>"
end if
if password = "" then
err = 1
errmess = errmess & "Du skrev ikke noget password<br>"
end if
'tjekker om emailen er gyldig
if InStr(email,"@") = 0 or InStr(email,".") = 0 or email = "" then
err = 1
errmess = errmess & "Din email adresse er ikke gyldig<br>"
end if
if err = 0 then
'alle felterne er udfylt korekt, tjekker om brugernavnet er ledigt
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from users where username = '" & request.form("username") & "';"
rs.open SQL, Conn, 3, 3
if not rs.EOF then
Response.Write "Brugernavnet er allerede taget<br>"
else
'brugernavnet er var ledigt og brugerens data bliver tilføjet til databasen
rs.AddNew
rs("email") = email
rs("password") = password
rs("username") = username
rs("besked") = besked
rs.update
'bare skriv response.Redirect "" og så lokal placeringen af den fil brugeren skal komme over til når han har udfylt formularen rigtigt
Response.Write "Du er nu medlem<br>"
end if
end if
end if %>
<%= errmess %>
<br>brugernavn: <input type="text" name="username" value="<%=Request("username")%>">
<br>password: <input type="text" name="password">
<br>email: <input type="text" name="email" value="<%=Request("email")%>">
<br>fri tekst: <textarea name="besked"><%=Request("besked")%></textarea>
<p><input type="submit" value="Tilmeld">
</form>
<%
'lukker forbindelsen
conn.close
set conn = nothing
%>
</body>
</html>
mvh. emingos
