Mike: Daten schlaufe (loop) wird unterbrochen

Beitrag lesen

Hi Leute !
Ich hab da ein verzwicktes Problem, und hoff dass Ihr mir helfen könnt!

Ich habe eine db Anbindung, und präsentiere die Daten mit einem Loop. Durch den input type "Preisanfrage" öffnet ein neues Fenster.
Leider unterbricht dann der loop und ich kann keine Daten mehr sehen :-(

Lange musste ich suchen bis ich darauf kam , wo das Problem liegt:
Es ist die Auswahl vfHersteller (vaHrs).Siehe im script (//<<--x ) Ich möchte nach dem Hersteller filtern können, doch genau das verursacht Probleme...
Kann mir jemand helfen ?? Wie kann ich dieses Problem umgehen?

Danke für Eure Hilfe!

Hier das script:
<html>
<head>
 <title>www.blabla</title>
    <meta name="author" content="M.Albrecht">
    <meta name="description" content="blabla, Ihr Partner für hochqualitatives integrales und produkteneutrales Engineering und Beratung in der Automation und industriellen EDV">

<!----------------- Suchbegriffe für Suchmaschinen -------------------->
    <meta name="keywords" content="Shop, Elektronikkarten, SPS-Karten, SPS, Siemens, Klaschka, S5, S7">

<meta name="revisit-after" content="100 days">
    <meta name="distribution" content="global">
    <meta name="page-topic" content="Shop">
    <meta name="language" content="deutsch, de">
    <meta name="robots" content="index">
    <meta name="robots" content="follow">

<!----------------- Externe Style Sheet laden -------------------->
 <link rel=stylesheet type="text/css" href="css/bla.css">

</head>

<body background="images/layout/home.jpg" bgproperties="fixed">

<!----------------- ASP Script Vorlauf -------------------->

<% vaHrs=Request.Form("vfHersteller") %> //<<--x diese zeile
<% Dim conn
   Dim rs
   Dim vaHrs
   Set conn = Server.CreateObject("ADODB.Connection")
   Set rs = Server.CreateObject("ADODB.Recordset")
   Conn.Open "xxx","xxx","yyy"
   Set rs=conn.Execute("SELECT Lfd,Hersteller,Bestellnummer,Serie,Bezeichnung,Bereich,Version FROM SPS WHERE Hersteller='" & vaHrs & "'") //<<--x und hier das where.
%>

<table align="center" valign="top" border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" valign="top">

<!----------------- Titel  -------------------->
<table width="520" height="10" cellspacing="2" cellpadding="2">
  <tr>
    <td colspan="3" bgcolor="#003399" height="17" align="center">
 <font face="Verdana, Helvetica, sans-serif" size="2"><b>
 <font color="#ffffff">
        <font size="2">SPS-Material</font></font>
 </b>
    </td>
  </tr>
</table>
<br>

<table width="520" align="center" cellspacing="0" cellpadding="0">
  <tr>
    <td align="middle" valign="center">
      <h1>
 Gefilterte Artikelliste:<br>
 (Ausgewählt: <%=vaHrs %>)
      </h1>
    </td>
  </tr>
</table>

<table width="520" align="center" cellspacing="0" cellpadding="0">
  <tr>
    <td align="middle" valign="center">
      <p>
 Für eine Preisanfrage merken Sie sich jeweils die Lfd. Nummer.<br>
 Sie können diese im Formular "Preisanfrage" eintragen.<br>
 Bei mehreren Artikel Bitte mit einem "," trennen.<br>
      </p>
    </td>
  </tr>
</table>

<br>

<!----------------- Tabelle Legende -------------------->

<table width="520" border="1" bordercolor="#66ffff" align="center" cellspacing="0" cellpadding="0" bgcolor="#003399">
  <tr>
    <td align="middle" valign="top" width=20><p><font size="-2">Lfd</p></font></td>
    <td align="left" valign="top" width=80><p><font size="-2">Bestell-<br>nummer</p></font></td>
    <td align="left" valign="top" width=100><p><font size="-2">Serie/Typ</p></font></td>
    <td align="left" valign="top" width=100><p><font size="-2">Bezeichnung</p></font></td>
    <td align="left" valign="top" width=70><p><font size="-2">Bereich</p></font></td>
    <td align="middle" valign="top" width=30><p><font size="-2">Vers</p></font></
  </tr>
</table>

<!----------------- Ausgabe der Daten  -------------------->

<%
Do while not rs.EOF
%>
<br>
<table width="520" border="1" bordercolor="#66ffff" align="center" cellspacing="0" cellpadding="0" bgcolor="#003399">
<tr>
    <td align="middle" valign="top" width=20><p><font size="-2"><%=rs("Lfd")%></p></font></td>
    <td align="left" valign="top" width=80><p><font size="-2"><%=rs("Bestellnummer")%></p></font></td>
    <td align="left" valign="top" width=100><p><font size="-2"><%=rs("Serie")%></p></font></td>
    <td align="left" valign="top" width=100><p><font size="-2"><%=rs("Bezeichnung")%></p></font></td>
    <td align="left" valign="top" width=70><p><font size="-2"><%=rs("Bereich")%></p></font></td>
    <td align="middle" valign="top" width=30><p><font size="-2"><%=rs("Version")%></p></font></td>
</tr>
</table>

<% rs.MoveNext
Loop
%>

<!----------------- Neues Fenster öffnen (Formular) -------------------->

<script language="JavaScript">
<!--
function open_new_window(url)
{
new_window = window.open(url,'window_name','toolbar=0,menubar=0,resizable=0,dependent=0,status=0,width=650,height=500,left=150,top=115')
}

// -->
</script>

<!----------------- ASP Script (Preisanfrage) laden -------------------->

<form>
    <input type="image" name="Preisanfrage" src="images/preisanfrage.jpg" width="100" height="20" alt="Preisanfrage" align="absmiddle"
onClick="open_new_window('http://PC/brandneusigrench/anfrage.asp');">
</form>

<table width="520" align="center" cellspacing="0" cellpadding="0">
  <tr>
    <td width="520">
      <img src="images/line.jpg" border="0" height="1" widht="520">
    </td>
  </tr>
</table>

<!----------------- Top und Zurück -------------------->
<table width="534" align="center" cellspacing="0" cellpadding="5">
    <td width="534">
      <p align="center">
 <a href="#top">
 <img src="images/top.jpg" width="8" height="8" border="0" hspace="2">top</a> |
 <a href="javascript:history.go(-1)">
 <img src="images/zurueck.jpg" width="8" height="8" border="0" hspace="2">zurück
 </a>
      </p>
    </td>
  </tr>
</table>

</td>
  </tr>
</table>

<%
rs.Close
conn.Close
%>

</body>
</html>