On-line tilmelding i ASP

Ja, det kan det godt! ;)

Thomas Regin.

Kan du fortælle hvordan, eller har du koder du vil af med til dette ? :0)

Hejsa igen..

Jeg har desværre ikke noget liggende, men jeg kan fortælle dig hvordan du skal bære dig ad, så du selv kan skrive det.

Opret en database, som indeholder 2 tabeller:

1. Brugere
2. Arrangementer

Bruger-tabellen skal indeholde:

ID (SQL server = integer 4, indent 1, primary key / Access = Autonummerering, primary key)

Navn (varchar)
Email (varchar)
Tilmeldt (SQL server = bit / Access = On/Off)

Arrangement-tabellen:

ID (SQL server = integer 4, indent 1, primary key / Access = Autonummerering, primary key)

Arrangementnavn (Varchar)
ArrangementDato (DateTime)
Herefter opretter du alle medlemmerne fra golfklubben i bruger-tabellen, og opretter et arrangement i arragement tabellen.

Du laver herefter en ASP-side, som for nemhedens skyld kan hedde Default.asp, hvis databaseforbindelse linker til ovenstående, nyoprettede database.

Skriv følgende i denne fil efter du har oprettet forbindelse til databasen:

Velkommen til arrangement-tilmelding. Vælg et arrangement i listen herunder og udfyld dit navn og email i boxene. Tryk Gem for at tilmelde dig, eller sæt hak i Afmeld for at afmelde dig.

<%
if Request.Form("brugernavn") <> "" and Request.Form("email") <> "" then
    strSQL = "Select * from Brugere where Navn = '" & Request.Form("brugernavn") & "' and Email = '" & Request.Form("email") & "'"
    set rs = myConn.execute(strSQL)
    if not rs.EOF then
      If Request.Form("chkAfmeld") = "afmeld" then
          strSQL = "Update Brugere set tilmeldt = '0' where ID = " & rs("ID")
          myConn.execute(strSQL)
      else
          strSQL = "Update brugere set tilmeldt = '1' where ID = " & rs("ID")
      End If
End If

strSQL = "Select * from arrangementer"
set aRS = myConn.execute(strSQL)
strSQL = ""

if not rs.EOF then
  Response.Write "<select name=arrangementnavn>"
    do while not rs.EOF
      Response.Write "<option value=" & rs("ID") & ">" & rs("Arrangementnavn") & "</option>"
    rs.MoveNext
  Response.Write "</select>"
    Loop
End If
%>
<form method=post action=default.asp>
Navn: <input type=text name=brugernavn><br>
Email: <input type=text name=email><br>
Afmeld: <input type=checkbox value=afmeld name=chkAfmeld>
<input type=button value=Gem>


That's it!.. Totalt utestet, men det burde virke, med mindre jeg har lavet en tastefejl et sted! ;9

Mvh,

Thomas Regin.

Og her får du den så lige uden taste-fejl!

Jeg glemte lige et sidste felt i "Brugere"-tabellen, som skal hedde "Arrangement" og være et tal/integer-felt.

Her er koden, som den skal se ud:

Velkommen til arrangement-tilmelding. Vælg et arrangement i listen herunder og udfyld dit navn og email i boxene. Tryk Gem for at tilmelde dig, eller sæt hak i Afmeld for at afmelde dig.

<%
if Request.Form("brugernavn") <> "" and Request.Form("email") <> "" then
    strSQL = "Select * from Brugere where Navn = '" & Request.Form("brugernavn") & "' and Email = '" & Request.Form("email") & "'"
    set rs = myConn.execute(strSQL)
    if not rs.EOF then
      If Request.Form("chkAfmeld") = "afmeld" then
          strSQL = "Update Brugere set tilmeldt = '0', arrangement = '" & Request.Form("arrangement") & "' where ID = " & rs("ID")
          myConn.execute(strSQL)
      else
          strSQL = "Update brugere set tilmeldt = '1', arrangement = '" & Request.Form("arrangement") & "' where ID = " & rs("ID")
      End If
    End If
End If

strSQL = "Select * from arrangementer"
set aRS = myConn.execute(strSQL)
strSQL = ""

if not rs.EOF then
  Response.Write "<select name=arrangementnavn>"
    do while not rs.EOF
      Response.Write "<option value=" & rs("ID") & ">" & rs("Arrangementnavn") & "</option>"
    rs.MoveNext
    Loop
  Response.Write "</select>"
End If
%>
<form method=post action=default.asp ID="Form1">
    Navn: <input type=text name=brugernavn ID="Text1"><br>
    Email: <input type=text name=email ID="Text2"><br>
    Afmeld: <input type=checkbox value=afmeld name=chkAfmeld ID="Checkbox1">
    <input type=button value=Gem ID="Button1" NAME="Button1">
</form>

Ehm.. Ville du ha' meget imod lige at fortælle mig hvorfor du afviser mit svar? Muligvis kunne vi ha' fundet ud af noget andet, hvis det ikke virkede helt efter hensigten. Det kan måske virke uoverskueligt, men det findes der da råd for.

Mvh,

Thomas Regin.

sorry :0) men jeg ved sgu ikke helt hvordan man gør herinde endnu, og troede at vist man afviste ville man vide at jeg ikke havde fået noget ud af din løsning :0) - det var ikke for at være ubehøvlet !,
jeg vil stadig gerne have hjælp til dette, jeg har i activedeveloper.dk fundet noget der kunne bruges men den skal rettes utrolig meget til og håbede på at finde koder der ikke skulle rettes fra a-z...sorry afvisningen :0) det var ikke hensigten !!