Hjælp med at finde fejlene?!... v. 2

Vær ikke bange, du har eksperten.dk !    Du kan ikke opdatere et autonum-felt, som
jeg husker fra foregående spørgsmål. Det vil der heller aldrig være brug for. Så slet
blot det, der har med id at gøre, undtagen selvfølgelig i where-delen:

Sql = \"update Profil  set Odigo_navn = \'\" & Odigo_navn & \"\', Odigo_nr =\'\" & Odigo_nr & \"\', email = \'\" & email & \"\',
email_vises = \'\" & email_vises & \"\', Dit_navn =\'\" & Dit_navn & \"\', bosted=\'\" & bosted & \"\', fodt=\'\" & fodt & \"\', hjemmeside=\'\" &
hjemmeside & \"\', Nyhedsbrev=\'\" & Nyhedsbrev & \"\', tekst=\'\" & lidtom & \"\', bruger=\'\" & bruger & \"\', password = \'\" & password & \"\',
Billede=\'\" & Billede & \"\' Where id = \'\" & idnr & \"\'\"

Jamen.. det så ud til at hjælpe lidt *S*
- Nu er det bare endnu en fejl... i linie 154..
Syntaxerror i statement....
ARGHHH...
Her er koden i den fil>>

<%
idnr = request.Form(\"ID\")
Odigo_navn = request.Form(\"odigonavn\")
Odigo_nr = request.Form(\"odigonr\")
password = request.Form(\"password1\")
password2 = request.Form(\"password2\")
email = request.Form(\"email\")
email_vises = request.Form(\"vises\")
Dit_navn = request.Form(\"navn\")
bosted = request.Form(\"Bosted\")
fodt = request.Form(\"dag\") & request.Form(\"mo\") & request.Form(\"aar\")
hjemmeside = request.Form(\"hp\")
Nyhedsbrev = request.Form(\"nyhedsbrev\")
lidtom = request.Form(\"lidtom\")
bruger = request.Form(\"bruger\")
Billede = request.Form(\"Billede\")
%>
<%
if not password = password2 then
%>
<HTML>
  <HEAD>
  <TITLE>Dansk Odigo-liste</TITLE>
  <META content=\"text/html; charset=windows-1252\" http-equiv=Content-Type>
  <LINK href=\"css/base.css\" rel=Stylesheet type=text/css>
  <SCRIPT language=JavaScript type=text/javascript>

  </SCRIPT>
<BODY>
<DIV align=center>
<CENTER>
<TABLE border=0 width=\"100%\">
  <TBODY>
  <TR>
    <TD width=\"100%\">
      <P align=center>
      <CENTER><U><B><FONT face=\"Verdana, Arial, Helvetica, sans-serif\" size=4>Tilmeld dig listen </FONT>
      <BR>
      <FONT face=\"Verdana, Arial, Helvetica, sans-serif\" size=2>- og bliv en del af det danske netværk.</FONT></B></U></CENTER>
      <BR>
      <BR><B><U>Bemærk venligst</U> at de punkter med * ud for <U>SKAL</U> udfyldes..&nbsp;
      <BR>Fejl password er ikke udfyldt korrekt!!
      <BR></B>
    </TD>
  </TR>
  </TBODY>
</TABLE>
</CENTER>
</DIV><FONT face=\"Verdana, Arial, Helvetica, sans-serif\" size=2>
<!--webbot BOT=\"GeneratedScript\" PREVIEW=\" \" startspan --><script Language=\"JavaScript\"><!--
function FrontPage_Form1_Validator(theForm)
{

  var checkOK = \"0123456789-\";
  var checkStr = theForm.odigonr.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = \"\";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert(\"Skriv kun tal tegn i feltet \\\"odigonr\\\".\");
    theForm.odigonr.focus();
    return (false);
  }
    return (true);
}
//-->
</script>
<FORM action=opret.asp method=post onsubmit=\"return FrontPage_Form1_Validator(this)\" name=\"FrontPage_Form1\">
<DIV align=center>
<CENTER>
<TABLE>
  <TBODY>
  <TR>
    <TD>Dit Odigo-navn*
    <TD><INPUT class=input name=odigonavn size=30 value=<% =Odigo_navn%>>
  <TR>
    <TD>Dit Odigo-nr*
    <TD><INPUT class=input name=odigonr size=30 value=<% =Odigo_nr%>>
<TR>
    <TD>Dit Brugernavn*
    <TD><input class=input type=text name=bruger size=\"30\" value=<% =bruger%>>

  <TR>
    <TD>Dit kodeord*
    <TD><input class=input type=password name=password1 size=\"30\">

  <TR>
    <TD>Skriv dit kodeord igen*
    <TD><input class=input type=password name=password2 size=\"30\"></FONT>

  <TR>
    <TD>Din e-mail*
    <TD><INPUT class=input name=email size=30 value=<% =email%>>
  <TR>
    <TD>Må Emailen vises??*
    <TD><SELECT name=vises> <OPTION class=input selected value=NEJ>Nej, den
        er privat.</OPTION> <OPTION class=input value=JA>Ja, jeg er
        ligeglad.</OPTION></SELECT>
  <TR>
    <TD>Dit Rigtige navn
    <TD><INPUT class=input name=navn size=30value=<% =Dit_navn%>>
  <TR>
    <TD>Bosted
    <TD><INPUT class=input name=Bosted size=30 value=<% =Bosted%>>
  <TR>
    <TD>Født:
    <TD><INPUT class=input name=fodt size=30 value=<% =fodt%>>
  <TR>
    <TD>Hjemmeside:
    <TD><INPUT class=input name=hp size=30  value=<% =hjemmeside%>>
  <TR>
    <TD>Ønsker du nyhedsbrev?:*
    <TD><SELECT name=nyhedsbrev> <OPTION class=input selected value=JA>Ja
        tak</OPTION> <OPTION class=input value=NEJ>Nej tak</OPTION></SELECT>
  <TR>
    <TD>Tekst:
    <TD><TEXTAREA class=input2 cols=25 name=\"lidtom\" onfocus=this.select(); rows=10>
    <% =lidtom %>
    </TEXTAREA>
  <TR>
    <TD>
    <TD><INPUT class=button type=submit value=Tilmeld>&nbsp; <INPUT class=button type=reset value=\"Slet alt\">
</TR></TBODY></TABLE></CENTER></DIV></FORM></FONT><BR></BODY></HTML>
<%
  Else
%>
<% lidtom = Replace(lidtom, \"\'\", \"&#039;\") %>
<% lidtom = Replace(lidtom, \"\"\"\", \"&#034;\") %>
<% lidtom = Replace(lidtom, vbcrlf, \"<br>\") %>
<% lidtom = Replace(lidtom, \"æ\", \"&aelig;\") %>
<% lidtom = Replace(lidtom, \"ø\", \"&oslash;\") %>
<% lidtom = Replace(lidtom, \"å\", \"&aring;\") %>
<% lidtom = Replace(lidtom, \"Æ\", \"&AElig;\") %>
<% lidtom = Replace(lidtom, \"Ø\", \"&Oslash;\") %>
<% lidtom = Replace(lidtom, \"Å\", \"&Aring;\") %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"../database/odigoliste.mdb\")
Sql = \"update Profil  Odigo_navn = \'\" & Odigo_navn & \"\', Odigo_nr =\'\" & Odigo_nr & \"\', email = \'\" & email & \"\', email_vises = \'\" & email_vises & \"\', Dit_navn =\'\" & Dit_navn & \"\', bosted=\'\" & bosted & \"\', fodt=\'\" & fodt & \"\', hjemmeside=\'\" & hjemmeside & \"\', Nyhedsbrev=\'\" & Nyhedsbrev & \"\', tekst=\'\" & lidtom & \"\', bruger=\'\" & bruger & \"\', password = \'\" & password & \"\', Billede=\'\" & Billede & \"\' Where id = \'\" & idnr & \"\'\"
Conn.execute( Sql )
Conn.close
response.Redirect(\"../tilmel.asp\")
%>
<%
end if
%>



Fatter det ikke.. og VIL bare have den side op...
(Had gør man ikke for at virke endnu mere dum?! ;o))

havde overset din \"set\"
indsættelse af denne giver \"bare\"
Data type mismatch in criteria expression.

Har fundet det!!

Glemte at fjerne \' i den sidste idnr.....

tak igen Erik

Nu ser det hele - både opdater, ret og slet til at funke..

Nu kan jeg så starte med at knokle på alt det andet.... :o))

Tak for hjælpen Erik... Pointene er virkelig fortjent...

Annika

Dejligt du selv kan finde ud af det ;-) - med lidt starthjælp.
Det er det man lærer af.