selfhtml.de - Alles für den Webmaster!

 

Empfehlung:

wix.com

Kostenlose Homepage

Besuchen Sie auch:

Jobs:

Komme nicht weiter in der Ausgabe

Autor: itwasme2001 [Beiträge: 8]
Datum: 31.08.2011 09:33:31

Guten Tag, ich gebe aus einem Formular ein Select Feld (Multiselect) weiter. Und möchte die einzelnen selektierten Werte nacheinander in einer Abfrage abarbeiten und ausgeben.... aber jedes Mal rutscht mir das Ding nach next in EOF rein:

Siehe Code.. was mache ich falsch.... habe gemerkt dass wenn ich in der SQL Abfrage Where raus nehme geht es.....
Bitte um Hilfe

kostenstelle = Request.Form("selectbox4")
Dim connselect, rsselect
Set connselect=Server.CreateObject("ADODB.Connection")
set rsselect = Server.CreateObject("ADODB.Recordset")

connselect.Mode=adModeReadWrite
connselect.ConnectionString = aConnectionString
connselect.Open
Dim kostenstellearray
kostenstellearray = Split(kostenstelle,",")
For i=0 to UBound(kostenstellearray) 'the UBound function returns 3
Response.Write kostenstellearray(i)

strSQLAnzeigen = "Select * From dbo.Kostenstelle Join dbo.Liste on dbo.Kostenstelle.Zaehler = dbo.Liste.idtext Where Kostenstelle='" & kostenstellearray(i) & "'"
   rsselect.Open strSQLAnzeigen, connselect, 3, 3


If rsselect.EOF then
'rsselect.MoveFirst
Response.write("eof")
End if



Do while not rsselect.EOF
  Response.Write("<tr>")
      Response.Write("<td onclick=window.open('Diagrammhauptcenter/diagramm/csvexport.asp?ID=" & rsselect.Fields("ID").Value & "','_blank','')>" & rsselect.Fields("Hauptcenter").Value & "</td>")
Response.Write("<td>" & rsselect.Fields("Untercenter").Value & "</td>")
  Response.Write("<td>" & rsselect.Fields("Kostenstelle").Value & "</td>")
  Response.Write("<td>" & rsselect.Fields("Bezeichnung").Value & "</td>")
Response.Write("<td>" & rsselect.Fields("Zaehler").Value & "</td>")
Response.Write("<td>" & rsselect.Fields("bezeichnung1").Value & "</td>")
  Response.Write("<td>" & rsselect.Fields("Medienart").Value & "</td>")
Response.Write("<td>" & rsselect.Fields("datum").Value & "</td>")
Response.Write("<td>" & rsselect.Fields("einheit").Value & "</td>")
Response.Write("<td>" & rsselect.Fields("tag1").Value & "</td>")
if (rsselect.Fields("tag31").Value = "") then
Response.Write("<td>" & rsselect.Fields("tag30").Value & "</td>")
Else
Response.Write("<td>" & rsselect.Fields("tag31").Value & "</td>")
End if
  Response.Write("</tr>")
rsselect.MoveNext
Loop

rsselect.Close
Next
'Response.Write("<a href=diagrammdyn/diagramm/csvexport.asp target=_blank>Diagramm</a>")
Set rsselect = Nothing

Set adoCon = Nothing


Beiträge

Antwort schreiben

Username: Usernamen registrieren
Passwort: Passwort vergessen?
Thema:
  Bitte benutze für deinen Beitrag die Groß-/Kleinschreibung!
Beitrag:
Link (URL):
Titel für Link:
Grafik (URL):
  Die Breite der Grafik darf 468 Pixel nicht überschreiten.
 
E-Mail-Benachrichtigung:



Zum Abschicken deines Beitrags bitte die Schaltfläche "Abschicken" nur einmal anklicken und warten. Der Server braucht manchmal einige Zeit, bis er den Beitrag in die Datenbank übernommen hat. Wenn du die Schaltfläche mehrmals drückst, erscheint dein Beitrag auch mehrmals im Forum.

Bewerten Sie Ihren Webhosting-Provider

Webhosting Provider bewerten und Apple iPad gewinnenWie zufrieden sind Sie mit Ihrem Webhosting-Provider? Gibt es Probleme beim Service, mit der Performance oder der Abrechnung?

Teilen Sie jetzt Ihre Erfahrungen mit anderen Webmastern und schreiben Sie eine Provider-Bewertung. Mit etwas Glück können Sie ein Apple iPad gewinnen!

Weitere Informationen und Teilnahme...