<%language=VBScript%> <% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" set rs2 = conn.Execute ("Select * from hauptkategorie Where kategoriename") Response.Write "" Response.Write "- seleccione -" While Not rs2.EOF Response.Write "" & rs2.Fields("kategoriename") rs2.MoveNext Wend Response.Write "" Response.Write "

" Response.Write " " Response.Write "

" Response.Write "" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "

" Response.Write "" Response.Write "

" Response.Write "" Response.Write "

" %>