08. februar 2002 - 00:37Der 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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% ' *** 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
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.
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.