[Resolvido] Adicionar Linhas a Tabela

Galera, bom dia.

Eu tenho esse código:

<table border='0' cellspacing='2' cellpadding='2' style="font-size:12px;font-family:verdana;">
 <tr>
 <td width="35%">Fornecedor</td>
 <td>
 <select name="fornecedor[]" id="fornecedor">
 <%
 Call AbreDb
 Rst.Open "Select codigo, razao_social from tblhabil_fornecedor where razao_social <> '' order by razao_social", Con
 While Not Rst.EOF
 Response.Write("<option value='"&Rst("codigo")&"'>"&Rst("razao_social")&"</option>")
 Rst.MoveNext
 Wend
 %>
 </select>
 </td>
 </tr>
 <tr>
 <td>Tipo de Transporte</td>
 <td>
 <select name="tipo[]" id="tipo">
 <option value=""> Selecione um Tipo </option>
 <%
 Call AbreDb
 Rst.Open "Select * From tbltipo_transporte order by tipo", Con
 While Not Rst.EOF
 Response.Write("<option value='"&Rst("id_tipotransporte")&"'>"&Rst("tipo")&"</option>")
 Rst.MoveNext
 Wend
 %>
 </select>
 </td>
 </tr>
 <tr>
 <td> Data Embarque </td>
 <td> <input type="text" name="dataembarque[]" id="dataembarque" size="12" /></td>
 </tr>
 <tr>
 <td> Data Desembarque </td>
 <td> <input type="text" name="datadesembarque[]" id="datadesembarque" size="12" /></td>
 </tr>
 <tr>
 <td colspan="2">
 <input type="button" name="add" value="Adicionar" class="botao" />
 </td>
 </tr>
 </table>

Percebam que na última linha tem o botão para Adicionar.

Quero que ao clicar adicione mais 4 linhas nessa tabela, que seriam as mesmas 4 primeiras linhas.

Tentei pegar um código do fórum, mas não me serviu.