Nein, wenn ich mir den String ausgeben lasse ist er einfach leer (und die zweite Seite tut darum natürlich auch nicht das, was sie sollte:
Vielleicht hilft das Skript:
<form method="post" action="./Uebersicht.asp?Filter=Form">
<table width="100%" border="0" ID="Table1">
<tr>
<td>
<%MenueAnfang%>
</td>
</tr>
<tr>
<td>
<%NaviOben%>
</td>
</tr>
<tr>
<td>
<TABLE cellSpacing="1" cellPadding="1" width="100%" border="0">
<TR>
<TD align="center" colSpan="3">
<H1>Filtereinstellungen</H1>
</TD>
</TR>
<TR>
<TD width="33%">
<h5>Länder</h5>
<input type="radio" name="LAuswahl" value="Alle" />Alle<br>
<input type="radio" name="LAuswahl" value="Auswahl" checked/>Länderauswahl<br>
<input type="radio" name="LAuswahl" value="Nichts" />Keine Ländersuche<br><br>
<select name="lbLands" size="10" multiple>
<%
Dim anz
Dim mySelect
strProvider = "Provider=MSDAORA.1;"
.... strComplete = strProvider & strDatabase
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strComplete
Set objRS = Server.CreateObject("ADODB.Recordset")
mySelect="select count(*)Anzahl from view_existing_lands"
objRS.Open mySelect,objConn
if Not objRS.EOF or objRS.BOF then
anz=objRS.Fields("Anzahl")
end if
Response.Write anz
objRS.Close
mySelect= "Select substr(schl_land.LAND_NAME,1,30)Land, schl_land.ISO_CODE Code from schl_land, view_existing_lands where schl_land.LAND_NAME = view_existing_lands.LAND"
objRS.Open mySelect,objConn
Do While Not objRS.EOF
Response.Write("<option value='")
Response.Write objRS.Fields("Code")
Response.Write("'>")
Response.Write objRS.Fields("Land")
Response.Write("</option>")
objRS.MoveNext
Loop
objRS.Close
%>
</select>
</TD>
<TD width="33%">
<h5>Regionen</h5>
<input type="radio" name="RAuswahl" value="Alle" ID="Radio1" />Alle
Regionen<br>
<input type="radio" name="RAuswahl" value="Auswahl" ID="Radio2" checked/>Regionauswahl<br>
<input type="radio" name="RAuswahl" value="Nichts" ID="Radio3" />Keine
Regionsuche<br><br>
<select name="lbRegions" size="10" multiple ID="Select1">
<%
mySelect="select count(*)Anzahl from view_existing_regions"
objRS.Open mySelect,objConn
if Not objRS.EOF or objRS.BOF then
anz=objRS.Fields("Anzahl")
end if
objRS.Close
Response.Write anz
mySelect= "Select Region from view_existing_regions"
objRS.Open mySelect,objConn
Do While Not objRS.EOF
Response.Write("<option value='")
Response.Write objRS.Fields("Region")
Response.Write("'>")
Response.Write objRS.Fields("Region")
Response.Write("</option>")
objRS.MoveNext
Loop
objRS.Close
%>
</select>
</TD>
<TD width="33%">
<h5>Gebirge</h5>
<input type="radio" name="GAuswahl" value="Alle" ID="Radio4" />Alle
Gebirge<br>
<input type="radio" name="GAuswahl" value="Auswahl" ID="Radio5" checked />Gebirgsauswahl<br>
<input type="radio" name="GAuswahl" value="Nichts" ID="Radio6" />Keine
Gebirgssuche<br><br>
<select name="lbMounts" size="10" multiple ID="Select2">
<%
mySelect= "Select Gebirge from view_existing_mounts"
objRS.Open mySelect,objConn
Do While Not objRS.EOF
Response.Write("<option value='")
Response.Write objRS.Fields("Gebirge")
Response.Write("'>")
Response.Write objRS.Fields("Gebirge")
Response.Write("</option>")
objRS.MoveNext
Loop
%>
</select>
</TD>
</TR>
<tr>
<td colspan="3" align="center">
<br><br>
<h5>Um mehrere Einträge auszuwählen, halten Sie die 'Strg'-Taste gedrückt!</h5>
</td>
</tr>
<tr>
<td colspan="3" align="center">
<br><br>
<input type="submit" name="go" value="Abschicken">
</td>
</tr>
</TABLE>
</td>
</tr>
<tr>
<td>
<%NaviUnten%>
</td>
</tr>
<tr>
<td>
<!--#INCLUDE VIRTUAL="/Strassen/Includes/footer.asp" -->
</td>
</tr>
</table>
</form>
