hjælp til function

Hej alle

Jeg prøver at lave en function som skal lave en form ud fra nogle værdier, men det går ikke så godt..

Når jeg laver en form på min side, så ser den sådan ud..

<table cellpadding="0" cellspacing="0" class="mid-text">
<form action="" method="post" name="">
  <tr><td>Navn</td></tr>
  <tr>
  <td><input type="text" size="25" name="navn" value="<%=navn%>"></td>
  </tr>
  <tr><td height="10"></td></tr>

  <tr>
  <td><input type="submit" value="Gem"></td>
  </tr>
</form>
</table>

Det kunne jeg godt tænke mig at jeg bare kunne skrive:

response.write createForm("navn","text")

eller noget lign..

Jeg har prøvet at lave noget men det bliver alt for kludret hvis man lige pludselig skal kunne sætte variabler ind, og f.eks. select boxe..

men her er min kode (i simpel form)

<%
Function formCreator(action,felterne,navnene,type,formnavn,c)
               
    felterneArr = split(felterne,",")
    navnArr = split(navnene,",")
    typeArr = split(type,",")
   
    variablerArr = split(v,replace_string)
   
    if c <> "" then c  = "onsubmit='return " & c & "(this)'" else c = ""
       
    response.write "<table class=mid-text cellpadding=0 cellspacing=0>"
    response.write "<form action='" & action & "' method=post name=ret " & c & ">"   
   
    For i = lbound(navnArr) to ubound(navnArr)
       
        response.write "<tr><td>" & navnArr(i) & "</td></tr>"
       
        response.write "<tr><td>"
       
        if id <> "" then
       
            if typeArr(i) <> "area" then
                response.write "<input type='" & typeArr(i) & "' size=25 name=" & felterneArr(i) & " value='" & replace(variablerArr(i),replace_string,",") & "'>"
            else
                response.write "<textarea name='" & felterneArr(i) & "' cols='50' rows='6'>" & replace(variablerArr(i),replace_string,",") & "</textarea>"
            end if
       
        else
       
            if typeArr(i) <> "area" then
                response.write "<input type='" & typeArr(i) & "' size=25 name=" & felterneArr(i) & ">"
            else
                response.write "<textarea name='" & felterneArr(i) & "' cols=50 rows=6></textarea>"
            end if
           
        end if
       
        response.write "</td></tr>"
       
        response.write "<tr><td height=10></td></tr>"
       
    Next
   
    response.write "<tr><td><input type=submit value=" & formnavn & "></td></tr>"
   
    response.write "</form></table>"
   
End function
%>


Håber at i kan forstå det, og at i kan hjælpe

Thomas