tildmelding..

Prøv at kigge inde på www.activedeveloper.dk !

Ellers kig på www.html.dk og se om du kan bixe noget sammen af det de har skrevet!

//>Rune

www.script.dk - www.netcoders.dk - www.rolator.dk - www.thomaslund.dk
alle disse sider inde holder scripts som du kan bruge !

/2GO!

direkte link! "Jeg har bare ikke rigtig kunne finde det nogen steder.."
</RealOne>

Sådan her indsætter du i din database:
http://www.html.dk/tutorials/asp/lektion20.asp

Sådan her henter du data fra databasen igen:
http://www.html.dk/tutorials/asp/lektion19.asp

//>Rune

Måske hjælper dette komplette, men simplificerede eksempel


Lav en tilmeldingsside med denne kode



<HTML>
<HEAD>
<TITLE>Tilmelding</TITLE>
</HEAD>
<BODY>

<FORM ACTION="minside.asp" METHOD="POST">
<INPUT TYPE="TEXT" NAME="NAVN" VALUE="NAVN">
<INPUT TYPE="TEXT" NAME="EMAIL" VALUE="EMAIL">
<INPUT TYPE="SUBMIT" VALUE="SUBMIT" NAME="SUBMIT">
</FORM>


</BODY>
</HTML>

Derefter laver du en ASP side, minside.asp med dette indhold:

<% @Language = "VBScript" %>
<%


Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\database.mdb;"

' Ovenstående skal naturligvis rettes til den database du anvender

strSQL = "INSERT INTO Tilmeldte(Navn, Email) VALUES('" & Request.Form("Navn") & "', '"
strSQL = strSQL & Request.Form("Email") & "')"

' Ovenståend forudsætter at data indsættes i tabellen "Tilmeldte" i felterne "Navn" og "Email"

On Error Resume Next

objConn.Open

objConn.Execute(strSQL)

If objConn.Errors.Count <> 0 Then Response.Write "Du er nu tilmeldt."

objConn.Close

Set objConn = Nothing

%>


Og endelig for at vise alle tilmeldte, laver du eks. filen tilmeldte.asp:

<% @Language = "VBScript" %>
<%


Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
objConn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\database.mdb;"

' Ovenstående skal naturligvis rettes til den database du anvender

strSQL = "SELECT * FROM Tilmeldte ORDER BY Navn"

' Ovenståend viser alle poster i tabellen "Tilmeldte", sorteret efter navn

objConn.Open

Set objRS = objConn.Execute(strSQL)

If Not objRS.EOF Then
Do Until objRS.EOF
  Response.Write objRS("Navn") & ", " & objRS("Email") & "<BR>"
  objRS.MoveNext
Loop

Else
Response.Write "Ingen data"


objRS.Close
objConn.Close

Set objRS = Nothing
Set objConn = Nothing

%>

Og så manglede der selvfølgelig en End If i sidste fil. Det skal i stedet være:

Og endelig for at vise alle tilmeldte, laver du eks. filen tilmeldte.asp:

<% @Language = "VBScript" %>
<%


Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
objConn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\database.mdb;"

' Ovenstående skal naturligvis rettes til den database du anvender

strSQL = "SELECT * FROM Tilmeldte ORDER BY Navn"

' Ovenståend viser alle poster i tabellen "Tilmeldte", sorteret efter navn

objConn.Open

Set objRS = objConn.Execute(strSQL)

If Not objRS.EOF Then
Do Until objRS.EOF
  Response.Write objRS("Navn") & ", " & objRS("Email") & "<BR>"
  objRS.MoveNext
Loop

Else
Response.Write "Ingen data"
End If

objRS.Close
objConn.Close

Set objRS = Nothing
Set objConn = Nothing

og en sidste ting .. hvordan udskriver jeg hvor mange der er i alt..?

Hvis du vil tælle med SQL, er det

SELECT COUNT(*) FROM Tilmeldinger

Du kan også gøre det i dit script, ved at lave denne ændring:

<% @Language = "VBScript" %>
<%


Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
objConn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\database.mdb;"

' Ovenstående skal naturligvis rettes til den database du anvender

strSQL = "SELECT * FROM Tilmeldte ORDER BY Navn"

' Ovenståend viser alle poster i tabellen "Tilmeldte", sorteret efter navn

objConn.Open

Set objRS = objConn.Execute(strSQL)

If Not objRS.EOF Then

i = 0

Do Until objRS.EOF
  i = i + 1
  Response.Write objRS("Navn") & ", " & objRS("Email") & "<BR>"
  objRS.MoveNext
Loop

Else
Response.Write "Ingen data"
End If

Response.Write "Der er ialt " & i & " tilmeldte"

objRS.Close
objConn.Close

Set objRS = Nothing
Set objConn = Nothing

jeg kan ikke få det til at virke .. kan du ikke lave en zipfil med alle filer incl db..? Så får du 60 point (det er en hastesag)..

Brinkster er forresten heller ikke glad fpr "On Error Resume Next", filen kan ikke uploades..
</RealOne>

Hvad mener du med "filen kan ikke uploades.." ?

On Error Resume Next er den mest udbredte måde (læs: reelt den eneste måde) at lave sin egen fejlhåndtering på. Hvis nogen har problemer med det skyldes det, undskyld at jeg er sp direkte, at de ikke har indsigt nok. Retfærdigvis skal siges, at der mangler den generelle fejlhåndterings rutine i mit eksempel. Men som jeg skrev, var det et simplificeret eksempel og i denne sammenhæng kontrolleres kun for fejl på INSERT.

Jeg kan ikke lave en zip fil med database, da jeg ikke har access installeret. Jeg anvender primært SQL Server og MySQL på denne maskine.

Har du en database og i så fald, hvad hedder din tabel og felter, så skal jeg rette mit forslag til ud fra det.

P.S. Point er ikke den primære årsag til at jeg er herinde, så de 60 point lokker desværre ikke særlig meget :-)

Jeg vil gerne bikse de to filer + en database sammen til dig

kalkunen .. hvis du gør det får I 30 point hver (husk at teste det selv)..

Her er det så: http://pic.hosted4free.dk/Tilmeldning.zip , håber du kan bruge det!