Avatar billede Slettet bruger
26. marts 2004 - 01:27 Der er 3 kommentarer og
1 løsning

Hjælp til en Loginsystem

Hej
Jeg mangler en som kan hjælpe mig med en login system
Hvor bruger af siden kan oprette sig selv.... 
Er der en som kan hjælpe mig??
Avatar billede skg Nybegynder
26. marts 2004 - 03:38 #1
Avatar billede Slettet bruger
05. april 2004 - 17:18 #2
Hej Igen... :-)
Jeg har nu et community hvor det "hele" virker meget godt men.... Når en bruger har oprettet sig som bruger vil jeg gerne have en mail men det synes jeg ikke rigtig virker... henviser til http://eksperten.dk/spm/483328 Der skulle stå det hele men jeg bliver ved med at få fejl?? er der en som lige vil hjælpe mig med at få det til at køre??
Avatar billede Slettet bruger
05. april 2004 - 17:20 #3
<%
Response.Buffer = True

mode = Request.QueryString("mode")


'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("community.mdb")
Response.Buffer = True

mode = Request.QueryString("mode")
if mode = "opret" then
    Sql = "Insert Into Bruger (brugerNavn, brugerKode, brugerAlder, brugerEmail, brugerHjemmeside, brugerIcq, brugerTekst) Values ("
    Sql = Sql & " '"&Request.form("brugernavn")&"', "
    Sql = Sql & " '"&Request.form("adgangskode")&"', "
    Sql = Sql & " '"&Request.form("alder")&"', "
    Sql = Sql & " '"&Request.form("email")&"', "
    Sql = Sql & " '"&Request.form("hjemmeside")&"', "
    Sql = Sql & " '"&Request.form("icq")&"', "
    Sql = Sql & " '"&Request.form("fri_tekst")&"')"
    Conn.Execute(Sql)

      'sæt parametre til at sende mail
    strTo = "eaogkim@stofanet.dk"
    strFrom = "Community"
    strSubject = "New User Added"
    strBody = "Ny bruger på babynet<br><br>"
    strbody = strbody & "Brugernavn : " & request.form("brugernavn") & "<br>"
    strbody= strbody & "Email : " & request.form("email") & "<br>"
    strbody= strbody & "adgangskode : " & request.form("brugerkode")
    strMailServer = "127.0.0.1"


    sendEmail strTo, strFrom, strSubject, strBody, strMailserver

end if

%>
"jeg er kommet her til men det virker ikke den skriver--->  Microsoft VBScript runtime error '800a000d'

Type mismatch: 'sendEmail'

/babynet/community.asp, line 35
Avatar billede Slettet bruger
05. april 2004 - 17:29 #4
opretter et nyt spørgsmål
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester