Redigering af script

hvad kommer der af fejl da?

Det er fordi at jeg ikke kan oprette en bruger og tilføje min side... (Det er en søgemaskine)...
Jeg tror ikke den for kontakt til databasen.... Kan du kigge på den!

ikke gennem email - kom med fejlen og koden her...

OK!.... Jeg har ellers lige sendt den til din email!.. Så smider jeg lige koden ind til filen der opretter en ny bruger!

<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connDUclassified.asp\" -->
<%
\' *** 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 = \"\"
%>
<%
\' *** Redirect if username exists
MM_flag=\"MM_insert\"
If (CStr(Request(MM_flag)) <> \"\") Then
  MM_dupKeyRedirect=\"duplicatedID.asp\"
  MM_rsKeyConnection=MM_connDUclassified_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form(\"U_ID\"))
  MM_dupKeySQL=\"SELECT U_ID FROM USERS WHERE U_ID=\'\" & MM_dupKeyUsernameValue & \"\'\"
  MM_adodbRecordset=\"ADODB.Recordset\"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection = \"Driver={Microsoft Access Driver (*.mdb)}; dbq=\" & server.mappath(\"database/DUclassified.mdb\")
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
    \' the username was found - can not add the requested username
    MM_qsChar = \"?\"
    If (InStr(1,MM_dupKeyRedirect,\"?\") >= 1) Then MM_qsChar = \"&\"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & \"requsername=\" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>
<%
\' *** Insert Record: set variables

If (CStr(Request(\"MM_insert\")) <> \"\") Then

  MM_editConnection = MM_connDUclassified_STRING
  MM_editTable = \"USERS\"
  MM_editRedirectUrl = \"myAds.asp\"
  MM_fieldsStr  = \"U_ID|value|U_PASSWORD|value|U_FIRST|value|U_LAST|value|U_ADDRESS|value|U_CITY|value|U_STATE|value|U_ZIP|value|U_EMAIL|value|U_PHONE|value|U_FAX|value\"
  MM_columnsStr = \"U_ID|\',none,\'\'|U_PASSWORD|\',none,\'\'|U_FIRST|\',none,\'\'|U_LAST|\',none,\'\'|U_ADDRESS|\',none,\'\'|U_CITY|\',none,\'\'|U_STATE|\',none,\'\'|U_ZIP|none,none,NULL|U_EMAIL|\',none,\'\'|U_PHONE|\',none,\'\'|U_FAX|\',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)))
  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
%>
<%
\' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request(\"MM_insert\")) <> \"\") Then

  \' create the sql insert statement
  MM_tableValues = \"\"
  MM_dbValues = \"\"
  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_tableValues = MM_tableValues & \",\"
      MM_dbValues = MM_dbValues & \",\"
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = \"insert into \" & MM_editTable & \" (\" & MM_tableValues & \") values (\" & MM_dbValues & \")\"

  If (Not MM_abortEdit) Then
    \' execute the insert
    Set MM_editCmd = Server.CreateObject(\"ADODB.Command\")
    MM_editCmd.ActiveConnection = \"Driver={Microsoft Access Driver (*.mdb)}; dbq=\" & server.mappath(\"database/DUclassified.mdb\")
    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
%>
<html>
<head>
<title>DUclassified</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"css/css.css\" type=\"text/css\">
<script language=\"JavaScript\">
<!--
function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors=\'\',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!=\"\") {
      if (test.indexOf(\'isEmail\')!=-1) { p=val.indexOf(\'@\');
        if (p<1 || p==(val.length-1)) errors+=\'- \'+nm+\' must contain an e-mail address.\\n\';
      } else if (test!=\'R\') {
        if (isNaN(val)) errors+=\'- \'+nm+\' must contain a number.\\n\';
        if (test.indexOf(\'inRange\') != -1) { p=test.indexOf(\':\');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+=\'- \'+nm+\' must contain a number between \'+min+\' and \'+max+\'.\\n\';
    } } } else if (test.charAt(0) == \'R\') errors += \'- \'+nm+\' is required.\\n\'; }
  } if (errors) alert(\'The following error(s) occurred:\\n\'+errors);
  document.MM_returnValue = (errors == \'\');
}
//-->
</script>
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td align=\"left\" valign=\"top\" bgcolor=\"#009999\" width=\"268\"><img src=\"assets/title.gif\" width=\"268\" height=\"60\"></td>
    <td align=\"right\" valign=\"top\" bgcolor=\"#009999\"><img src=\"assets/title_image.gif\" width=\"469\" height=\"60\"></td>
  </tr>
  <tr>
    <td align=\"left\" valign=\"top\" colspan=\"2\"><img src=\"assets/horizontalBar.gif\" width=\"100%\" height=\"1\"></td>
  </tr>
  <tr>
    <td align=\"left\" valign=\"top\" bgcolor=\"#00CC99\" colspan=\"2\">
      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr align=\"left\" valign=\"middle\">
          <td>
            <div class = \"toolbar\">&nbsp;&nbsp;<font color=\"#FFFFFF\" size=\"1\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\"><a href=\"default.asp\">HOME</a>
              | <a href=\"placeAnAd.asp\"> PLACE AN AD</a> | <a href=\"myAds.asp\">MANAGE
              YOUR ADS</a> | <a href=\"register.asp\">REGISTER</a></font></b></font></div>
          </td>
          <form name=\"form1\" method=\"post\" action=\"search.asp\">
            <td align=\"right\"> <b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\">SEARCH</font></b>
              <input type=\"text\" name=\"KEYWORD\" size=\"15\" class = \"fields\">
              <input type=\"submit\" name=\"Submit\" value=\"Go\" class = \"buttons\">
              &nbsp;</td>
          </form>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align=\"left\" valign=\"top\" colspan=\"2\"><img src=\"assets/horizontalBar.gif\" width=\"100%\" height=\"1\"></td>
  </tr>
  <tr align=\"center\">
    <td valign=\"top\" colspan=\"2\">&nbsp; </td>
  </tr>
  <tr align=\"center\">
    <td valign=\"top\" colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b><font color=\"#FF0000\">Register
      to place your ads on our Website. <br>
      Please fill out the form below. All fields are required except Fax Number.</font></b></font></td>
  </tr>
  <tr align=\"center\">
    <td valign=\"top\" colspan=\"2\">
      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td align=\"center\" valign=\"middle\">&nbsp;
            <form method=\"post\" action=\"<%=MM_editAction%>\" name=\"form2\">
              <table align=\"center\" cellpadding=\"3\" cellspacing=\"5\">
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">ID:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_ID\" value=\"\" size=\"20\" maxlength=\"10\">
                    <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#CCCCCC\">(max
                    10)</font></td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">PASSWORD:</font></b></td>
                  <td>
                    <input type=\"password\" name=\"U_PASSWORD\" value=\"\" size=\"20\" maxlength=\"10\">
                    <font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#CCCCCC\">(max
                    10)</font></td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">FIRST:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_FIRST\" value=\"\" size=\"50\">
                  </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">LAST:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_LAST\" value=\"\" size=\"50\">
                  </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">ADDRESS:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_ADDRESS\" value=\"\" size=\"60\">
                  </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">CITY/TOWN:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_CITY\" value=\"\" size=\"32\">
                  </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">STATE/PROVINCE:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_STATE\" value=\"\" size=\"15\">
                  </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">ZIP/POSTAL:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_ZIP\" value=\"\" size=\"10\">
                  </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">EMAIL:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_EMAIL\" value=\"\" size=\"40\">
                  </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">PHONE:</font></b></td>
                  <td>
                    <input type=\"text\" name=\"U_PHONE\" value=\"\" size=\"15\" maxlength=\"15\">
                  </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#009999\">FAX:</font></b></td>
                  <td> <font size=\"1\"> <i> <font face=\"Verdana, Arial, Helvetica, sans-serif\">
                    <input type=\"text\" name=\"U_FAX\" value=\"\" size=\"15\" maxlength=\"15\">
                    (Optional)</font></i></font> </td>
                </tr>
                <tr valign=\"baseline\">
                  <td nowrap align=\"right\">&nbsp;</td>
                  <td>
                    <input type=\"submit\" value=\"Register\" onClick=\"MM_validateForm(\'U_ID\',\'\',\'R\',\'U_FIRST\',\'\',\'R\',\'U_LAST\',\'\',\'R\',\'U_ADDRESS\',\'\',\'R\',\'U_CITY\',\'\',\'R\',\'U_STATE\',\'\',\'R\',\'U_ZIP\',\'\',\'R\',\'U_EMAIL\',\'\',\'RisEmail\',\'U_PHONE\',\'\',\'R\',\'U_PASSWORD\',\'\',\'R\');return document.MM_returnValue\">
                  </td>
                </tr>
              </table>
              <input type=\"hidden\" name=\"MM_insert\" value=\"true\">
            </form>
            <p>&nbsp;</p>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>

Kan du se hvad fejlen er?

jeg prøver for tredie gang... hvad sker der af fejl?

Den redirecter bare til register.asp... og så kommer den fejlen... \"Siden kan ikke vises\"

En Intern HTTP 500-serverfejl

gør dette

Tools>Internet Options>Advanced>Uncheck \"Show friendly HTTP-errors\"
Funktioner>Internet Instillinger>Avanceret>Fjern kryds i \"Vis uskadelige HTTP-fejl\"

og fortæl mig så hvad der er af fejl

Så får jeg en anden fejl... Der står..
Microsoft OLE DB Provider for ODBC Drivers error \'80040e10\'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/gismosny/register.asp, line 116

hvad er linie 110-120?

Vil det ikke være nemmere hvis ejg sendte scriptet til dig over email... Så kan du jo bare senere skrive den nye kode ind på eksperten, hvis det er pga. ekspertens regler!

det er det skam ikke... gider bare ikke kigge så meget kode igennem når det ikke er mit eget...

fejlen er formentlig noget i retning af; du mangler et set ´ eller du har et sæt ´ for meget eller du forsøger at indsætte en tom værdi i databasen

Er der andre der vil prøve, eller skal jeg bare lukke for spørgsmålet?

Men jeg har seriøst brug for hjælp!

HJÆLP!!!

hvad er linie 110-120?