Hi, hallo
fangen wir mal hier an:
-
den Aufwand mit x mal Response.Write kannst du dir bei geschickterer Programmierung sparen ... dazu später
-
du mußt dir genaue Gedanken machen, was du wann aus welchem Grund wie anzeigen willst
-
du mußt dir dazu Relationen und Bedingungen denken
-
dann mußt/wirst du sehen, welche Bereiche immer wieder das gleiche logische Schema hätten
-
dann weißt du auch, was du in eine Funktion kapseln könntest und kannst dich an die Arbeit machen, das Ding zu schreiben
....
für den einfachen Fall, daß du alle Felder einer Tabelle ausgeben willst, geht folgendes Konstrukt viel kürzer und universaler verwendbar:
sql_qr = "SELECT * FROM tbl_1"
set rs = conn.execute(sql_qr)
Do Until rs.EOF
for each feld in rs.fields
Response.Write "<b>" & feld.value & "</b>"
next
rs.moveNext
Loop
damit sollte schon deutlich werden, was du in einer Funktion kapseln kannst, nämlich die endgültige Ausgabe in HTML der Felder
nur so als Hilfe: das SQL-Statement wird sich evt. von CASE zu CASE unterscheiden, weil du andere Tabellen hast.
aber du könntest in deinem SELECT CASE den SQL-String zusammenbauen und an die Ausgabeprozedur (Funktion nur, wenn du einen Rückgabewert benötigst) übergeben, dorthin kannst du dann auch noch andere Sachen mit übergeben, die sich potentiell ändern könnten
ich hoffe, du konntest mir folgen ... dann darfst du jetzt freihändig weiterdenken
Tschau, tschüß,
Frank