connect.execute

Forkert fejl - her er den rigtige:
Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01b6\'

Objektet understøtter ikke denne egenskab eller metode: \'Execute\'

/Asp/ItemNyWeb/asp/side_ret.asp, linje 102

Du har selvfølgelig husket denne linie.
Set Connect = Server.CreateObject(\"ADODB.Connection\")

Ja mit kald til database ser således ud:
Set connect = Server.CreateObject (\"ADODB.RecordSet\")

strDNS = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../database/item1.mdb\")

Prøv lige den her:

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../database/item1.mdb\")
Query = \"Select * FROM \" & TabelNavn & \" Where (id) = \" & Id
rs.Open Query, Connect

Den skulle kunne gøre det!

Det virker næsten. Nu kommer kaldet fra database, men når jeg indsender rettelse kommer denne fejl:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket \"(id) =\".

/Asp/ItemNyWeb/asp/side_ret.asp, linje 39

Du får her hele siden, den er måske nok lidt rodet, og hvis du finder fejlen, skal jeg nok afsætte lidt flere point.
Mogens

<%@ language = \"VBScript\" %>
<% Option Explicit%>
<!-- #include virtual=\"common/adovbs.inc\" -->
<HTML>
<HEAD>

<TITLE>Ret virksomhed</TITLE>

<META NAME=\"Author\" CONTENT=\"Mogens Kjeldsen\">
<META NAME=\"Reply-to\" CONTENT=\"mpk@email.dk\">


<%



Dim TabelNavn, Opdatering, Connect, Query, Id, felt, strDNS, rs
Tabelnavn=\"Skoler\"

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../database/item1.mdb\")

Query = \"Select * FROM \" & TabelNavn & \" Where (id) = \" & Id


If Request.ServerVariables (\"Content_Length\") <> 0 Then
id=Request.Form (\"id\")
%>

<BODY bgcolor=\"#5c7c94\" text=\'#000000\' link=\'#ffffff\' vlink=\'#ffffff\'\"
<body onload=\"java script:window.opener.location.href=\'standart.asp\'\">

<%


Set Opdatering=Server.CreateObject(\"ADODB.Recordset\")

Opdatering.Open Query, Connect, adOpenStatic, adLockOptimistic


Opdatering(\"SkoleNavn\") = Trim(Request.Form(\"SkoleNavn\"))
Opdatering(\"SkoleAdresse\") = Trim(Request.Form(\"SkoleAdresse\"))
Opdatering(\"SkolePostnr\") = Trim(Request.Form(\"SkolePostnr\"))
Opdatering(\"SkoleBy\") = Trim(Request.Form(\"SkoleBy\"))
Opdatering(\"SkoleKontakt\") = Trim(Request.Form(\"SkoleKontakt\"))
Opdatering(\"SkoleTlf\") = Trim(Request.Form(\"SkoleTlf\"))

if request(\"PC_koerekort\") = \"felt\" Then
  felt = \"true\"
else
  felt = \"false\"
end if
Opdatering(\"PC_koerekort\") = Trim(felt)

if request(\"PC-brugerudd\") = \"felt\" Then
  felt = \"true\"
else
  felt = \"false\"
end if
Opdatering(\"PC-brugerudd\") = Trim(felt)

if request(\"Testcenter\") = \"felt\" Then
  felt = \"true\"
else
  felt = \"false\"
end if
Opdatering(\"Testcenter\") = Trim(felt)

if request(\"Microsoft\") = \"felt\" Then
  felt = \"true\"
else
  felt = \"false\"
end if
Opdatering(\"Microsoft\") = Trim(felt)

if request(\"Lotus\") = \"felt\" Then
  felt = \"true\"
else
  felt = \"false\"
end if
Opdatering(\"Lotus\") = Trim(felt)

if request(\"Fjernundervisning\") = \"felt\" Then
  felt = \"true\"
else
  felt = \"false\"
end if
Opdatering(\"Fjernundervisning\") = Trim(felt)

if request(\"Klasseundervisning\") = \"felt\" Then
  felt = \"true\"
else
  felt = \"false\"
end if
Opdatering(\"Klasseundervisning\") = Trim(felt)
Opdatering(\"Andet\") = Trim(Request.Form(\"Andet\"))

Opdatering.Update


Else

Id = Request.Querystring (\"Id\")
Set Query=Connect.Execute(\"Select * From \" & TabelNavn & \" Where (id)=\" & Id & \"\")


%>

<BODY bgcolor=\"#5c7c94\" text=\"#000000\" link=\"#ffffff\" vlink=\"#ffffff\" topmargin=0 leftmargin=0 rightmargin=0>



<table cellspacing=\"0\" border=\"0\" bgcolor=\"#cfc4a0\" cellpadding=\"5\" width=\"100%\" height=\"100%\">

<tr>
    <td colspan=\"4\" height=\"20\" bgcolor=\"#000000\" align=\"center\"><font size=\"2\" face=\"verdana\" color=\"white\">
        <b>Indtast rettelser og klik send</b>
    </td>
</tr>

<form action=\"side_ret.asp\" method=\"post\">


    <td>
        <font size=\"2\" face=\"verdana\">SkoleNavn:</font>
    <TD>

    <td align=\"right\">
        <input name=\"SkoleNavn\" type=\"text\" size=\"30\" value=\"<%=Query(\"SkoleNavn\")%>\">
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Adresse:</font>
    <TD>

    <td align=\"right\">
        <input name=\"SkoleAdresse\" type=\"text\" size=\"30\" value=\"<%=Query(\"SkoleAdresse\")%>\">
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Postnr:</font>
    <TD>

    <td align=\"right\">
        <input name=\"SkolePostnr\" type=\"text\" size=\"30\" value=\"<%=Query(\"SkolePostnr\")%>\">
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">By:</font>
    <TD>

    <td align=\"right\">
        <input name=\"SkoleBy\" type=\"text\" size=\"30\" value=\"<%=Query(\"SkoleBy\")%>\">
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Kontaktperson:</font>
    <TD>

    <td align=\"right\">
        <input name=\"SkoleKontakt\" type=\"text\" size=\"30\" value=\"<%=Query(\"SkoleKontakt\")%>\">
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Tlf:</font>
    <TD>

    <td align=\"right\">
        <input name=\"SkoleTlf\" type=\"text\" size=\"30\" value=\"<%=Query(\"SkoleTlf\")%>\">
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">PC-kørekort:</font>
    <TD>


    <td align=\"left\">
        <input type=\"checkbox\" name=\"PC_koerekort\" value=\"felt\" <%If Query(\"PC_koerekort\") = true Then Response.Write \"Checked\" %>>
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">PC-brugeruddannlese:</font>
    <TD>

    <td align=\"left\">
        <input type=\"checkbox\" name=\"PC-brugerudd\" value=\"felt\" <%If Query(\"PC-brugerudd\") = true Then Response.Write \"Checked\" %>>
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Testcenter:</font>
    <TD>

    <td align=\"left\">
        <input type=\"checkbox\" name=\"Testcenter\" value=\"felt\" <%If Query(\"Testcenter\") = true Then Response.Write \"Checked\" %>>
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Microsoft:</font>
    <TD>

    <td align=\"left\">
        <input type=\"checkbox\" name=\"Microsoft\" value=\"felt\" <%If Query(\"Microsoft\") = true Then Response.Write \"Checked\" %>>
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Lotus:</font>
    <TD>

    <td align=\"left\">
        <input type=\"checkbox\" name=\"Lotus\" value=\"felt\" <%If Query(\"Lotus\") = true Then Response.Write \"Checked\" %>>
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Fjernundervisning:</font>
    <TD>

    <td align=\"left\">
        <input type=\"checkbox\" name=\"Fjernundervisning\" value=\"felt\" <%If Query(\"Fjernundervisning\") = true Then Response.Write \"Checked\" %>>
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Klasseundervisning:</font>
    <TD>

    <td align=\"left\">
        <input type=\"checkbox\" name=\"Klasseundervisning\" value=\"felt\" <%If Query(\"Klasseundervisning\") = true Then Response.Write \"Checked\" %>>
    </td>
</tr>

<tr>
    <td>
        <font size=\"2\" face=\"verdana\">Andet:</font>
    <TD>

    <td align=\"righ\">
        <input type=\"text\" name=\"Andet\" size=\"30\" value=\"<%=Query(\"Andet\")%>\">
    </td>
</tr>

<tr>
    <td colspan=\"4\">
        <div align=\"right\"><input type=\"submit\" value=\"Send\"></div>
    </td>
</tr>

<input type=\"hidden\" name=\"Id\" value=\"<%=Id%>\"
</form>

<%End If%>


</BODY>
</HTML>

Der skal ikke være ( ) udenfor id

dvs:
Query = \"Select * FROM \" & TabelNavn & \" Where id = \" & Id

Det var ikke det

Mindre rettelse :)

Prøv lige den her:

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../database/item1.mdb\")
Query = \"Select * FROM \" & TabelNavn & \" (Where id = \'\" & Id & \"\')\"
rs.Open Query, Connect

Så skulle den være der!

Så får jeg denne fejl:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i FROM-delsætningen.

/Asp/ItemNyWeb/asp/side_ret.asp, linje 24

Prøv at droppe \' så der står:

Query = \"Select * FROM \" & TabelNavn & \" (Where id = \" & Id & \")\"

samme fejl

Hvilken datatype er Id?

Man må vel gå ud fra det er autonummerering :)

Nu har jeg fundet fejlen.
Sådan var koden:
Query = \"Select * FROM \" & TabelNavn & \" Where (id) = \" & Id


If Request.ServerVariables (\"Content_Length\") <> 0 Then
id=Request.Form (\"id\")

Men sql-sætningen skulle først være, efter id=Request:
If Request.ServerVariables (\"Content_Length\") <> 0 Then
id=Request.Form (\"id\")

Query = \"Select * FROM \" & TabelNavn & \" Where id = \" & Id & \"\"

Men tak for hjælpen \"steenen\" - du får de 60 point

Det var da ikke steenen der fandt fejlen. Det var da mig der gjorde dig opmerksom på det.

Hvis manden \'chris2k\' bliver en gladere mand af pointene så giv ham dem endelig, jeg er glad for at kunne hjælpe :)

F*ck jeg hader det her sted. Jeg er virkelig ikke god til at lære fra mig. Jeg kunne ikke være mere ligeglad med de point. Bare glem det! Mit råd til folk: Søg lidt inden i spørger...i kommer til at se enormt dumme ud når man stiller mærkelige spørgsmål.

Rolig nu. Det er jo ikke alle der er lige hardcore, MEN vi har jo alle arbejdet os op igennem den favre ASP verden, så du har vel ligesom jeg og mange andre været på det stadie hvor man føler sig fortabt på et eller andet plan. Ikke så sur, vi er her vel for at lave et sted hvor alle hjælper alle! :)

Og god weekend!

//Steen

Det har jeg vel. Men jeg plejede at søge lidt på nettet, på de millioner af guides der er til asp. Og på den måde blev jeg hardcore programmør inden for det...

Jeg siger hellerikke det er jeres problem. Det er bare mig der har et problem med langsomme mennesker...