Avatar billede dsjk Novice
08. januar 2002 - 23:01 Der er 9 kommentarer og
1 løsning

fejl ved update af record

på min hjemmeside har jeg gjort det muligt for medlemmerne at rette deres brugernavn, password mm.
Alle informationer bliver hentet frem fra en access database. Når man så har oprettet oplysningerne, trykker man på en submit knap, som så gemmer oplysningerne i databasen. Det virker helt ok, når jeg kører det lokalt, men så snart det kommer på nettet, kommer følgende meddelelse:

Microsoft JET Database Engine error \'80040e14\'

Syntax error in UPDATE statement.

/sikker/retmedlem.asp, line 121

linie 121 i retmedlem.asp er følgende:

      MM_editCmd.Execute


hvad er der galt?

Det skal siges at siden er lavet i Dreamweaver, og jeg har brugt deres update-halløj

dsjk

hele koden er her:

<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"../Connections/cdsj.asp\" -->
<%
\' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=\"3,1,2\"
MM_authFailedURL=\"../error.asp\"
MM_grantAccess=false
If Session(\"MM_Username\") <> \"\" Then
  If (false Or CStr(Session(\"MM_UserAuthorization\"))=\"\") Or _
        (InStr(1,MM_authorizedUsers,Session(\"MM_UserAuthorization\"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = \"?\"
  If (InStr(1,MM_authFailedURL,\"?\") >= 1) Then MM_qsChar = \"&\"
  MM_referrer = Request.ServerVariables(\"URL\")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & \"?\" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & \"accessdenied=\" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
\' check to see if fortryd button is pressed
If (Request(\"fortryd\") <>\"\") Then
    Response.Redirect(\"adminindex.asp\")
    End If
%>
<%
\' *** Edit Operations: declare variables

MM_editAction = CStr(Request(\"URL\"))
If (Request.QueryString <> \"\") Then
  MM_editAction = MM_editAction & \"?\" & Request.QueryString
End If

\' boolean to abort record edit
MM_abortEdit = false

\' query string to execute
MM_editQuery = \"\"
%>
<%
\' *** Update Record: set variables

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

  MM_editConnection = MM_cdsj_STRING
  MM_editTable = \"medlem\"
  MM_editColumn = \"medlemsnr\"
  MM_recordId = \"\" + Request.Form(\"MM_recordId\") + \"\"
  MM_editRedirectUrl = \"adminindex.asp\"
  MM_fieldsStr  = \"frm_brugernavn|value|frm_password|value|frm_navn|value|frm_adr|value|frm_postnr|value|frm_bnavn|value|frm_tlf|value|frm_mobil|value|frm_mail|value\"
  MM_columnsStr = \"brugernavn|\',none,\'\'|password|\',none,\'\'|navn|\',none,\'\'|adresse|\',none,\'\'|postnr|\',none,\'\'|bynavn|\',none,\'\'|tlf|\',none,\'\'|mobil|\',none,\'\'|email|\',none,\'\'\"

  \' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, \"|\")
  MM_columns = Split(MM_columnsStr, \"|\")
 
  \' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
    If MM_fields(i) = \"frm_tlf\" then
      If MM_fields(i+1) = \"\" Then
        MM_fields(i+1) = 0
      End If
    End If
   
  Next

  \' append the query string to the redirect URL
  If (MM_editRedirectUrl <> \"\" And Request.QueryString <> \"\") Then
    If (InStr(1, MM_editRedirectUrl, \"?\", vbTextCompare) = 0 And Request.QueryString <> \"\") Then
      MM_editRedirectUrl = MM_editRedirectUrl & \"?\" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & \"&\" & Request.QueryString
    End If
  End If

End If
%>
<%
\' *** 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
%>
<%
Dim rsMedlem__MMColParam
rsMedlem__MMColParam = \"1\"
if (Request.QueryString(\"medlemsnr\") <> \"\") then rsMedlem__MMColParam = Request.QueryString(\"medlemsnr\")
%>
<%
set rsMedlem = Server.CreateObject(\"ADODB.Recordset\")
rsMedlem.ActiveConnection = MM_cdsj_STRING
rsMedlem.Source = \"SELECT medlemsnr, titel, navn, adresse, postnr, bynavn, tlf, mobil, email, billed, brugernavn, password FROM medlem WHERE medlemsnr = \" + Replace(rsMedlem__MMColParam, \"\'\", \"\'\'\") + \"\"
rsMedlem.CursorType = 0
rsMedlem.CursorLocation = 2
rsMedlem.LockType = 3
rsMedlem.Open()
rsMedlem_numRows = 0
%>
<html><!-- #BeginTemplate \"/Templates/admin.dwt\" -->
<head>
<!-- #BeginEditable \"doctitle\" -->
<title>DSJ - Ret medlemsoplysninger</title>
<!-- #EndEditable -->
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<script language=\"JavaScript1.2\" src=\"../menu.js\" type=\"text/javascript\">
/*******************************************************************************
Copyright (c) 2001 Thomas Brattli (www.bratta.com - dhtmlcentral.com)

eXperience DHTML coolMenus - Get it at dhtmlcentral.com
Version 3.02
This script can be used freely as long as all copyright messages are
intact.
*******************************************************************************/

</script>
<style type=\"text/css\">
BODY{
  scrollbar-3d-light-color: #000000;
  scrollbar-arrow-color: #FFFFFF;
  scrollbar-base-color: #FFFFFF;
  scrollbar-dark-shadow-color: #990000;
  scrollbar-face-color: #000000;
  scrollbar-highlight-color: #000000;
  scrollbar-shadow-color: #990000;
}
</style>
<link rel=\"stylesheet\" href=\"../style.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" >
<script language=\"JavaScript1.2\" type=\"text/javascript\">
/*****************************************************************************
Default browsercheck
******************************************************************************/
function lib_bwcheck(){ //Browsercheck (needed)
    this.ver=navigator.appVersion
    this.agent=navigator.userAgent
    this.dom=document.getElementById?1:0
    this.ie5=(this.ver.indexOf(\"MSIE 5\")>-1 && this.dom)?1:0;
    this.ie6=(this.ver.indexOf(\"MSIE 6\")>-1 && this.dom)?1:0;
    this.ie4=(document.all && !this.dom)?1:0;
    this.ie=this.ie4||this.ie5||this.ie6
    this.mac=this.agent.indexOf(\"Mac\")>-1
    this.opera5=this.agent.indexOf(\"Opera 5\")>-1
    this.ns6=(this.dom && parseInt(this.ver) >= 5) ?1:0;
    this.ns4=(document.layers && !this.dom)?1:0;
    this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns4 || this.ns6 || this.opera5 || this.dom)
    return this
}
var bw=new lib_bwcheck()
mDebugging=1 //Set to 0 for NO Debugging, set to 1 for alert debugging and set to 2 for status.

//COOLMENU CODE GENERATED BY THE COOLMENU GENERATOR FROM DHTMLCENTRAL.COM
oCMenu=new makeCoolMenu(\'oCMenu\') //Making a new menu

//General variables
oCMenu.useframes=0
oCMenu.offlineUrl=\'file:///C|/Inetpub/wwwroot/coolmenu/\'
oCMenu.onlineUrl=\'http://www.dhtmlcentral.com/\'
oCMenu.useclick=0
oCMenu.useNS4links=1
oCMenu.NS4padding=2
oCMenu.checkselect=0
oCMenu.pagecheck=1
oCMenu.checkscroll=0
oCMenu.resizecheck=1
oCMenu.wait=1000
//Background bar variables
oCMenu.usebar=1
//oCMenu.barcolor=\'#FFFFFF\'
oCMenu.barwidth=\'menu\'
oCMenu.barheight=\'menu\'
oCMenu.barx=\'menu\'
oCMenu.bary=\'menu\'
//oCMenu.barinheritborder=1

//Placement variables
oCMenu.rows=1
oCMenu.fromleft=0
oCMenu.fromtop=117
oCMenu.pxbetween=0
oCMenu.menuplacement=\"center\"
//Level 0 variables
oCMenu.level[0]=new Array()
oCMenu.level[0].width=130
oCMenu.level[0].height=21
oCMenu.level[0].bgcoloroff=\'\'
oCMenu.level[0].bgcoloron=\'\'
oCMenu.level[0].textcolor=\'#FFFFFF\'
oCMenu.level[0].hovercolor=\'\'
oCMenu.level[0].style=\'font-family:arial,helvetica; font-size:12px; font-weight:bold\'
oCMenu.level[0].border=0
oCMenu.level[0].bordercolor=\'\'
oCMenu.level[0].offsetX=0
oCMenu.level[0].offsetY=0
oCMenu.level[0].NS4font=\'arial,helvetica\'
oCMenu.level[0].NS4fontSize=2
oCMenu.level[0].align=\'bottom\'
oCMenu.level[0].clip=0
oCMenu.level[0].clippx=0
oCMenu.level[0].cliptim=0
oCMenu.level[0].filter=0
//Level 1 variables
oCMenu.level[1]=new Array()
oCMenu.level[1].width=130
oCMenu.level[1].height=21
oCMenu.level[1].bgcoloroff=\'black\'
oCMenu.level[1].bgcoloron=\'\'
oCMenu.level[1].textcolor=\'#FCCE55\'
oCMenu.level[1].hovercolor=\'white\'
oCMenu.level[1].style=\'font-family:arial,helvetica; font-size:12px; font-weight:bold\'
oCMenu.level[1].border=0
oCMenu.level[1].bordercolor=\'black\'
oCMenu.level[1].offsetX=0
oCMenu.level[1].offsetY=0
oCMenu.level[1].NS4font=\'arial,helvetica\'
oCMenu.level[1].NS4fontSize=2
oCMenu.level[1].align=\'bottom\'
oCMenu.level[1].clip=0
oCMenu.level[1].clippx=0
oCMenu.level[1].cliptim=0
oCMenu.level[1].filter=0
//Level 2 variables
oCMenu.level[2]=new Array()
oCMenu.level[2].width=90
oCMenu.level[2].height=17
oCMenu.level[2].bgcoloroff=\'black\'
oCMenu.level[2].bgcoloron=\'black\'
oCMenu.level[2].textcolor=\'white\'
oCMenu.level[2].hovercolor=\'#FCCE55\'
oCMenu.level[2].style=\'font-family:arial,helvetica; font-size:12px; font-weight:bold\'
oCMenu.level[2].border=0
oCMenu.level[2].bordercolor=\'#FCCE55\'
oCMenu.level[2].offsetX=0
oCMenu.level[2].offsetY=0
oCMenu.level[2].NS4font=\'arial,helvetica\'
oCMenu.level[2].NS4fontSize=2
oCMenu.level[2].align=\'\'
oCMenu.level[2].clip=0
oCMenu.level[2].clippx=0
oCMenu.level[2].cliptim=0
oCMenu.level[2].filter=0
//Level 3 variables

//Menu items

oCMenu.makeMenu(\'menu\',\'\',\'\',\'logud.asp\',\'\',106,15,\'../menu/logudop.gif\',\'../menu/logudned.gif\',\'\',\'\',\'\')
oCMenu.makeMenu(\'menu1\',\'\',\'\',\'adminindex.asp\',\'\',93,15,\'../menu/forsideop.gif\',\'../menu/forsidened.gif\')

oCMenu.makeMenu(\'menu2\',\'\',\'\',\'admnyhed.asp\',\'\',93,15,\'../menu/nyhedop.gif\',\'../menu/nyhedned.gif\')

oCMenu.makeMenu(\'menu3\',\'\',\'\',\'vedtaegt.htm\',\'\',93,15,\'../menu/vedtaegtop.gif\',\'../menu/vedtaegtned.gif\')

oCMenu.makeMenu(\'menu4\',\'\',\'\',\'retmedlem.asp?medlemsnr=<%= Session(\"medlemsnr\") %>\',\'\',93,15,\'../menu/medlemop.gif\',\'../menu/medlemned.gif\')


oCMenu.makeMenu(\'menu5\',\'\',\'\',\'\',\'\',93,15,\'../menu/referatop.gif\',\'../menu/referatned.gif\')
    oCMenu.makeMenu(\'under1\',\'menu5\',\'<img src=\"../images/hpilhv.gif\" align=\"right\">1998\',\'\',\'\',70,14,\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\')
        oCMenu.makeMenu(\'dato\',\'under1\',\'6. November\',\'retreferat.asp?referatid=1\',\'\')
        oCMenu.makeMenu(\'dato1\',\'under1\',\'21. december\',\'retreferat.asp?referatid=2\',\'\')
       
    oCMenu.makeMenu(\'under2\',\'menu5\',\'<img src=\"../images/hpilhv.gif\" align=\"right\">1999\',\'1999\',\'\',70,14)
        oCMenu.makeMenu(\'dato2\',\'under2\',\'6. Februar\',\'retreferat.asp?referatid=3\',\'\')
        oCMenu.makeMenu(\'dato3\',\'under2\',\'19. Marts\',\'retreferat.asp?referatid=4\',\'\')
        oCMenu.makeMenu(\'dato4\',\'under2\',\'6. Juni\',\'retreferat.asp?referatid=5\',\'\')
        oCMenu.makeMenu(\'dato5\',\'under2\',\'6. August\',\'retreferat.asp?referatid=6\',\'\')
        oCMenu.makeMenu(\'dato6\',\'under2\',\'15. Oktober\',\'retreferat.asp?referatid=7\',\'\')
        oCMenu.makeMenu(\'dato7\',\'under2\',\'1 års jubilæum\',\'retreferat.asp?referatid=8\',\'\')
       
    oCMenu.makeMenu(\'under3\',\'menu5\',\'<img src=\"../images/hpilhv.gif\" align=\"right\">2000\',\'\',\'\',70,14)
        oCMenu.makeMenu(\'dato8\',\'under3\',\'15. Januar\',\'retreferat.asp?referatid=9\',\'\')
        oCMenu.makeMenu(\'dato9\',\'under3\',\'12. Maj\',\'retreferat.asp?referatid=10\',\'\')
        oCMenu.makeMenu(\'dato10\',\'under3\',\'4. August\',\'retreferat.asp?referatid=11\',\'\')
        oCMenu.makeMenu(\'dato11\',\'under3\',\'14. Oktober\',\'retreferat.asp?referatid=12\',\'\')
        oCMenu.makeMenu(\'dato12\',\'under3\',\'2 års jubilæum\',\'retreferat.asp?referatid=13\',\'\')
        oCMenu.makeMenu(\'dato13\',\'under3\',\'22. December\',\'retreferat.asp?referatid=14\',\'\')
       
    oCMenu.makeMenu(\'under4\',\'menu5\',\'<img src=\"../images/hpilhv.gif\" align=\"right\">2001\',\'\',\'\',70,14)
        oCMenu.makeMenu(\'dato14\',\'under4\',\'9. Marts\',\'retreferat.asp?referatid=15\',\'\')
        oCMenu.makeMenu(\'dato15\',\'under4\',\'23. Juni\',\'retreferat.asp?referatid=16\',\'\')
        oCMenu.makeMenu(\'dato16\',\'under4\',\'15. September\',\'retreferat.asp?referatid=17\',\'\')
        oCMenu.makeMenu(\'dato17\',\'under4\',\'3 års jubilæum\',\'retreferat.asp?referatid=18\',\'\')
        oCMenu.makeMenu(\'dato18\',\'under4\',\'21. December\',\'retreferat.asp?referatid=31\',\'\')

    oCMenu.makeMenu(\'under5\',\'menu5\',\'Tilføj referat\',\'addreferat.asp\',\'\',70,14)

oCMenu.makeMenu(\'menu6\',\'\',\'\',\'http://www.casinolux.com:7777/0lux/dan/\',\'_blank\',93,15,\'../menu/casinoop.gif\',\'../menu/casinoned.gif\')

oCMenu.makeMenu(\'menu7\',\'\',\'\',\'\',\'\',93,15,\'../menu/diverseop.gif\',\'../menu/diversened.gif\')
    oCMenu.makeMenu(\'under6\',\'menu7\',\'DSJ ud af huset\',\'udafhuset.htm\',\'\',90,14,\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\')
    oCMenu.makeMenu(\'under7\',\'menu7\',\'Støttefonden\',\'fonden.htm\',\'\',90,14,\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\')
    oCMenu.makeMenu(\'under8\',\'menu7\',\'Album\',\'album.htm\',\'\',90,14,\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\')
    oCMenu.makeMenu(\'under9\',\'menu7\',\'Links\',\'admlink.asp\',\'\',90,14,\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\')
    oCMenu.makeMenu(\'under10\',\'menu7\',\'Admin\',\'\',\'\',90,14,\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\',\'\')
        oCMenu.makeMenu(\'uu1\',\'under10\',\'Tilføj år\',\'addaar.asp\',\'\',70,14)
        oCMenu.makeMenu(\'uu2\',\'under10\',\'Rettigheder\',\'admrettig.asp\',\'\',80,14)
        oCMenu.makeMenu(\'uu3\',\'under10\',\'Ret tekst\',\'admadmindx.asp\',\'\',80,14)

oCMenu.makeStyle(); oCMenu.construct() //Starts the menus

</script>
<table width=\"100%\" border=\"0\" align=\"center\">
  <tr>
    <td>
      <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"745\" align=\"center\">
        <tr>
          <td><img src=\"../images/top.jpg\" width=\"745\" height=\"114\"></td>
        </tr>
      </table>
      <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"745\" align=\"center\">
        <tr>
          <td><!-- #BeginEditable \"skrivefelt\" class=\"textfed\" -->
            <div align=\"center\"><br>
              <br>
              <img src=\"../images/overskrifter/medlemsopl.gif\" width=\"387\" height=\"50\"><br>
              <br>
            </div>
            <form name=\"frm_medlem\" method=\"POST\" action=\"<%=MM_editAction%>\">
              <table width=\"50%\" border=\"1\" bordercolor=\"#000000\" bgcolor=\"#990000\" cellspacing=\"0\" cellpadding=\"2\" align=\"center\">
                <tr>
                  <td width=\"21%\" class=\"text\">Brugernavn:</td>
                  <td colspan=\"2\">
                    <input type=\"text\" name=\"frm_brugernavn\" value=\"<%=(rsMedlem.Fields.Item(\"brugernavn\").Value)%>\" class=\"frm_feltspc\">
                  </td>
                </tr>
                <tr>
                  <td width=\"21%\" class=\"text\">Password:</td>
                  <td colspan=\"2\">
                    <input type=\"text\" name=\"frm_password\" value=\"<%=(rsMedlem.Fields.Item(\"password\").Value)%>\" class=\"frm_feltspc\">
                  </td>
                </tr>
                <tr>
                  <td width=\"21%\" class=\"text\">Titel:</td>
                  <td colspan=\"2\" class=\"text\"><%=(rsMedlem.Fields.Item(\"titel\").Value)%> </td>
                </tr>
                <tr>
                  <td width=\"21%\" class=\"text\">Navn:</td>
                  <td colspan=\"2\">
                    <input type=\"text\" name=\"frm_navn\" value=\"<%=(rsMedlem.Fields.Item(\"navn\").Value)%>\" class=\"frm_feltspc\" size=\"35\">
                  </td>
                </tr>
                <tr>
                  <td width=\"21%\" class=\"text\">Adresse:</td>
                  <td colspan=\"2\">
                    <input type=\"text\" name=\"frm_adr\" value=\"<%=(rsMedlem.Fields.Item(\"adresse\").Value)%>\" class=\"frm_feltspc\" size=\"35\">
                  </td>
                </tr>
                <tr>
                  <td width=\"21%\" class=\"text\">postnr/by:</td>
                  <td width=\"12%\">
                    <input type=\"text\" name=\"frm_postnr\" value=\"<%=(rsMedlem.Fields.Item(\"postnr\").Value)%>\" class=\"frm_feltspc\" size=\"4\">
                  </td>
                  <td width=\"67%\">
                    <input type=\"text\" name=\"frm_bnavn\" value=\"<%=(rsMedlem.Fields.Item(\"bynavn\").Value)%>\" class=\"frm_feltspc\" size=\"27\">
                  </td>
                </tr>
                <tr>
                  <td width=\"21%\" class=\"text\">Tlf:</td>
                  <td colspan=\"2\">
                    <%
                  If (rsMedlem.Fields.Item(\"tlf\").Value = \"0\") Then
                  strBesked = rsMedlem.Fields.Item(\"tlf\").Value
                  strBesked = \"\"
                  else
                    strBesked = rsMedlem.Fields.Item(\"tlf\").Value
                  End If
                  %>
                    <input type=\"text\" name=\"frm_tlf\" class=\"frm_feltspc\" size=\"11\" value=\"<%=strBesked%>\">
                  </td>
                </tr>
                <tr>
                  <td width=\"21%\" class=\"text\">mobil:</td>
                  <td colspan=\"2\">
                    <input type=\"text\" name=\"frm_mobil\" value=\"<%=(rsMedlem.Fields.Item(\"mobil\").Value)%>\" class=\"frm_feltspc\" size=\"11\">
                  </td>
                </tr>
                <tr>
                  <td width=\"21%\" class=\"text\">E-mail:</td>
                  <td colspan=\"2\">
                    <input type=\"text\" name=\"frm_mail\" value=\"<%=(rsMedlem.Fields.Item(\"email\").Value)%>\" class=\"frm_feltspc\" size=\"35\">
                  </td>
                </tr>
                <tr>
                  <td colspan=\"3\" class=\"text\">
                    <table width=\"100%\" border=\"0\">
                      <tr>
                        <td width=\"50%\">
                          <div align=\"center\">
                            <input type=\"submit\" name=\"gem\" value=\"Gem\" class=\"knap\">
                          </div>
                        </td>
                        <td>
                          <div align=\"center\">
                            <input type=\"submit\" name=\"fortryd\" value=\"Fortryd\" class=\"knap\">
                          </div>
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
              <input type=\"hidden\" name=\"MM_update\" value=\"true\">
              <input type=\"hidden\" name=\"MM_recordId\" value=\"<%= rsMedlem.Fields.Item(\"medlemsnr\").Value %>\">
            </form>
            <!-- #EndEditable --></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
<!-- #EndTemplate --></html>
<%
rsMedlem.Close()
%>
Avatar billede cyb Nybegynder
08. januar 2002 - 23:28 #1
Det ville være lidt lettere hvis du ved hvad der står i sql strengen.
sæt dette ind lige før linjen hvor fejlen kommer:
response.write \"<br>Connection:\"& M_editConnection
response.write \"<br>SQL:\"& MM_editQuery
response.end
Så kan du se om det ser ud som det skal. jeg vil gætte på at connectionen er forkert angivet når du kommer ud på serveren.
Avatar billede dsjk Novice
08. januar 2002 - 23:35 #2
Jeg har rettet connectionen, så den dur, ellers duede ingen af asp siderne.

Jeg har sat linierne ind og connectionen er rigtig. Jeg har andre sider hvor opdatering af en record virker, det er kun denne der har problemer.

djsk
Avatar billede tmceu Praktikant
08. januar 2002 - 23:46 #3
Men det er stadig relevant at se det færdige SQL statement, det gør det nemmere at finde syntax fejlen. Det er ikke hamrende sjovt at skulle fejlfinde i 200 liniers kode :-(

Og i øvrigt så fortæller syntax fejlen også at det ikke er din connection den er gal med, for så ville du i stedet have fået en connection fejl. Syntax error opstår når du prøver at udføre dit statement i databasen.
Avatar billede dsjk Novice
08. januar 2002 - 23:52 #4
ok, her er den sql sætning jeg får ud af at sætte ovenstående linier ind:

Connection:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\web\\densortejakke.dk\\database\\dsj.mdb;

SQL:update medlem set brugernavn = \'avgodav\',password = \'nickelback\',navn = \'Kenneth Larsen\',adresse = \'Langgade 62, Kaas\',postnr = \'9490\',bynavn = \'Pandrup\',tlf = \'98240805\',mobil = \'51944141\',email = \'kl@densortejakke.dk\' where medlemsnr = 4
Avatar billede tmceu Praktikant
09. januar 2002 - 00:01 #5
Forudsat at alle felter er af typen tekst og at værdierne ikke overskrider maxlængden i de enkelte felter, kan jeg ikke se nogen fejl.

Et vildt gæt kunne være at sætte mellemrum efter alle komma\'er. Jeg oplever ind i mellem at nogle database (eller drivere) er lidt følsomme over for mellemrum.
Avatar billede dsjk Novice
09. januar 2002 - 00:16 #6
alle felter er txt felter, og ingen overskrider max længde.

Jeg har prøvet, at fjerne alle kommaer i de data som bliver læst ind og i dem som opdateres, men der kommer samme fejl.

Det er mystisk, for det ser ud som om alt er ok. Og som sagt før, jeg har andre sider, lavet på samme måde, hvor jeg også opdatere en record. uden problemer...

dsjk
Avatar billede tmceu Praktikant
09. januar 2002 - 00:19 #7
Det var ikke det jeg mente med kommaer. Jeg mente at du skulle lave mellemrum i mellem de enkelte felter

brugernavn = \'avgodav\', <- HER -> password = \'nickelback\',
Avatar billede dsjk Novice
09. januar 2002 - 00:38 #8
det hjalp ikke,
jeg må prøve at oprette en ny asp fil, hvor jeg tilføjer et felt adgangen, i håb om at finde fejlen.
men det bliver først om en 17 timer, jeg har lige noget søvn og arbejde det skal overståes først.

dsjk
Avatar billede dsjk Novice
09. januar 2002 - 18:51 #9
ok, har nu lavet en ny asp side, og har fundet ud af følgende:
Jeg kan opdatere alt i databasen undtagen passwordet.
Er det fordi det bliver låst på en eller anden måde når man logger ind????

dsjk
Avatar billede dsjk Novice
10. januar 2002 - 22:08 #10
har fundet problemet,
Password er et reserveret ord, så jeg satte [ ] om det. og så virker det.

dsjk
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