Medlemshantering

Hejsan!
Hur gör jag enklast för att ha en liten medlemssida där besökarna fyller i ett litet form med t.ex namn, lösenord, epost, ålder och en liten kommentar om sig själva. Sedan kan de logga in till deras egen privata sida. Det verkar enkelt men jag får det inte att funka. Har tetsta det mesta. Vill absolut inte använda en databas. Jag kommer nog inte heller ha speciellt många medlemmar.

------------------
// Hazze

Jag vet inte om det är sättet fungerar, men jag hoppas det :)

Sida där man öppnar konto:

<form method="POST" action="oppna.asp">
Önskat namn: <input type="text" name="namn" size="25"><br>
Önskat lösenord: <input type="password" name="pass" size="25"><br>
Din e-mail: <input type="text" name="epost" size="25"><br>
Ålder: <input type="alder" maxlenght="3" size="25"><br>
</form>

oppna.asp, formuläret skickas till en databas. Databasen har jag här döpt till medlemmar.mdb, och tabellen till members.
I members ska det finnas 5 fält, första ska vara Id (Räknare), andra är Login (text), Password (text), Email (text), Age (text).

<%
dim name, email, password, age, databas, skicka

name = Request.Form("namn")
email = Request.Form("epost")
password = Request.Form("pass")
age = Request.Form("alder")

Set databas = Server.CreateObject("ADODB.Connection")
path="DBQ=" & server.mappath("medlemmar.mdb")databas.Open "driver={microsoft access driver (*.mdb)}; " & path,"name","name"

SQLStmt = "INSERT INTO members"
SQLStmt = SQLStmt & "(Login, Password, Email, Age) "
SQLStmt = SQLStmt & "VALUES('" & name & "', '" & password & "', '" & email & "', '" & age & "'); "
Set skicka = databas.Execute(SQLStmt)
databas.Close
%>

Sen en sida där man loggar in, den här koden är jag lite osäker på... Fick den från mikrodatorn, vet inte om den stämmer:

<%
dim Connection, Visa

If Session(”UserId”)=”” Then 
Set Connection = Server.CreateObject(”ADODB.Connection”) 
Connection.Open ”driver={Microsoft AccessDriver (*.mdb)}; dbq=medlemmar.mdb” 
SQLStmt = ”SELECT * FROM members Where Login = '” & FixaTecken(Request.Form(”Login”) ) & ”' AND Password = '” & FixaTecken(Request.Form(”Password ”)) & ”'” 
Set Visa = Connection.Execute(SQLStmt) 
If Visa.EOF Then 
    Response.Redirect(”sida.asp”) 
  Else 
    Session(”Name”) = Visa(”Login”) 
    Session(”Psw”) = Visa(”Password”)
    Session(”Logintries”) = 0 
    Visa.Close 
    Connection.Close 
  End If 
End If 
%>

Sida.asp är alltså medlemssidan...
Kanske ska det tillkomma något, kommer inte på något nu

------------------
SPiN, bjowik99@it-gymnasiet.nu

Vad skall de kunna göra på sin egen sida?
Hur skall uppgifterna användas, skall andra medlemmar kunna se dem?

Det går att lagra uppgifter i txt-filer istället men då måste jag få veta lite idén bakom hur det skall användas för att kunna hjälpa dig.

Ojdå! Lessen, såg inte det där "vill absolut inte använda databaser... :O

------------------
SPiN, bjowik99@it-gymnasiet.nu

Om det är absolut nödvändigt att använda en databas får jag väl göra det men skippar det helst.

Vad de ska kunna göra på "sin privata" sida?
De ska gärna kunna skicka vykort och kunna skicka meddelanden till varandra, kort o gott en simpel community.

------------------
// Hazze