Mike: Daten schlaufe (loop) wird unterbrochen

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>

  1. Hallo

    Ich hab jetzt nicht das ganze Skript gelesen, aber wenn ich dich richtig verstehe hast du Probleme mit dem SQL-Query, oder? Ich würde das Teil in einer Variablen speichern und während den Tests auch in die Seite schreiben, damit du ihn überprüfen kannst. Und wieso verursacht gerade die Zeile 'vaHrs=Request...' Probleme? Wie sieht die Fehlermeldung aus? Ich würde den Inhalt der Variablen vaHrs sowieso nochmals im Skript überprüfen.

    <!----------------- 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.
    %>

    Wenn du willst kann ich dir ein kleines ASP-Skript mailen, mit welchem du SQL-Querys 'manuell' auf der DB ausprobieren kannst.

    MfG

    Tom2

    1. Hallo <--Hi TOM

      Ich hab jetzt nicht das ganze Skript gelesen, aber wenn ich dich richtig verstehe hast du Probleme mit dem SQL-Query, oder?

      <-- das ist mir leider nicht ganz klar..nehmen wir mal an der SQL String ist falsch..warum funktioniert dann die Filterung perfekt?

      Ich würde das Teil in einer Variablen speichern und während den Tests auch in die Seite schreiben, damit du ihn überprüfen kannst. Und wieso verursacht gerade die Zeile 'vaHrs=Request...' Probleme? Wie sieht die Fehlermeldung aus?
      <-- keine Fehlermeldung ... db anbindung bricht einfach ab.

      Ich würde den Inhalt der Variablen vaHrs sowieso nochmals im Skript überprüfen.

      <--Ja ein Versuch ist es doch allemal Wert..

      <!----------------- 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.
      %>

      Wenn du willst kann ich dir ein kleines ASP-Skript mailen, mit welchem du SQL-Querys 'manuell' auf der DB ausprobieren kannst.

      <-- gerne meine E-Mail ist : michael.albrecht@sigren.ch

      Gruss Mike

      MfG

      Tom2