Web Development

Col1      Col2       Col3
1           1         1

Col1       Col2        Col3         Col4 
2           2           2             2
3           3           3             3
4           4           4             4
5           5           5             5        

Details a Table1.Col1 Table1.Col2
Details b Table2.Col1 Table2.Col2 Table2.Col3 Table2.Col4

1      1--------------------from (Table1)
2      2      2      2------from (Table2)
1      1(get duplicates)----from (Table1)
3      3      3      3------from (Table2)
1      1(get duplicates)----from (Table1)
4      4      4      4 -----from (Table2)
1      1(get duplicates)----from (Table1)
5      5      5      5------from (Table2)

<script language="vbscript" type="text/vbscript">
Sub GetCategory()
    ConStr = "Driver={SQL Server};Server=x.x.x.x;Database=db;Uid=uid;Pwd=pwd"
    Set Conn = CreateObject("ADODB.Connection")
    Conn.open ConStr
    Rs = CreateObject("ADODB.RecordSet")
    Set Rs = Conn.Execute("EXEC dbo.SelectCategoryByClassID @ClassID = " & Document.All.sClass(Document.All.sClass.SelectedIndex).Value)
    do while not rs.eof
	Set oOption = Document.CreateElement("OPTION")
        oOption.Text = rs("CategoryTitle")
        oOption.Value = rs("CategoryTitle")
	Document.All.sCategory.Add( oOption )
        Rs.movenext
    loop
    Set oOption = Nothing
    Rs.Close
    Set Rs = Nothing
    CreateObject
  End Sub

  Sub changeCats()
    Do Until Document.All.sCategory.Length = 1
      Document.All.sCategory.Remove( 1 )
    Loop
    Call GetCategory()
  End Sub
  
  </script>