Hvad er der galt?????????
Er der nogen der kan sige mig hvad der er galt siden jeg får denne besked:Microsoft OLE DB Provider for ODBC Drivers fejl '80040e10'
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/best/login/resultater/input2.asp, linje 53
<---input2.asp--->
<%
response.Buffer = true
response.expires = 0
%>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Response.Cookies("Resultat-BS")("id_type") = Request.Form("id_type")
Response.Cookies("Resultat-BS").Expires = Date+30
End If
strId_type = Request.Cookies("Resultat-BS")("id_type")
If Request.Form("Add") <> "" Then
strError = ""
strId_type = Trim(Request.Form("Id_type"))
strNavn = Trim(Request.Form("Navn"))
strBaad = Trim(Request.Form("Baad"))
strSejlnr = Trim(Request.Form("Sejlnr"))
strSejltid = Trim(Request.Form("Sejltid"))
strSek1 = Trim(Request.Form("Sek1"))
strLys = Trim(Request.Form("Lys"))
strSek2 = Trim(Request.Form("Sek2"))
strPlads = Trim(Request.Form("Plads"))
End If
If Len(strId_type) = 0 Then
strError = "Du skal skrive et nummer..."
ElseIf Len(strNavn) = 0 Then
strError = "Du skal skrive skipperens navn..."
ElseIf Len(strBaad) = 0 Then
strError = "Du skal skrive bådtype..."
ElseIf Len(strSejlnr) = 0 Then
strError = "Du skal skrive bådens sejlnummer..."
ElseIf Len(strSejltid) = 0 Then
strError = "Du skal skrive sejltiden..."
ElseIf Len(strSek1) = 0 Then
strError = "Du skal skrive sejltiden i sekunder..."
ElseIf Len(strLys) = 0 Then
strError = "Du skal skrive bådens lystal/TA2002..."
ElseIf Len(strSek2) = 0 Then
strError = "Du skal skrive præmietiden i sekunder..."
ElseIf Len(strPlads) = 0 Then
strError = "Du skal skrive bådens pladcering..."
End If
If Len(strError) = 0 Then
Set rstemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM sejlads WHERE (ID = 0)"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("onsdag2002.mdb")
linie 53--> rstemp.Open strSQL, strDSN, 1, 3
If (rstemp.BOF Or rstemp.EOF) Then
rstemp.AddNew
rstemp("Id_type") = (strId_type)
rstemp("Navn") = (strNavn)
rstemp("Baad") = (strBaad)
rstemp("Sejlnr") = (strSejlnr)
rstemp("Sejltid") = (strSejltid)
rstemp("Sek1") = (strSek1)
rstemp("Lys") = (strLys)
rstemp("Sek2") = (strSek2)
rstemp("Plads") = (strPlads)
rstemp.Update
End If
rstemp.Close
Set rstemp = Nothing
Response.Redirect("input2.asp")
Else
strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
strMode = "add"
End If
%>
<html>
<head>
<title>Bandholm Sejlklub - Bestyrelsen - Resultater</title>
<!--#include virtual = "/style.css"-->
</head>
<body>
<a href="java script:history.back(1);">Tilbage</a>
<h2><u>Nyt resultat:</u></h2>
<center>
<div align="center">
<table border=1 bordercolor=black width="500" cellpadding=2 cellspacing=2 style="BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid">
<tr><td width="100%" colspan="3">
<br>
<form method="POST" action="input2.asp">
<div align="center">
<center>
<table border="0" width="400" cellspacing="0" cellpadding="0" height="223">
<tr>
<td width="100%" height="25"><%=strError%></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast sejladsen nummer:</font><br>
<input type="text" name="Id_type" size="22" class="box" tabindex="1" value="<%=strId_type%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast skipperens navn:</font><br>
<input type="text" name="Navn" size="22" class="box" tabindex="2" value="<%=strNavn%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast bådtypen:</font><br>
<input type="text" name="Baad" size="22" class="box" tabindex="3" value="<%=strBaad%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast sejlnummeret:</font><br>
<input type="text" name="Sejlnr" size="22" class="box" tabindex="4" value="<%=strSejlnr%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast seltiden (eks: tt:mm:ss:):</font><br>
<input type="text" name="Sejltid" size="22" class="box" tabindex="5" value="<%=strSejltid%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast seltiden i sekunder:</font><br>
<input type="text" name="Sek1" size="22" class="box" tabindex="6" value="<%=strSek1%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast bådens lystal/TA2002:</font><br>
<input type="text" name="Lys" size="22" class="box" tabindex="7" value="<%=strLys%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast præmietiden i sekunder:</font><br>
<input type="text" name="Sek2" size="22" class="box" tabindex="8" value="<%=strSek2%>"></td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Indtast bådens pladcering:</font><br>
<input type="text" name="Plads" size="22" class="box" tabindex="9" value="<%=strPlads%>"></td>
</tr>
<tr>
<td width="100%" height="46"><br>
<input type="submit" value=" Næste " name="Add" class="box" tabindex="10">
<input type="button" value=" Fortryd " name="Annuller" class="box" onClick="java script:location.href='input2.asp'" tabindex="11">
<input type="button" value=" Færdig " name="Annuller" class="box" onClick="java script:location.href='resultater.asp'" tabindex="12"></td>
</tr>
</table>
</center>
</div>
</form>
<br></td></tr>
</table>
</center>
</body>
</html>
