Fejl på Function ?

If Request.Form("Mode") = "Validate" Then
    Receiver = Request.Form("ReceiverEmail")
    Account = Request.Form("AccountId")
    Amount = Request.Form("Amount")
    AffText = Request.Form("AffText")
    MerText = Request.Form("MerText")

    ValidateTransferMoney Receiver, Account, Amount, AffText, MerText

    If Session("strError") = "" Then
        Session("TransferMoney") = "Validate"
        Response.Redirect("Options.asp")
    End If
End If

//>Rune

Gør dette inden du kalder din function
Dim Receiver, Account, Amount, AffText, MerText

Nej vent, lige efter If Request.Form("Mode") = "Validate" Then.

medions >> Ok det ser ud til at virke nu får jeg ingen fejl mere så mangler jeg bare lige at rette de sidste fejl til i functionen :o)

mufoxe >> Hvorfor Dim Receiver, Account, Amount, AffText, MerText ???

Det lyder jo godt :)

//>Rune

Mit gæt er at en af dine variable ikke indeholder noget. Fordi du ikke erklærer dem, får du en underlig fejl, idet dine variable i nogle tilfælde ikke eksisterer. Hvis du erklærer dem først, vil de altid eksistere, hvad enten der er indhold i din Request.Form eller ej.

Men hov nu kommer jeg slet ikke ind i Functionen hvad kan det skyldes ?

mufoxe >> hans variable eksisterer selv om man ikke Dim'er dem. Det er kun ved brug af Option Explicit at man er *nødt* til at Dim'e variable. Hvis en af hans Request.Form ikke resulterer i noget, så bliver variablen initialiseret med "" ... prøv selv:

test = Request.Form("test")
Response.Write( IsNull( test ) )

Denne vil skrive 'False' ... med andre ord, så eksisterer variablen, men den er af længde 0

/nute

Fordi din Request.Form("Mode") ikke er lig med  ="Validate"
Prøv evt. sådan her:

If LCase(Request.Form("Mode")) = "validate" Then

//>Rune

Ok prøver lige det engang

Det hjalp ikke meget

Altså der er problemet nu er at din funktion ikke bliver kald right?

Prøv at gør sådan her:


If Request.Form("Mode") = "Validate" Then
    Response.Write("<script>alert('Funktionen skulle blive kaldt nu!');</script>")
    Receiver = Request.Form("ReceiverEmail")
    Account = Request.Form("AccountId")
    Amount = Request.Form("Amount")
    AffText = Request.Form("AffText")
    MerText = Request.Form("MerText")

    ValidateTransferMoney Receiver, Account, Amount, AffText, MerText

    If Session("strError") = "" Then
        Session("TransferMoney") = "Validate"
        Response.Redirect("Options.asp")
    End If
End If

Hvis du får en alertbox op nu, så skulle det gerne virke dit script!

//>Rune

Sorry det var mig der havde en fejl på en session som gjorde at jeg ikke fik vist noget :o)

Og hvad angår det med dim så har jeg lige slået det op i min bibel og ved asp 3.0 er det kun når man bruger Option Explicit at man er tvunget ud i at skulle dim'me :o)

Men hvad bøger kan jo oxo lyve *GGG*

/Tak For Hjælpen

Måske skulle du så oxo udlevere points nu hvor du har fået problemet løst :) ?

//>Rune

Ja men det kan jeg ikke få lov der sker ikke noget når jeg klikker på accepter ?!?

ok jeg må ikke selv fordele så i må dele ned midt i :o()

må du ikke selv fordele, hvad mener du med det?

//>Rune

Når jeg prøver på at fordele point og trykker accept så sker der ikke noget

Weird, prøv at opret et spm under eksperten -> fejl med emnet!

//>Rune