Tjena!
Jag försöker lägga till ett antal värden i en databas genom
ett formulär (ASP sida) och när jag submit:ar formuläret så ser
allt ut som det ska dvs jag kommer till nästa sida utan några
felmeddelanden.
I databasen finns ingenting när man tittar efteråt det enda
som har hänt där är att räknaren har räknat upp 1.
Resten av fälten är tomma, varför?
Databasen
test.mdb (Access)
stats (ID [Primärnyckel, Räknare], Bana1, Bana2, Bana3, Bana4,
Bana5, Bana6, Bana7, Bana8, Bana9, Bana10, Bana11, Bana12,
Bana13, Bana14, Bana15, Bana16, Bana17, Bana18)
ResultInput.asp
<body onload="document.scorecard.bana1.focus()">
<h3>• Varv <%=Request.QueryString("varv")%> •</h3>
<form method="post" action="add.asp?competition=<%=Request.QueryString("competition")%>" name="scorecard" ENCTYPE="text/plain"
onsubmit="return focusEmpty(this)">
<div id="box">
<table>
<tr>
<td><b>1</b></td>
<td><b>2</b></td>
<td><b>3</b></td>
<td><b>4</b></td>
<td><b>5</b></td>
<td><b>6</b></td>
<td><b>7</b></td>
<td><b>8</b></td>
<td><b>9</b></td>
</tr>
<tr>
<td><input type="text" name="bana1" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana2" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana3" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana4" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana5" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana6" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana7" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana8" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana9" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
</tr>
<tr>
<td colspan="9" height="10">
</td>
</tr>
<tr>
<td><b>10</b></td>
<td><b>11</b></td>
<td><b>12</b></td>
<td><b>13</b></td>
<td><b>14</b></td>
<td><b>15</b></td>
<td><b>16</b></td>
<td><b>17</b></td>
<td><b>18</b></td>
</tr>
<tr>
<td><input type="text" name="bana10" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana11" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana12" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana13" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana14" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana15" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana16" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana17" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
<td><input type="text" name="bana18" size="1" maxLength="1" onKeyUp="return checkInput(this)" onBlur="return checkNum(this)"></td>
</tr>
<tr>
<td colspan="9" height="20"></td>
</tr>
<tr>
<td colspan="3" align="left"><b>Summa:</b>
<input id="summa" name="summa<%=Request.QueryString("varv")%>" type="text" value="0" size="2" readOnly="readonly">
</td>
<td> </td>
<td> </td>
<td colspan="2" align="center">
<input type="submit" value="Regga" name="submit_button">
</td>
<td colspan="2" align="center">
<input type="reset" value="Sudda" name="reset_button" onClick="return(confirm('År du säker på att du vill tömma alla fält?')&&bana1.focus())">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
Add.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<!-- #include file="db/adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db\test.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM stats"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Bana1") = Request.Form("bana1")
RecSet("Bana2") = Request.Form("bana2")
RecSet("Bana3") = Request.Form("bana3")
RecSet("Bana4") = Request.Form("bana4")
RecSet("Bana5") = Request.Form("bana5")
RecSet("Bana6") = Request.Form("bana6")
RecSet("Bana7") = Request.Form("bana7")
RecSet("Bana8") = Request.Form("bana8")
RecSet("Bana9") = Request.Form("bana9")
RecSet("Bana10") = Request.Form("bana10")
RecSet("Bana11") = Request.Form("bana11")
RecSet("Bana12") = Request.Form("bana12")
RecSet("Bana13") = Request.Form("bana13")
RecSet("Bana14") = Request.Form("bana14")
RecSet("Bana15") = Request.Form("bana15")
RecSet("Bana16") = Request.Form("bana16")
RecSet("Bana17") = Request.Form("bana17")
RecSet("Bana18") = Request.Form("bana18")
RecSet.Update
RecSet.Close
Connect.Close
%>
<center>Informationen är nu inlagd!<br><a href="ResultInput.asp">Tillbaka</a></center>
</body>
</html>
/S