auslesen db in asp + funktionenaufruf

[woormsen]

ok ..hier kommt mal eien frage zu nem skript --:)

habe meine xmlstrings ausgelesen und will jetzt je nach abfrageergebnis
ein select case aufrufen

also

Select Case xmlstring

Case ...
Case... bis

Case "getCShopper" :

response.ContentType = "text/xml"
strSQL = "SELECT * FROM CShopper;"
set rs = conn.execute(strSQL)
if not rs.eof then
response.write "getCShopper"
response.Write ""
do while not rs.eof
for each Feld in rs.Fields
if not Feld.Value= nullvbstring then
response.write "" & Umlaute2HTML???????(Feld.Value) & ""
else
response.write "Umlaute2HTML(0)"
end if
response.write ""
rs.movenext
loop
response.write "
end if
rs.close
Case...

Umlaute2HTML sieht so aus und ersetzt Zecihen über ASCII hinaus

function Umlaute2HTML(Text)

Dim i
for i = 0 to UBound(Umlaute) - 1
Text = Replace(Text, HTML_Umlaute(i), Umlaute(i), 1, -1)
next
end function ... Variablen sind definiert... nun meine frage ...

an welcher stelle ruf ich die auf , damit die ausgelesenen datensätze
durch die funktion gehen ...wie oben geht nicht ...bin da am peilen

• 2. frage wie kann ich beim durchgehen der schleife prüfen , ob
     die *types* auch passen , also das wenn in der db steht integer dies auch so rauskommt... diese funktionalität also in fields auslesen berücksichtigen... thanx thomas

[Rouven]

Hi,

dein Problem liegt glaube ich darin, dass du statt des Funktionsaufrufes, die Funktion in einen String schreibst. Versuch mal folgendes:
if not Feld.Value= nullvbstring then
response.write Umlaute2HTML(Feld.Value)
else
response.write Umlaute2HTML(0)
end if

Als nächstes fehlt deiner Funktion glaube ich der Rückgabewert
Function Umlaute2HTML(text)
...
Umlaute2HTML = text
End Function

Und schließlich gibt es glaube ich ein rs.fields(xxx).type das so sachen wie vbInteger, vbLong, vbText und so enthalten müsste...