Max 1 klik på submit

Kan man ikke lave det med en cookie

<ole>

<script language=\"JavaScript\">
var inx = 0;
function check() {
  if (inx<1) {
    inx++;
    return true;
  }
  else {
    return false
  }
}
</script>

...og så kalder du således:

<form onsubmit=\"return check();\">

/mvh
</bole>

Det virker da ikke Ole

submit\'er du med en <input=\"submit\">? Hvis du gør, virker det, men hvis du submit\'er via JavaScript, skal det skrives ind i din funktion og så må vi lige se den ;)
/mvh

Jeg har laver det med en cookie, det virker fint.

Men i må gerne se koden.

<!--#includes file=\"connect.asp\"-->
<%
If Request(\"mode\") = \"Insaet\" Then
    If Request.Cookies(\"indsaet\") = \"on\" Then
        response.end
    Else
        Response.Cookies(\"indsaet\") = \"on\"

        set Conn = GetDataConnection

        For iCityCount=1 to Request(\"ib\").COUNT       
            SQL = \"INSERT INTO tblUlykkestal(AgeGroup,TransportType,Year,Killed,hurt) VALUES (\"
            SQL = SQL & Request(\"ib\")(iCityCount)   
            SQL = SQL & \")\"
            Conn.Execute(SQL)
        Next
    End IF
    Response.write Request.Cookies(\"indsaet\")
End IF

Const adOpenStatic = 3
Const adLockPessimistic = 2

Dim cnnExcel
Dim rstExcel
Dim I
Dim iCols

Set cnnExcel = Server.CreateObject(\"ADODB.Connection\")

cnnExcel.Open \"Driver={Microsoft Excel Driver (*.xls)};READONLY=FALSE;DBQ=\"&Server.MapPath(\"GetExcel97.xls\")&\";DriverID=790\"    
   
Set rstExcel = Server.CreateObject(\"ADODB.Recordset\")
rstExcel.Open \"SELECT * FROM Data;\", cnnExcel
   
iCols = rstExcel.Fields.Count
%>
<script language=\"JavaScript\">
var inx = 0;
function check() {
  if (inx<1) {
    inx++;
    return true;
  }
  else {
    return false
  }
}
</script>

<table style=\"border : thin solid Black;\">
<thead>
<%
For I = 0 To iCols - 1
    Response.Write \"<th>\"
    Response.Write rstExcel.Fields.Item(I).Name
    Response.Write \"</th>\" & vbCrLf
Next \'I
%>
       
    </thead>
<form action=\"GetExcel4.asp?mode=Insaet\" method=\"post\" name=\"test\" onsubmit=\"return check();\">

<%Do until rstExcel.EOF %>

<tr>
<td  style=\"border : 1px solid Black;\" align=\"center\"><%= rstExcel.Fields.Item(0).Value%></td>
<td  style=\"border : 1px solid Black;\" align=\"center\"><%= rstExcel.Fields.Item(1).Value%></td>
<td  style=\"border : 1px solid Black;\" align=\"center\"><%= rstExcel.Fields.Item(2).Value%></td>
<td  style=\"border : 1px solid Black;\" align=\"center\"><%= rstExcel.Fields.Item(3).Value%></td>
<td  style=\"border : 1px solid Black;\" align=\"center\"><%= rstExcel.Fields.Item(4).Value%></td>
<td  style=\"border : 1px solid Black;\" align=\"center\"><input type=\"Hidden\" name=\"ib\" value=\"<%= rstExcel.Fields.Item(0).Value%>,<%= rstExcel.Fields.Item(1).Value%>,<%= rstExcel.Fields.Item(2).Value%>,<%= rstExcel.Fields.Item(3).Value%>,<%= rstExcel.Fields.Item(4).Value%>\" name=\"hurt\"></td>
</tr>

<%
rstExcel.MoveNext
Loop
    %>
    <tr><td  colspan=\"5\" align=\"center\">&nbsp;</td></tr>
<tr><td  colspan=\"5\" align=\"center\"><input type=\"Submit\" value=\"Indsæt tal i databasen\"></td></tr>

</table>

<%
rstExcel.Close
Set rstExcel = Nothing

cnnExcel.Close
Set cnnExcel = Nothing
%>