Avatar billede pelkjaer Nybegynder
08. februar 2002 - 00:37 Der er 5 kommentarer og
1 løsning

syntaksfejl i UPDATE sætningen

Er nu stødt på et nyt problem.. :(

Mine sider virke ganske fint lige indtil jeg indsatte en "restrict acces to page".

Det virker fint nok i begyndelsen - kan ikke se siderne uden at logge på med korrekt user/pass osv. - men når jeg så submitter min form (som skriver til en accesdatabase) får jeg fejlen nævnt i sp.titel.

Den skriver at min linje 109 er forkert, men den ser sådan her ud:
MM_editCmd.Execute

Anyone?
Avatar billede pelkjaer Nybegynder
08. februar 2002 - 01:10 #1
Måske lidt kode vil hjælpe:

<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
Avatar billede tmceu Praktikant
08. februar 2002 - 08:39 #2
Kunne du ikke prøve at lave en response.write af den færdige MM_editQuery, det gør det lidt nemmere at fejlsøge.
Avatar billede pelkjaer Nybegynder
08. februar 2002 - 09:57 #3
Hvordan gør man det?
Avatar billede pelkjaer Nybegynder
08. februar 2002 - 10:02 #4
fx.
<% Response.Write("Hello World") %>

Hvor og sammen med præcist hvad indsættes det?
Avatar billede pelkjaer Nybegynder
08. februar 2002 - 10:30 #5
Problemet ligger I en "restrict acces to page" som jeg har lavet efter en tutorial. Der er en masse hiddenfields som jeg egenlig ikke ved hvad gør - så jeg startede forfra og lavede kun en session variable med MM_Username, samt et hiddenfield med <%= Session("MM_Username") %>.
Jeg undlod at lave de andre hiddenfileds (fx. en der hedder status - og det eneste varable der skulle i den var "Updated"...)

Nu ser det rent faktisk ud til at virke - hvorfor det andet ikke gjorde aner jeg desværre ikke.
Avatar billede pelkjaer Nybegynder
08. februar 2002 - 11:51 #6
Lukket.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester