hjælp med DNS connection

Hej

Jeg er total newbie i ASP

Jeg kan vha. nedenstående kode få listet alle data i en tabel fra en Access database (DNS connection).

<%
'****  Create an ADO connection object *******
Set objConn = Server.CreateObject("ADODB.Connection")

'****  Set an active connection to the Connection object using a DSN-less connection  ******
objConn.Open="hcb_scales_tutorial"

'****** Create an ADO recordset object *******
'****** Initialise the strSQL variable with an SQL statement to query the database ******
Set objTutorials = Server.CreateObject("ADODB.Recordset")

'**** Get select statment for the connection. ***
strSQL = "SELECT * FROM personer ORDER BY personer.ID"

' **** Open the recordset with the SQL query
objTutorials.Open strSQL, objConn

%>

<table width="100%" border="0" cellspacing="1" cellpadding="1">
  <tr>
    <td>&nbsp;
        <h1><span lang="da">Display Database</span></h1>           
  </tr>
  <tr>
    <td>
      <table width="100%" border="0" cellspacing="1" cellpadding="4">
        <tr>
          <td width="3%"><B>nr.</B></td>
          <td width="20%"><B>Name</B></td>
          <td width="20%"><B>Telephone</B></td>
          <td width="20%"><B> Birthday</B></td>

        </tr>
<%        blnChangeColor=false%>

     
        <%    if objTutorials.BOF=true and objTutorials.EOF=true then%>
                <h1> No data has been found in Period <b> &nbsp;&nbsp;&nbsp;
                </b>
        <%
            else
            arrData=objTutorials.GetRows ()
            arrSize=ubound(arrData,2)
                if isarray(arrdata) then
                    for kk=0 to arrSize
                      if blnChangeColor=true then
                            %>
                            <tr>
                                  <td width="3%" bgcolor="#DDE9F5"><%=arrData(0,kk)%></td>
                                <td width="20%" bgcolor="#DDE9F5"><%=arrData(1,kk)%>&nbsp;&nbsp;<%=arrData(2,kk)%>
                                <td width="20%" bgcolor="#DDE9F5"><%=arrData(3,kk)%></td>
                                <td width="37%" bgcolor="#DDE9F5"><%=arrData(4,kk)%></td>
                            </tr>                       
                       
                      <%
                      blnChangeColor=false
                    else
                      %>
                      <tr>
                              <td width="3%" bgcolor="#ffffff"><%=arrData(0,kk)%></td>
                            <td width="20%" bgcolor="#ffffff"><%=arrData(1,kk)%>&nbsp;&nbsp;<%=arrData(2,kk)%>
                            <td width="20%" bgcolor="#ffffff"><%=arrData(3,kk)%></td>
                            <td width="37%" bgcolor="#ffffff"><%=arrData(4,kk)%></td>
                        </tr>                       
                        <%
                        blnChangeColor=True
                     
                    end if 
                     
                    next
                else
                end if
                end if%>

           
</table>

</table>


<%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%><%
   
        objTutorials.Close
        set objTutorials=nothing
        set objConn =nothing
%>

Jeg har svært ved at skille koden ad så jeg kan skrive til dabasen i stedet. Jeg ville meget gerne kunne skrive til databasen fra en form der er sat ind på en anden side. Som eksempel kunne jeg nøjes med at udfylde feltet "name" i databasen fra formen:

<form name="form1" method="get" action="hjælp.asp">
    name:
    <input type="text" name="navn" size="20">
    <br>
<input type="submit" name="Submit" value="opret">
</form>

Er der nogen der har mulighed for at hjælpe mig med at "knække" den?

Hilsen

Kim
http://www.sapworld.dk