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
%>

[Christian Weissengruber]

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?

Hallo auch,

aufruf aus irgendeinem script: meinefunktion mydb,myodbc
oder xx = meinefunktion (mydb,myodbc)

mydb und myodbc sollten gefüllt werden

<%
sub meinefunktion(datenbank,odbc)
dein code, wie gepostet
end sub
%>
das sollte es gewesen sein
Gruss
Christian

[C. Elsen]

Hallo auch,

aufruf aus irgendeinem script: meinefunktion mydb,myodbc
oder xx = meinefunktion (mydb,myodbc)

mydb und myodbc sollten gefüllt werden

<%
sub meinefunktion(datenbank,odbc)
dein code, wie gepostet
end sub
%>
das sollte es gewesen sein
Gruss
Christian

THX. Ich probiere es direkt aus!