Funktion

[C. Elsen]

Hallo zusammen.

Folgende Frage: Wie kann ich aus untenstehendem Skript eine Funktion machen? Geht das überhaupt? Beim Funktionsaufruf sollen die Variablen "datenbank" und "odbc" als Parameter übergeben werden. Und wie kann ich dann die Funktion aufrufen?

Oh, und btw, wie kann das Script evtl. optimiert werden?

Besten Dank im vorraus.

<%
Dim dat1
    dat1 = 20000501
Dim dat2
    dat2 = 20000527

Dim datenbank
    datenbank = "PPS5C"
Dim odbc
    odbc = "structura NOVA"

sql = "SELECT Sum(AUFTRAG.NETTOWERT) FROM " & datenbank & ".AUFTRAG AUFTRAG WHERE (AUFTRAG.RGDATUM Between " & dat1 & " And " & dat2 & ") AND (AUFTRAG.NETTOWERT<>0)"
set conn = server.CreateObject("ADODB.Connection")
conn.open odbc
set rs = conn.execute(sql)
rs.MoveFirst

Do WHILE NOT rs.EOF
   FOR EACH x in rs.fields
      response.write x.value
      test = x.value
   NEXT
   rs.MoveNext
LOOP

rs.close
set rs=nothing
conn.close
set conn=nothing
%>