ondblclick -> Input

Hvilke browsere skal det virke i?

IE

Så behøves du ikke at bruge ASP, det kan laves i JavaScript!

Det er også fint med mig. Men der er min evner for at sige det rent ud - møj elendige.
Please help me with some code.

Dette skulle få dig igang....

<html>

<head>

    <script language=\"JavaScript\">
        function tdDblClick() {
            var oTD = event.srcElement;
            var oInput = document.createElement(\"INPUT\");
            oInput.value = oTD.innerText;
            oTD.innerText = \"\";
            oTD.insertAdjacentElement(\"BeforeEnd\", oInput);
        }
    </script>

</head>

<body>

<table>
<tr><td onDblClick=\"tdDblClick();\" onSelectStart=\"return false;\">Dette er en test værdi!</td></tr>
</table>

</body>

</html>

z42cool>> Du havde ret. Det hjalp mig da igang. Det var ikke helt det jeg endte med at bruge. Derfor får du ikke alle pointene. Håber det er i orden.

Her er hvad jeg endte med. Det er udbygget en del.
<HTML>
<HEAD>
<SCRIPT LANGUAGE=Javascript>
<!--
var originalText;
var processKey;

function ClearAllInput() {
  var cTDs = document.all.tags(\"TD\");
  var iNumTDs = cTDs.length;
  for (var i=0;i<iNumTDs;i++) {
    var eTarget = cTDs[i];
    if (\"DoInput\" == eTarget.className) {
        eTarget.className = \"clsListTD\";
        eTarget.innerHTML = originalText;
    }
  }
  processKey = false;
}

function input(ID, Col) {
    ClearAllInput();
    var cTDs = document.all.tags(\"TD\");
    var cTD = cTDs(String(Col) + String(ID));

    originalText = cTD.innerHTML;
    cTD.className = \"DoInput\"
   
    cTD.innerHTML = \"<INPUT id=text2 class=\" + \'\"\' + \"clsKranInput\" + \'\"\' + \" name=text2 style=\" + \'\"\' + \"HEIGHT: 20px; WIDTH: 80px\" + \'\"\' + \" value=\'\" + originalText + \"\'>\";
    window.text2.select();
    processKey = true;
}

function tab_onkeypress(ID, Col) {
    var key
    key = event.keyCode;

    if (processKey == true)
    {
        var cTDs = document.all.tags(\"TD\");
        var cTD = cTDs(String(Col) + String(ID));
   
           
        var cAllInput = document.all.tags(\"INPUT\");
        var cText = cAllInput(\"text2\")
   
        switch (key) {
            case 27:    cTD.innerHTML = originalText;
                        cTD.className = \"clsListTD\";
                        break;
            case 13:   
                parent.frames(\"ProdInfoFrame\").location.href = \"DBUpdateGKalk.asp?ID=\" + ID + \"&Col=\" + Col + \"&CellValue=\" + text2.value
                cTD.innerHTML = text2.value;
                cTD.className = \"\";
                break;
        }   
    }
}

//-->
</SCRIPT>
</HEAD>
<BODY>
<%
OpenConnection
Dim strSQL
Dim ID
Dim strWhere
If Request(\"Varenr\") <> \"\" Then
    strWhere = \" WHERE Varenr = \'\" & Request(\"Varenr\") & \"\'\"
End If
strSQL = \"SELECT * FROM Varer\" & strWhere & \" Order By Varenr\"
Set rsInfo = cnnDB.Execute(strSQL)
%>
<TABLE border=1 cellPadding=1 cellSpacing=1  width=\"75%\"> 
<TR>
    <TD  CLASS=\"clsKranTH\" colspan=6 align=middle><%= \"Rediger forkalkuleret G-værdi\"%></TD>
</TR>
<TR>
    <TD CLASS=\"clsKranTH\" width=\"80\" align=middle><%= \"Varenr.\"%></TD>
    <TD CLASS=\"clsKranTH\" width=\"120\" align=middle><%= \"Navn\"%></TD>
    <TD CLASS=\"clsKranTH\" width=\"80\" align=middle><%= \"Ops G-Est\"%></TD>
    <TD CLASS=\"clsKranTH\" width=\"80\" align=middle><%= \"Ops G-kalk\"%></TD>
    <TD CLASS=\"clsKranTH\" width=\"80\" align=middle><%= \"Pak G-Est\"%></TD>
    <TD CLASS=\"clsKranTH\" width=\"80\" align=middle><%= \"pak G-Kalk\"%></TD>
</TR>
<%
    Do While Not rsInfo.EOF
        Response.Write \"<TR>\"
        Response.Write vbCrLf & vbTab & \"<TD HEIGHT=\"\"23\"\" CLASS=\"\"clsListTD\"\" ALIGN=\"\"center\"\">\" & rsInfo(\"Varenr\") & \"</TD>\"
        Response.Write vbCrLf & vbTab & \"<TD HEIGHT=\"\"23\"\" CLASS=\"\"clsListTD\"\" ALIGN=\"\"center\"\">\"
        If rsInfo(\"Varetekst\") <> \"\" Then
            Response.Write rsInfo(\"Varetekst\")
        Else
            Response.Write \"&nbsp;\"
        End If
        Response.Write \"</TD>\"
        Response.Write vbCrLf & vbTab & \"<TD HEIGHT=\"\"23\"\" CLASS=\"\"clsListTD\"\" ALIGN=\"\"center\"\">\"
        If rsInfo(\"AG_Opsaet\") <> \"\" Then
            Response.Write rsInfo(\"AG_Opsaet\")
        Else
            Response.Write \"&nbsp;\"
        End If
        Response.Write \"</TD>\"
        Response.Write vbCrLf & vbTab & \"<TD HEIGHT=\"\"23\"\" STYLE=\"\"cursor: hand\"\" CLASS=\"\"clsListTD\"\" ALIGN=\"\"center\"\" onSelectStart=\"\"return false;\"\" onDblClick=\"\"input(\" & rsInfo(\"ID\") & \", 1);\"\" onkeypress=\"\"tab_onkeypress(\" & rsInfo(\"ID\") & \", 1)\"\" ID=\"\"1\" & rsInfo(\"ID\") & \"\"\">\"
        If rsInfo(\"GKalk_Opsaet\") <> \"\" Then
            Response.Write vbCrLf & vbTab & vbTab & rsInfo(\"GKalk_Opsaet\") & \"</TD>\"
        Else
            Response.Write vbCrLf & vbTab & vbTab & \"</TD>\"
        End If
        Response.Write vbCrLf & vbTab & \"<TD HEIGHT=\"\"23\"\" CLASS=\"\"clsListTD\"\" ALIGN=\"\"center\"\">\"
        If rsInfo(\"AG_Pakning\") <> \"\" Then
            Response.Write rsInfo(\"AG_Pakning\")
        Else
            Response.Write \"&nbsp;\"
        End If
        Response.Write vbCrLf & vbTab & \"<TD HEIGHT=\"\"23\"\" STYLE=\"\"cursor: hand\"\" CLASS=\"\"clsListTD\"\" ALIGN=\"\"center\"\" onSelectStart=\"\"return false;\"\" onDblClick=\"\"input(\" & rsInfo(\"ID\") & \", 2);\"\" onkeypress=\"\"tab_onkeypress(\" & rsInfo(\"ID\") & \", 2)\"\" ID=\"\"2\" & rsInfo(\"ID\") & \"\"\">\"
        If rsInfo(\"GKalk_Pakning\") <> \"\" Then
            Response.Write vbCrLf & vbTab & vbTab & rsInfo(\"GKalk_Pakning\") & \"</TD>\"
        Else
            Response.Write vbCrLf & vbTab & vbTab & \"</TD>\"
        End If
        Response.Write vbCrLf & \"</TR>\"
        rsInfo.MoveNext
    loop 
%>
</TABLE>
</BODY>
</HTML>