Jeg kan ikke få filsendig til at virke i asp

her er hvad frontpage formularen har genereret

<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.

On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
    Err.Clear

    Set fp_conn =  Server.CreateObject("ADODB.Connection")
    FP_DumpError strErrorUrl, "Cannot create connection"

    Set fp_rs = Server.CreateObject("ADODB.Recordset")
    FP_DumpError strErrorUrl, "Cannot create record set"

    fp_conn.Open Application("streetfirepromotion3_ConnectionString")
    FP_DumpError strErrorUrl, "Cannot open database"

    fp_rs.Open "Resultater", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
    FP_DumpError strErrorUrl, "Cannot open record set"

    fp_rs.AddNew
    FP_DumpError strErrorUrl, "Cannot add new record set to the database"
    Dim arFormFields0(11)
    Dim arFormDBFields0(11)
    Dim arFormValues0(11)

    arFormFields0(0) = "Beskrivelse"
    arFormDBFields0(0) = "Beskrivelse"
    arFormValues0(0) = Request("Beskrivelse")
    arFormFields0(1) = "Postnr"
    arFormDBFields0(1) = "Postnr"
    arFormValues0(1) = Request("Postnr")
    arFormFields0(2) = "By"
    arFormDBFields0(2) = "By"
    arFormValues0(2) = Request("By")
    arFormFields0(3) = "filsending"
    arFormDBFields0(3) = "filsending"
    arFormValues0(3) = Request("filsending")
    arFormFields0(4) = "Adresse"
    arFormDBFields0(4) = "Adresse"
    arFormValues0(4) = Request("Adresse")
    arFormFields0(5) = "kodeord"
    arFormDBFields0(5) = "kodeord"
    arFormValues0(5) = Request("kodeord")
    arFormFields0(6) = "Email"
    arFormDBFields0(6) = "Email"
    arFormValues0(6) = Request("Email")
    arFormFields0(7) = "Efternavn"
    arFormDBFields0(7) = "Efternavn"
    arFormValues0(7) = Request("Efternavn")
    arFormFields0(8) = "Fornavn"
    arFormDBFields0(8) = "Fornavn"
    arFormValues0(8) = Request("Fornavn")
    arFormFields0(9) = "Telefon"
    arFormDBFields0(9) = "Telefon"
    arFormValues0(9) = Request("Telefon")
    arFormFields0(10) = "Kategori"
    arFormDBFields0(10) = "Kategori"
    arFormValues0(10) = Request("Kategori")

    FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

    If Request.ServerVariables("REMOTE_HOST") <> "" Then
        FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Navn_på_fjerncomputer"
    End If
    If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
        FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Webbrowsertype"
    End If
    FP_SaveFieldToDB fp_rs, Now, "Tidsstempel"
    If Request.ServerVariables("REMOTE_USER") <> "" Then
        FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Brugernavn"
    End If

    fp_rs.Update
    FP_DumpError strErrorUrl, "Cannot update the database"

    fp_rs.Close
    fp_conn.Close

    Session("FP_SavedFields")=arFormFields0
    Session("FP_SavedValues")=arFormValues0
    Session.CodePage = Session("FP_OldCodePage")
    Session.LCID = Session("FP_OldLCID")
    Response.Redirect "bekrside.asp"

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>

øv ingen svar