mangler en transfer funktion

..nævnte jeg at det haster ?.... please.......

<ole>
"Er I med ?..."
Njahhh...ikke helt. Men kunne du ikke smide noget kode op enten her - eller måske endnu bedre som 'rigtige' filer på et domæne somewhere? Det ville gøre det meget lettere og mindske mulighederne for fejltagelser - og dermed give dig det rigtige svar hurtigere ;-)
/Vh
</bole>

<%
dim htmlMain

dsnData = "Driver={Microsoft Access Driver (*.mdb)};DBQ=f:\home\xxxdk\data.mdb"

set connData = Server.CreateObject("ADODB.Connection")

connData.Open (dsnData)

sqlOverKategorier = "SELECT * FROM kategorier WHERE parent='0'"

set rsData = connData.Execute(sqlOverKategorier)

while not rsData.eof
    htmlMain = htmlMain & "<a href=""kategori.asp#" & rsData("id") & """>" & rsData("navn") &_
        " ( " & rsData("xID") & " )</a><br>" & vbCrLf
    rsData.MoveNext
wend

htmlMain = htmlMain & "<br><br><table>"

set rsData = connData.Execute(sqlOverKategorier)
response.write("<h3><b><center>Henter kategorier</center></b></h3>")
response.write("<center>Der kan gå et stykke tid før de dukker op</center><br>")
while not rsData.eof
    sqlUnderkategorier = "SELECT * FROM kategorier WHERE parent='" & rsData("id") & "'"
    'response.write(sqlUnderkategorier)
    set rsUnder = connData.Execute(sqlUnderkategorier)
   
    htmlMain = htmlMain & "<tr>" &_
        "<td colspan=3 bgColor=""#000000"" align=center><font color=""#FFFFFF""><b><a name=""" & rsData("id") & """></a>" & rsData("Navn") & " ( " & rsData("xId") & " )" & "</b></font></td>" &_
        "</tr>"
   
    while not rsUnder.eof
        htmlMain = htmlMain &_
            "<tr>" &_
            "<td width=10>" & rsUnder("xId") & "</td>" &_
            "<td>" & rsUnder("navn") & "</td>" &_
            "<td width=20 align=right><a href=""java script:transer('" & rsData("xID") & "','" & rsUnder("xID") & "')""></a></td>" &_
            "</tr>"
        rsUnder.MoveNext
    wend
    rsData.MoveNext
wend

htmlMain = htmlMain & "</table>"

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>Kategorier</title>
<style type="text/css">
<!--
a:link {text-decoration: none; color: #0033ff;}

a:active {text-decoration: none; color: #0033ff;}
a:visited {text-decoration: none; color: #0033ff;}
a:hover {text-decoration: none; color: #ff6633;}
body, input, select, textarea {font-family: Verdana; color: #000000;}
-->
</style>
<script language=javascript>
<!--

function transfer(e,g) {

    //window.opener.document.frm.Underkategori1.value = f;
    //window.opener.document.frm.Hovedkategori1.value = e;

}

// -->
</script>
</head>

<body>

<%=htmlMain%>

</body>
</html>

Min transfer funktion ovenover, var en midlertidig funktion til at teste om jeg kunne få den til at overføre bare til to bestemte felter...... det kunne jeg ikke !

Det ville gå MEGET bedre, hvis du skrev:

function transfer(e,g) {
    window.opener.document.frm.Underkategori1.value = g;
    window.opener.document.frm.Hovedkategori1.value = e;
}

Du kalder jo ikke med noget 'f', men med et 'g'...! Er det bare der, den ligger?
/Vh

da ingen af løsningerne passede, lukker jeg lige spm\'et.......