Oprette samme indhold i 2 tabeller

Hej eksperter

Når en ny bruger opretter sig, tilknyttes der automatisk personen en udlejningskalender med 53 uger, jf. dette:

<%
id = Session("hid")

SQL = "Select id from hus"


Hus = id

For a = 0 to 53
Uge = a

SQL = "INSERT INTO Uge(Hus, Uge, Ledigt)"
SQL = SQL & "Values("
    SQL = SQL & "'" & Hus & "',"
    SQL = SQL & "'" & Uge & "',"
    SQL = SQL & "'" & "checked" & "'"
    SQL = SQL & ")"
   
    Set RS = conn.execute(SQL)

Next

strSQL = "UPDATE hus set Oprettet =" & 1
strSQL= strSQl & "  Where  Id = " & hus


    Set RS2 = conn.execute(strSQl)

Response.Redirect "hoveroprettet.asp?id=" & id

%>

Nu vil jeg gerne have, at brugeren automatisk får oprettet 2 kalendere. Altså skal der oprettes 53 uger i både tabel Uge og tabel Uge2006.

Jeg har prøvet at response.redirect videre til en side magen til ovenstående kode, hvor jeg så bare rettede Uge til Uge2006, men det resulterer godt i 53 uger i begge tabeller, men de står ikke i rækkefølge, men blandet!

Hvad kan jeg gøre?

På forhånd tak.