Åbne link fra dropdown/combobox.
Jeg har sorteret mine links i nogle forskellige kategorier. Disse kategorier loader jeg ind i en combobox, og når jeg vælger en kategori reloader siden og der vises endnu en combobox med de enkelte links i den pågældende kategori.Mit problem er at få åbnet det link jeg vælger i den anden combobox. Nedenstående kode loader i samme vindue, med følgende i adressefeltet:
http://svjensen/main.asp#http://www.eksperten.dk#
Her kommer scriptet:
-----------------------------------
<h3 align="center">Find det ønskede link ved at vælge en kategori i den første boks.</h3>
<p align="center">
<form action="main.asp" target="main" method="post" name="form1">
<%
kat = Request.Form("ddkat")
strSQL = "SELECT linkkat_id, linkkategori "
strSQL = strSQL & "FROM linkkat "
strSQL = strSQL & "ORDER BY linkkategori ASC"
set rs = conn.execute(strSQL)
Response.Write "<select name=ddkat size=1 onchange='document.form1.submit()'>"
Response.Write "<option value=0>Vælg kategori</option>"
Do While Not rs.EOF
Response.Write "<option "
Response.write "value=" & rs("linkkat_id") & ">" & rs("linkkategori") & "</option>"
rs.MoveNext
Loop
Response.Write "</select>"
Response.Write "</form>"
'Rydder op
rs.close
set rs = nothing
If kat <> "" Then
strSQL1 = "SELECT link, link_tekst "
strSQL1 = strSQL1 & "FROM link "
strSQL1 = strSQL1 & "WHERE link.linkkat_id = " & kat & " "
strSQL1 = strSQL1 & "ORDER BY sortering"
set rs1 = conn.execute(strSQL1)
%>
<form action="_derived/nortbots.htm" onSubmit="location.href='_derived/nortbots.htm';return false;" target="_blank" WEBBOT-onSubmit webbot-action="--WEBBOT-SELF--">
<select name=ddlink size=1 onchange="window.open(this.options[this.selectedIndex].value,'_top')">
<option value=0>Vælg link</option>
<%
Do While Not rs1.EOF
Response.Write "<option value=" & rs1("link") & ">" & rs1("link_tekst") & "</option>"
rs1.MoveNext
Loop
Response.Write "</select>"
rs1.Close
set rs1 = nothing
Response.Write "</form>"
Else
End if
Response.Write "</p>"
%>
