Hvorfor virker det ikke? Er der nogen der kan lave det?
Hejsa!Jeg skal have smidt en masse oplysninger ned i en database, men det virker ikke som det skal - er der nogen der kan sige hvorfor og evt. lave det så det virker?
Herunder er filerne, jeg kan også godt sende filerne og databasen til dig/jer...
Her er formen - Lang:
<%
Dim Connect, OnUngdom, OnMont
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../Databaser/HP.mdb\")
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">
<HTML>
<HEAD>
<TITLE>Lunderskov Boldklub - Ungdomsstævne</TITLE>
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#660066\" ALINK=\"#FF0000\">
<CENTER><H1>Tilmelding til ungdomsstævne</H1></CENTER>
<HR>
Udfyld venligst nedenstående tilmeldingsskema
<BR>
<FORM action=\'Ungdom.asp\' NAME=\"Ungdom\" METHOD=\"POST\">
<BR>
<!-- Kluboplysninger -->
<TABLE BORDER=\"0\">
<TR>
<TD>Klub: </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"40\" NAME=\"Klub\"></TD>
<TD></TD>
</TR>
<TR>
<TD>Spilledragt:</TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD>Trøje:
</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"Troeje\"> Bukser: <INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"Bukser\"></TD>
<TD></TD>
</TR>
<TD>Alternativ spilledragt:</TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD>Trøje:
</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"ATroeje\"> Bukser: <INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"ABukser\"></TD>
<TD></TD>
</TR>
<TR>
<TD><BR><TD>
<TD><TD>
</TR>
<TR>
<TD>Kontakt person:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"40\" NAME=\"Kontakt\"></TD>
<TD></TD>
</TR>
<TR>
<TD>Tlf.:
</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"8\" MAXLENGTH=\"8\" NAME=\"Tlf\"> Fax: <INPUT TYPE=\"text\" SIZE=\"8\" MAXLENGTH=\"8\" NAME=\"Fax\"></TD>
<TD></TD>
</TR>
<TR>
<TD>Adresse:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"40\" NAME=\"Adr\"></TD>
<TD></TD>
</TR>
<TR>
<TD>Postnr:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"4\" MAXLENGTH=\"4\" NAME=\"Postnr\"> By: <INPUT TYPE=\"TEXT\" SIZE=\"25\" MAXLENGTH=\"25\" NAME=\"By\"></TD>
<TD></TD>
</TR>
<TR>
<TD>Email:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"40\" NAME=\"Email\"></TD>
<TD></TD>
</TR>
<TD>Ankomst:
</TD>
<TD><SELECT NAME=\"Dag\">
<OPTION TYPE=\"text\">Fredag
<OPTION TYPE=\"text\">Lørdag
</SELECT>
kl. <SELECT NAME=\"TidTime\" TYPE=\"TEXT\">
<OPTION TYPE=\"text\">--
<OPTION TYPE=\"text\">00
<OPTION TYPE=\"text\">07
<OPTION TYPE=\"text\">08
<OPTION TYPE=\"text\">08
<OPTION TYPE=\"text\">09
<OPTION TYPE=\"text\">10
<OPTION TYPE=\"text\">11
<OPTION TYPE=\"text\">12
<OPTION TYPE=\"text\">13
<OPTION TYPE=\"text\">14
<OPTION TYPE=\"text\">15
<OPTION TYPE=\"text\">16
<OPTION TYPE=\"text\">17
<OPTION TYPE=\"text\">18
<OPTION TYPE=\"text\">19
<OPTION TYPE=\"text\">20
<OPTION TYPE=\"text\">21
<OPTION TYPE=\"text\">22
<OPTION TYPE=\"text\">23
</SELECT>:
<SELECT NAME=\"TidMinut\" TYPE=\"TEXT\">
<OPTION TYPE=\"text\">--
<OPTION TYPE=\"text\">00
<OPTION TYPE=\"text\">05
<OPTION TYPE=\"text\">10
<OPTION TYPE=\"text\">15
<OPTION TYPE=\"text\">20
<OPTION TYPE=\"text\">25
<OPTION TYPE=\"text\">30
<OPTION TYPE=\"text\">35
<OPTION TYPE=\"text\">40
<OPTION TYPE=\"text\">45
<OPTION TYPE=\"text\">50
<OPTION TYPE=\"text\">55
</SELECT> (00:00 = stævnestart)</TD>
<TD></TD>
</TR>
</TABLE>
<BR><BR>
<!-- Selve hold tilmeldingen -->
Herunder bedes I indtaste hvilke rækker i ønsker at tilmelde jeres hold i.
<BR>
Desuden vil vi gerne vide hvor mange af disse hold, der spiller i A og B rækken til dagligt.
<BR><BR><BR>
<TABLE BORDER=\"0\">
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Miniput\'\")
%>
<TD>Miniput, 7-mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"MP7A\"></TD>
<TD>Række B</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"M7B\"></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Lilleput\'\")
%>
<TD>Lilleput, 11-mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"L11A\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"L11B\"></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Drenge\'\")
%>
<TD>Drenge, 11-mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"D11A\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"D11B\"></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Junior\'\")
%>
<TD>Junior, 11-mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"J11A\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"J11B\"></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Ynglinge\'\")
%>
<TD>Ynglinge, 11-mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Y11A\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Y11B\"></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Miniputpiger\'\")
%>
<TD>Miniputpiger, 7 mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"MPA\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"MPB\"></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Lilleputpiger\'\")
%>
<TD>Lilleputpiger, 7-mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"LPA\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"LPB\"></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Piger\'\")
%>
<TD>Piger, 11 mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"PA\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"PB\"></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Raekker WHERE Raekke=\'Juniorpiger\'\")
%>
<TD>Juniorpiger, 11-mands</TD>
<TD>........</TD>
<TD><%=OnUngdom(\"Aargang\")%></TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"JPA\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"JPB\"></TD>
</TR>
</TABLE>
<BR>
<BR><BR>
<B>Forplejning</B>
<BR><BR>
I bedes venligst oplyse hvilken type forplejning I ønsker i forbindelse med Lunderskov Cup
<BR>
<BR>
<TABLE BORDER=\"0\">
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Priser WHERE Beskrivelse=\'Middag\'\")
%>
<TD>Fredag middag </TD>
<TD>Antal <INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"FM\"></TD>
<%Set OnMont = Connect.Execute (_
\"SELECT * FROM MontEnhed\")
%>
<TD> á <%=OnMont(\"MontEnhed\")%> <%=OnUngdom(\"Pris\")%></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT Pris FROM Priser WHERE Beskrivelse=\'Morgen\'\")
%>
<TD>Lørdag morgenmad </TD>
<TD>Antal <INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"LMO\"></TD>
<TD> á <%=OnMont(\"MontEnhed\")%> <%=OnUngdom(\"Pris\")%></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Priser WHERE Beskrivelse=\'Frokost\'\")
%>
<TD>Frokost </TD>
<TD>Antal <INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"LF\"></TD>
<TD> á <%=OnMont(\"MontEnhed\")%> <%=OnUngdom(\"Pris\")%></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Priser WHERE Beskrivelse=\'Middag\'\")
%>
<TD>Middag </TD>
<TD>Antal <INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"LMI\"></TD>
<TD> á <%=OnMont(\"MontEnhed\")%> <%=OnUngdom(\"Pris\")%></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Priser WHERE Beskrivelse=\'Morgen\'\")
%>
<TD>Søndag morgenmad </TD>
<TD>Antal <INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"SMO\"></TD>
<TD> á <%=OnMont(\"MontEnhed\")%> <%=OnUngdom(\"Pris\")%></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Priser WHERE Beskrivelse=\'Frokost\'\")
%>
<TD>Frokost </TD>
<TD>Antal <INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"SF\"></TD>
<TD> á <%=OnMont(\"MontEnhed\")%> <%=OnUngdom(\"Pris\")%></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Priser WHERE Beskrivelse=\'Middag\'\")
%>
<TD>Middag </TD>
<TD>Antal <INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"SMI\"></TD>
<TD>á <%=OnMont(\"MontEnhed\")%> <%=OnUngdom(\"Pris\")%></TD>
</TR>
<TR>
<%Set OnUngdom = Connect.Execute (_
\"SELECT * FROM Priser WHERE Beskrivelse=\'Frokostpakke\'\")
%>
<TD>Frokostpakke til rejse </TD>
<TD>Antal <INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"FP\"></TD>
<TD>á <%=OnMont(\"MontEnhed\")%> <%=OnUngdom(\"Pris\")%></TD>
</TR>
</TABLE>
<BR>
<BR>
<INPUT TYPE=\"submit\" VALUE=\"Tilmeld\" NAME=\"Tilmeld\"> <INPUT TYPE=\"reset\" VALUE=\"Rens felter\" NAME=\"Reset\">
</FORM>
</BODY>
</HTML>
Og her er filen, der læger det i databasen:
<%
Response.Buffer=\"True\"
%>
<TITLE>Ungdomstilmelding med redirect</TITLE>
<%
Dim Connect, OnTilmelding
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../Databaser/UngdomTilmelding.mdb\")
%>
<%
Set OnTilmelding = Connect.Execute (\"INSERT INTO Ungdom (Klub, Troeje, Bukser, ATroeje, ABukser, Kontakt, Tlf, Fax, Adr, ByNavn, PostNr, Email, Dag, TidTime, Tidminut, M7A, M7B, MPA, MPB, LPA, LPB, L11A, L11B, D11A, D11B, PA, PB, J11A, J11B, JPA, JPB, Y11A, Y11B, FM, LMO, LF, LMI, SMO, SF, SMI, FP) VALUES (\'\"+Request.Form(\"Klub\")+\"\',\'\"+Request.Form(\"Troeje\")+\"\',\'\"+Request.Form(\"Bukser\")+\"\',\'\"+Request.Form(\"ATroeje\")+\"\',\'\"+Request.Form(\"ABukser\")+\"\',\'\"+Request.Form(\"Kontakt\")+\"\',\'\"+Request.Form(\"Tlf\")+\"\',\'\"+Request.Form(\"Fax\")+\"\',\'\"+Request.Form(\"Adr\") +\"\',\'\"+Request.Form(\"ByNavn\")+\"\',\"+Request.Form(\"PostNr\")+\",\'\"+Request.Form(\"Email\")+\"\',\'\"+Request.Form(\"Dag\")+\"\',\'\"+Request.Form(\"TidTime\")+\"\',\'\"+Request.Form(\"TidMinut\")+\"\',\"+Request.Form(\"M7A\")+\",\"+Request.Form(\"M7B\")+\",\"+Request.Form(\"MPA\")+\",\"+Request.Form(\"MPB\")+\",\"+Request.Form(\"LPA\")+\",\"+Request.Form(\"LPB\")+\",\"+Request.Form(\"L11A\")+\",\"+Request.Form(\"L11B\")+\", \"+Request.Form(\"D11A\")+\", \"+Request.Form(\"D11B\")+\",\"+Request.Form(\"PA\")+\", \"+Request.Form(\"PB\")+\", \"+Request.Form(\"J11A\")+\",\"+Request.Form(\"J11B\")+\",\"+Request.Form(\"JPA\")+\",\"+Request.Form(\"JPB\")+\",\"+Request.Form(\"Y11A\")+\",\"+Request.Form(\"Y11B\")+\",\"+Request.Form(\"FM\")+\",\"+Request.Form(\"LMO\")+\",\"+Request.Form(\"LF\")+\",\"+Request.Form(\"LMI\")+\",\"+Request.Form(\"SMO\")+\",\"+Request.Form(\"SF\")+\",\"+Request.Form(\"SMI\")+\",\"+Request.Form(\"FP\")+\")\")%>
<%
Response.Redirect(\"../Statiske/success.htm\")
%>