woormsen: abfragen in funktionen packen

Beitrag lesen

Hallo zsammen, habe in meinem skript ein select case... für den unten
geposteten teil sieht dies so aus

Case "getCShopper" : response.ContentType = "text/xml"

strSQL = "SELECT * FROM CShopper;"
set rs = conn.execute(strSQL)

if not rs.eof then
Response.Write "<mc><nm>getCShopper</nm><pm>"

do while not rs.eof

Response.Write "<a>"
Response.Write "<b>" & rs.Fields("ShopperID").value & "</b>"
Response.Write "<b>" & rs.Fields("Name").value & "</b>"
Response.Write "<b>" & rs.Fields("FirstName").value & "</b>"
Response.Write "<b>" & rs.Fields("HomeAddress").value & "</b>"
Response.Write "<b>" & rs.Fields("MobilePhone").value & "</b>"
Response.Write "<b>" & rs.Fields("EMail").value & "</b>"
Response.Write "<b>" & rs.Fields("ProfiTerminalID").value & "</b>"
Response.Write "<b>" & rs.Fields("PublicKeyShopper").value & "</b>"
Response.Write "<b>" & rs.Fields("VehicleType").value & "</b>"
Response.Write "<b>" & rs.Fields("ActicePerDay").value & "</b>"
Response.Write "<b>" & rs.Fields("CapacityRestriction").value & "</b>"
Response.Write "<b>" & rs.Fields("PhoneProfiTerminal").value & "</b>"
Response.Write "<b>" & rs.Fields("TransportBoxCapacity").value & "</b>"
Response.write "</a>"
rs.movenext
loop
Response.Write "</pm></mc>"
end if

rs.close

wenn ich nun den nächsten select ..bsp. cShop habe, den ich für diesen fall auch auslese, der aber natürlich andere fields hat und auch weniger
, wie kann ich das in eine Funktion packen und aufrufen.. bin da nicht unbedingt bewandert und will das lernen...

gruss aus bayern