Hvor bliver min side af

<%
Set RS = Server.CreateObject (\"ADODB.Recordset\")
Set objConn = Server.CreateObject(\"ADODB.Connection\")

objConn.Open strConnect
RS.Open \"Images\", objConn, 0, 1, 2

Do While Not RS.EOF
Response.Write \"<img src=\'billeder/\" & RS(\"Images\") & \".\" & RS(\"Filtype\") & \"\' border=0 width=\" & RS(\"width\") & \"&nbsp;height=\" & RS(\"height\") & \">\"

RS.Close
ObjConn.Close
Set Conn = Nothing
Set RS = Nothing

%>

Tjaaaaaaa.. på script.web-zone.dk havde vi samme problem forleden... prøv at konventere din access db til noget.... lidt nyere..så som 2000.. det virkede for os...(fatter ret meget minus af dit script - er til php) anyway..held og lykke!

Koden ser rigtig nok ud, i.f.t. at vise billederne. Jeg tror at det er placeringen af showimg.asp den er gal med. Så vidt jeg kan se, kører du lager fra /admin biblioteket og da du ikke angiver nogen sti til showimg.asp, skal den også være placeret i dette bibliotek før det virker.

Mvh
Thomas

Du kan også prøve at aktivere debugging i IIS admin, for at få lidt mere forklaring på fejlen \"HTTP 500 - Internal server error\"

Mvh
Thomas

Men jeg tror stadig problemet er placeringen af showimg.asp filen, for der kommer en 404 uanset om du prøver at kalde den direkte på hhv. http://www.mgbiler.dk/admin/showimg.asp eller http://www.mgbiler.dk/showimg.asp

Mvh
Thomas

tmceu

Degge filer ligger i samme mappe.

prøve at aktivere debugging i IIS admin ?????
Første gang jeg havde problemer var det et eller andet med IIS..........
Men nu vil de ikke hjælpe mig mere

>>>begge<<<<

I Microsoft Management Console (MMC)/IIS Admin - findes normalt i Start->Programs->NT 4 Option Pack på NT4/IIS 4, højre-klikker du på dit site og vælger fanebladet Home Directory, derefter klikker du på knappen Configuration, derefter fanebladet App Debugging og sætter kryds i feltet Enable ASP Server-Side debugging

Når du har gjort dette og kalder siden igen, vil du få en noget mere uddybende forklaring på fejlen - men husk at slå det fra igen, når du er færdig.

Mvh
Thomas

Thomas

Jeg er ked af at sige det men jeg fatter ikke hvad det er du vil have mig til.
Mine sider ligger hos Azero.dk
Jeg var tvunget til at ændre min opsætning til DB, det er der alt gik galt før det var der ingen problemer.


well_r 

Hvordan kan du se at jeg bruger Access 97 ????

susannegraumann - Jeg kan ikke se at du bruger Access 97 .. :o)
Det er bare at jeg selv har været ude for problemet med database på http://script.web-zone.dk ... jeg prøvede mig lidt frem og prøvede så at konventere database.. og vupti..så virkede det :o)
Vores side ligger også hos azero.dk :o)
Det ser ud som om at azero.dk ikke længere vil have access 97 filer liggende :o)

well_r 
Men jeg kan jo godt få billederne frem første gang,
Jeg prøvede også deres lille test. visdatabase.asp og den virked fint, jeg har godt hørt at Bill vil til at sælge SQL istedet for Access og tror på at Access snart dør på nettet, det virker ikke på nettet siger han.......

Det er jo smart først at sælge Access for det virker, når de så har solgt lidt Access så virker det ikke mere :o}

Se lige et svar jeg fik hos Azero, de henviser til eksperten.

Jeg prøver jo

Hej

Hvis du gerne vil have at vi skal kigge din kode igennem koster det
kr. 499,- per time.
Jævnfør vores prisliste <http://prisliste.azero.dk>

Du kan se yderligere hjælp til programmering på vores supportsider.
<http://azero.dk/support/> -> Programmering

Jeg vil anbefale dig at tage et kig på diverse hjælpesites.
For eksempel <http://eksperten.dk> <http://webcafe.dk> <http://builder.dk>


--
Med venlig hilsen
Lasse Bertelsen - Support - Azero.dk - http://kontakt.azero.dk
-----------------------------------------------------------------
- Priser angivet ekskl. moms - Der tages forbehold for trykfejl -
- Ved besvarelse bedes denne e-mails fulde indhold bevaret      -
- (C) Azero.dk - Gengivelse ikke tilladt uden Azero.dks accept  -
-----------------------------------------------------------------

Undskyld, jeg forstår du er forvirret - jeg troede at du havde IIS kørende på din egen NT server :-)

Det kan skyldes er konfigurationsfejl på serveren, evt. MDAC, men du kan evt. vise koden for showimg.asp, da det er denne fil der er problemer med, ikke dit lager - den virker som du selv siger korrekt.


Mvh
Thomas

Thomas

Koden til filen ligger øverst oppe her på spørgsmålet.
Jeg sender gerne alle filerne og hæver pointene til 500 hvis du mener du kan løse problemet.

Jeg har lavet siden på den måde at bilhandlerne selv skal kunne opdatere bilerne, meget brugervenligt, det er til to gutter som ikke ved hvordan man sender en mail, så det skal være brugervenligt.

Så det er ikke kun lige det du ser når du åbner siden, men som sagt er det kaldne til db.....

Kig lige på nedenstående...

objConn.Open strConnect

Her hvor du åbner din connection, bruger du variablen strConnect som connectionstring, men den kan jeg ikke se er defineret nogen steder?

RS.Open \"Images\", objConn, 0, 1, 2

Det samme gælder for her, hvor du åbner di recordset, med source=\"Images\", er det lig en tabel? Hvis du mangler din connection fra tidligere, kan det sagtens resultere i en fejl.


RS.Close
ObjConn.Close
Set Conn = Nothing
Set RS = Nothing

Du bør også ændre ovenstående til noget i stil med
if RS.State = adStateOpen then
  RS.Close
end if
if objConn.State = adStateOpen then
  ObjConn.Close
end if
Set Conn = Nothing
Set RS = Nothing

Dette forhindrer at du får en fejlmeddelelse, hvis du prøver at lukke hhv. en connection eller recordset som ikke er åbent.

Du skal inkludere filen adovbs.inc for at constanten adStateOpen virker eller selv erklære den = 1

Lige en lille indskydelse...

Hvis du vil se andet end den alm. fejl 500, kan det lade sig gøre uden at have adgang til IIS...

Det skal sættes op i din browser - i menuen \'tools - internet options\'
Her vælger du \'advanced\' og slå \'show friendly HTTP error messages\' fra...

Så får du nogle information du kan bruge til noget... :-)

... dog ser det ud til at showimg.asp findes i /admin.

Jeg får en fejl i line 22 - expected \'loop\'

Du mangler et \'loop\' til din \'do while\'-sætning

Do While Not RS.EOF
Response.Write \"<img src=\'billeder/\" & RS(\"Images\") & \".\" & RS(\"Filtype\") & \"\' border=0 width=\" & RS(\"width\") & \"&nbsp;height=\" & RS(\"height\") & \">\"
loop

Håber at det kan hjælpe dig lidt på vej...

Det er korrekt, den manglende loop har jeg helt overset.

Du må være tæt på nu :-)

... virker det da stadig ikke ?

tmceu ... sorry - det kan du jo nok ikke svare på ;-)) - var vist lige lidt for hurtig der...

Men det er jo ingen loop det skal kun vise et billede ?????????

Ja, men når du laver en do while, SKAL den afsluttes med en loop, og selv om den kun kører et gennemløb.

En lille genopfriskning af syntaksen...

Do while [betingelse]
- kode -
Loop

eller Do Until [betingelse]
- kode -
Loop

... eller

While [betingelse]
- kode -
Wend

Der er sket et eller andet med lager siden den er 100 år om at åbne.

Jeg kunne ellers godt forestille mig at der kunne være mere end et billede af hver bil - men det er der så ikke...

I så fald skal følgende linie fjernes:

Do While Not RS.EOF

Kan du prøve at poste hele \'showimg.asp\' ?

Følgende linie bliver genereret rigtig mange gange...

width=500&nbsp;height=400><img src=\'billeder/1.jpg\' border=0

Jeg mangler at kunne få det her ind et eller andet sted
--------------------------------------------------------------

strSQL = \"Select * from Images where Id = \" & Request.QueryString(\"Id\")

--------------------------------------------------------------

Her er hele showimg.asp

--------------------------------------------------------------

<html><head><!-- #include file=\"database.inc\" -->

<title>Vis billed/MGBiler</title>
</head><body>
<%
Set RS = Server.CreateObject (\"ADODB.Recordset\")
Set objConn = Server.CreateObject(\"ADODB.Connection\")

objConn.Open strConnect
RS.Open \"Images\", objConn, 0, 1, 2

Response.Write \"<img src=\'billeder/\" & RS(\"Images\") & \".\" & RS(\"Filtype\") & \"\' border=0 width=\" & RS(\"width\") & \"&nbsp;height=\" & RS(\"height\") & \">\"

RS.Close
ObjConn.Close
Set Conn = Nothing
Set RS = Nothing

%>

</body>
</html>

kan du poste \'database.inc\' også ?

Ideen er vel, at du kun vil vise billedet for den bil der er valgt, eks. showim.asp?id=20

Men i dit recordset åbner du hele tabellen - og dermed alle billeder, med flg. linie:

RS.Open \"Images\", objConn, 0, 1, 2

Du kan erstatte den med nedenstående:

strSQL = \"SELECT Images, Filtype from Images WHERE ID=\" & Request.Querystring(\"ID\")

Og derefter åbne dit recordset med

RS.Open strSQL, objConn, 0, 1, 2

Dette vil kun returnere det aktuelle billede, og så kan du undgå Do While og i stedet bruge

if not RS.EOF then
- vis billede -
end if

ovenstående er nødvendig hvis du fjerner din do, for at sikre at du har en record.

<%
  strConnect = \"Data Source=d:\\home\\mgbilerdk\\db\\demo.mdb;Provider=Microsoft.Jet.OLEDB.4.0;\"

  \' Følgende kode gør at du kan stoppe adgangen til databasen hvis du skal opdatere den.
  strUpdate = \"no\"
  If strUpdate = \"yes\" Then
    Response.Write \"<p>Siden er under opdatering. Kom tilbage om 5 minutter.</p>\"
    Response.End
    \' Alternativt kan du slette ovenstående 2 linier og istedet bruge nedenstående til at kalde en anden fil.
    \' Response.Redirect(\"index.htm\")
  End If
%>

Thomas

Er det rigtigt sådan her ??
Der må være en fejl mere for det virker ikke.
--------------------------------------------------------------

<html><head><!-- #include file=\"database.inc\" -->

<title>Vis billed/MGBiler</title>
</head><body>
<%
Set RS = Server.CreateObject (\"ADODB.Recordset\")
Set objConn = Server.CreateObject(\"ADODB.Connection\")

objConn.Open strConnect
strSQL = \"SELECT Images, Filtype from Images WHERE ID=\" & Request.Querystring(\"ID\")
  RS.Open strSQL, objConn, 0, 1, 2


if not RS.EOF then

Response.Write \"<img src=\'billeder/\" & RS(\"Images\") & \".\" & RS(\"Filtype\") & \"\' border=0 width=\" & RS(\"width\") & \"&nbsp;height=\" & RS(\"height\") & \">\"
end if

RS.Close
ObjConn.Close
Set Conn = Nothing
Set RS = Nothing

%>

</body>
</html>

Lige en kommentar til ovenstående kode, som vil give et problem hvis du bruger redirect.

<html><head><!-- #include file=\"database.inc\" -->

Da muligheden for redirect er placeret i database.inc, vil du få en fejl, fordi \"<html><head>\" allerede er sendt til browseren. Du skal i stedet anvende flg.:

<%
Response.Buffer = True
%>
<html><head><!-- #include file=\"database.inc\" -->

Du kan så også, men det er ikke nødvendigt, sende en Response.End i bunden af filen.

Derudover et lille sikkerhedstip:

.INC filer bliver ikke processet som ASP og hvis nogen kan gætte din .INC fil, vil de kunne åbne den som ren tekst i en browser. Da der typisk står brugernavn og password til eks. databaser i includefiler, er det lidt farligt. Rename din .inc fil til .ASP og inkluder den som database.asp

Mvh
Thomas

... måske sådan her...

strSQL = \"SELECT Images, Filtype from Images WHERE ID=\'\" & Request.Querystring(\"ID\") & \"\'\"

Din kode ser rigtig ud, med det forbehold at jeg ikke kender din database struktur. Fejlen indikerer at tabellen i FROM ikke er korrekt, at feltet ID ikke findes eller måske er ID et teksfelt i databasen. Kontroller dine tabel-/feltnavne og om ID er nummerisk eller tekst. Er det tekst skal den i stedet være:

strSQL = \"SELECT Images, Filtype from Images WHERE ID=\'\" & Request.Querystring(\"ID\") & \"\'\"

Mvh
Thomas

Jo den er god nok, det har jo været oppe at køre før.

Det jeg mener er, at der er forskel på om du åbner en tabel eller bruger et SQL Statement.

Hedder ID feltet \"ID\" ?
- hvis ikke skal dette ændres i WHERE ID=

Er ID feltet nummerisk eller tekst ?

Er det tekst skal du bruge den SQL sætning som både isl19960 og jeg har vist til sidst.

Mvh
Thomas

ID feltet er autonummerisk
Pogrammet er fra http://www.viewsource.dk/pop.asp?ident=asp
Imagegallery med samme db

Jeg bruger samme kald som han bruger.

Venligst vis linie 12 fra din kode

  RS.Open strSQL, objConn, 0, 1, 2

ok og så lige din strSQL linie også :-)

Men jeg sidder og ændre i den hele tiden, se lige om det stadig er linie 12

Samme fejl og linie

Check din linie 15, ny fejl

Undskyld men kan du lige prøve igen eftersom jeg har ændret i det igen

\'FROM\' fejl igen... :-)

Samme fejl som før, men nu i linie 15, det er den med felterne igen. Har du mulighed for at vise din tabeldefination?

Hvordan gør jeg det

Ja, det er vel nærmest umuligt at gøre fra Access, men noget andet du kan prøve er, at bygge din SQL sætning i Access som en query og derefter kopiere SQL sætningen over i ASP.

Har du mod på det ?

Evt. kan man via menuen \'funktioner - analyser - strukturvisning\' vælge hvilken tabel man vil ha\' en fuldstændig strukturvisning af - med alle oplysninger... :-)

Du kan også kopiere databasen til en midlertidig folder og give os http-adressen, hvis den ikke indeholder følsomme oplysninger ?

Så vil vi kunne downloade databasen og lave SQL sætningen

Det her er den kode som jeg downloadet, som virker.
Det jeg så har brug for er at kalde min Database via includ filen.

-------------------------------------------------------------

<html>

<head>
<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=iso-8859-1\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage Express 2.0\">
<title></title>
</head>

<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database.mdb\")
strSQL = \"Select * from Images where Id = \" & Request.QueryString(\"Id\")
Set RS = Conn.Execute(strSQL)

Response.Write \"<img src=\'images/\" & RS(\"Images\") & \".\" & RS(\"Filtype\") & \"\' border=0 width=\" & RS(\"Width\") & \"&nbsp;height=\" & RS(\"Height\") & \">\"


Conn.Close
Set Conn = Nothing
%>

</body>
</html>

Hvis ovenstående kode ellers virker, kan du rette følgende linie:

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

til:

Conn.Open strconnect

\'strconnect\' i database.inc (eller .asp - hvis du har fulgt tmceu\'s udemærkede råd) skal så være:

strconnect = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/demo.mdb\")

Den væsentligste forskel som jeg kan se mellem din includefil og scriptet herover, er connectionstring. Men da du allerede har en forbindelse til databasen på din lager side, tror jeg ikke det er fejlen.

Fejlen ligger stadig i din SQL sætning. Har du undersøgt tabel- og feltnavne samt datatyper som jeg foreslog ?

Nu har jeg ændret i database.inc og det giver så fejl i alle filerne

Du har glemt din loop igen :-)

Nu får jeg den første fejl, som jeg troede vi havde skaffet af vejen - \'expected loop\'

Har du sat det ind igen ???

nej ???
Der er ingen Loop på ?????

Prøv at se denne kode det er default....lager her kommer billederne op fra databasen. Hvis jeg kan få dem op her, hvorfor så ikke i showimg ???

-------------------------------------------------------------

<html>
<!-- #include file=\"database.inc\" -->

<head>
<title>Forside/lager-MGBiler.dk</title>

<SCRIPT>
<!--
function displayWindow(url,width, height)
{
var Win = window.open(url,\"displayWindow\",\'width=\' + width + \',height=\' + height + \',resizable=no,scrollbars=,menubar=no,status=no\' );
}
//-->
</SCRIPT>


</head>

<body bgcolor=\"#FFFFFF\" leftMargin=60>

<%
  Dim objConn
  Dim RS

\'Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"demo.mdb\")

Set objConn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject (\"ADODB.Recordset\")

objConn.Open strConnect
RS.Open \"Images\", objConn, 0, 1, 2

%>

<br>
<% Do While Not RS.EOF %>

<table border=\"0\" cellpadding=\"0\" cellspacing=\"4\" width=\"40%\" bgcolor=\"#FFFFFF\">
    <tr><TD WIDTH=\"25%\" VALIGN=\"TOP\" ROWSPAN=4 HEIGHT=100%><P>&nbsp;</P></TD>
        <td rowspan=\"4\" width=\"25%\">
        <A HREF=\"java script:displayWindow(\'showimg.asp?id=<%=RS(\"ID\")%>\',<%=RS(\"Width\")%>,<%=RS(\"Height\")%>)\">
        <img src=\"billeder/<%=RS(\"Images\")%>.<%=RS(\"Filtype\")%>\" height=50 width=70 border=0></a>
    </td>
    <td width=\"80%\">
        <font  size=\"1\" face=\"Tahoma\"><strong><%= RS(\"navn\")%>&nbsp;&nbsp;</strong> </font>
    </td>
    <tr>
        <td width=\"80%\" colspan=\"2\"><font size=\"1\" face=\"Tahoma\"><strong><%= RS(\"aar\")%></strong></td>
    </tr>

    <tr>
        <td width=\"80%\" colspan=\"2\"><font size=\"1\" face=\"Tahoma\"><strong><%= RS(\"tekst\")%></strong></font></td>
    </tr>
    <tr>
        <td width=\"25%\" ><font size=\"1\" face=\"Tahoma\"><strong>Km:<%= RS(\"Km\")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></td>
        <td width=\"75%\"><strong>Kroner.<FONT SIZE=\"3\" color=#000099><I><%= RS(\"kr\")%></I></FONT></strong></td>
    </tr>


      <HR width=\"75%\" color=#000099 align=left><BR>
   
</table>
<%
RS.MoveNext
Loop
RS.Close
objConn.Close
Set objConn = Nothing
Set RS = Nothing

%>
</body>
</html>

Har lige en rettelse til det jeg skrev kl. 14.15

Følgende linie:

strconnect = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/demo.mdb\")

i database.inc skal rettes til:

strconnect = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"demo.mdb\")

Undskyld !!!
Der var Loop på jeg havde fat i en gammel fil:o~

Som jeg prøvede at forklare tidligere, er der en væsentlig forskel på blot at åbne en hel tabel som du gør med \"Images\" og så at åbne et recordset med en SQL sætning. Der er også den forskel, at du kan \"nøjes\" med at åbne hele tabellen til lager siden, da den jo netop skal vise alle biler.

Når du så vil vise billedet for den enkelte bil, vil du jo netop kun hente ét billede og det gør du med SELECT o.s.v. - men her er det vigtigt at sammesætte sætningen korrekt, d.v.s. sige med de rigtige tabelnavne, feltnavne og ikke mindst datatyper i WHERE betingelsen og det er stadig min påstand at det er her problemet er.

Mvh
Thomas

Når jeg køre programmet på maskinen her hjemme med Server.MapPath, er der ingen problemer.

Du havde ikke mulighed for at lægge database et tilgængeligt sted, så vi kunne lave SQL-sætningen helt korrekt til dig ?

En ny ide, det kan også skyldes at tabel- og/eller feltnavne er reserverede ord, eks. ID. Du kan prøve at sætte [] uden om alle, så eks. ID bliver til [ID].

Så vidt jeg husker, var ID et autonummer og så skal du bruge følgende:

strSQL = \"SELECT [Images], [Filtype] from [Images] WHERE [ID]=\" & Request.Querystring(\"ID\")

Hvordan gøres det ??

Hvordan gøres hvad ?

DET VIRKER !!!!!!!!!
Hvorfor det

Nu skal vi lige huske at der skal bruges mere end de to felter der er i tmceu\'s SQL-sætning... height og width skal også med...

Jeg klikkede mig ind på maskinen og blev lige så glad :o(

Det er ikke noget problem at få de sidste felter med...

Jeg får dog stadig \'FROM\'-syntaxfejlen hvis jeg prøver...

Det virker ikke......
Jeg giver snart op, det er ikke til at forstå, hvis ikke det virkede på min maskine kunne jeg forstå det. Jeg har arbejdet på samme fejl i 2 dage, skulle man så ikke bare opgive ?????

nej - man skal aldrig give op... !!!! :-)

Kan du ikke lige give os en opdatering på om du har prøvet de sidste ting vi har foreslået ?

Hvis du har prøvet alt dette, kan jeg kun foreslå at du eks. sender din .MDB fil så vi kan se på problemet for dig, jeg er ved at løbe tør for langdistance forslag. Du kan maile på min ofir adresse TMC@ofir.dk

Mvh
Thomas

... og min mail er:  brs@mailme.dk

Det er alt det SQL der er på siderne der ikke virker, jeg kunne heller ikke få default til at virke, først da jeg slettede SQL sætningerne virkede det. Der var en tæller med og da jeg slettede den virkede siden eftersom det er alle billederne der vises.

Thomas det er ikke kun her der er problemer det er også der hvor siderne skal opdateres..
Så at du laver et kald, hvad så med alle de andre.

Jeg vil gætte på, at når vi først får lavet én rigtig SQL sætning, kan du sagtens finde ud af at rette de øvrige til

Have som faith in yourself :-)

Ja :o)

Jeg kan godt mærke at der er ikke meget selvtilid tilbage, jeg sender DB.
Jeg er tvunget til at smutte et par timer, jeg skal hente ungerne. Jeg håber at i er på senere eller i morgen ??

Min post er nu nede.

Thomas>>
Jeg fik din mail i går, men kunne ikke sende ??
Nu kan jeg heller ikke sende her fra.

Susanne >> jeg har sendt dig en række mails med spørgsmlål/kommentarer om dine sider

Tak Thomas
Nu funker det fint.
Men jeg kan ikke rigtig forstå det med Show.asp.

I show.asp udskriver du flg. linie med et manglende &

Response.Write\"<TR><TD>\" rs(\"ID\")  & \"</TD></TR>\"

Den rigtige linie er

Response.Write(\"<TR><TD>\" & rs(\"ID\") & \"</TD></TR>\")

Prøv at rette ovenstående i linie 23

Du kan lave en tæller på flg. måde:

1. Fjern flg. linier fra defauæt.asp

countSQL = \"Select Count(ID) As Count From Images\"
RS2 = Conn.Execute(countSQL)

2. Et eller andet sted på siden kan du indsætte <% =RS.RecordCount %>

- skal indsættes før du lukker dit recordset, hvilket du forresten har glemt at gøre.

Dette sparer det andet kald til databasen, ved at tælle records i det recordset du allerede har hentet. Derudover gør det koden mere overskuelig.

Det er ikke den originale fil jeg har fået sendt til dig, det må du undskylde, det er mig der har prøvet mig frem til en løsning.
Jeg har sendt filen til dig på din mail.

Den show.asp der ligger på mgbiler er ikke den samme som du har sendt mig. Prøv at uploade din egen version igen.

Er gjordt
hvordan kan du se mine filer på mgbiler ????

Det kan jeg ikke, jeg kan bare se at den linie der opstår en fejl i, ikke findes i den version af show.asp du har sendt mig = det er ikke den samme fil. Bare rolig, du er ikke blevet hacket :-)

Men lige nu har du glemt et komma i linien rs.Open \"Images\" objConn, 0, 1, 2 skal være rs.Open \"Images\", objConn, 0, 1, 2

Mvh
Thomas

Det er bare for meget (et komma)........
Hvordan ses du fejlen det ville jo være lidt bedre hvis jeg selv kunne se den slags  :-}

Det er ikke fordi jeg har noget imod at du kunne se mine filer jeg har som sagt ingen ting som jeg ikke ville dele med andre.

Du har stadig en enkelt fejl i show.asp, for uanset hvilken bil du vælger, får du data på den første. Fejlen er i linie:

strSQL = \"Select * From Images\" der skal ændres til

strSQL = \"Select * From Images WHERE [ID]=\" & Request.Querystring(\"ID\")

Prøv det.


Fejlmeddelelserne kan du se jvf. tidligere svar fra isl >>

Hvis du vil se andet end den alm. fejl 500, kan det lade sig gøre uden at have adgang til IIS...

Det skal sættes op i din browser - i menuen \'tools - internet options\'
Her vælger du \'advanced\' og slå \'show friendly HTTP error messages\' fra...

Så får du nogle information du kan bruge til noget... :-)

Så er det edit.asp

Send mig venligst din version af edit.asp

Den er sendt.

Jeg havde ikke set dit svar om Show.asp jeg prøver lige, jeg syntes bare det var så godt at jeg ikke så hvad der stod :o)

Hvad vil du med denne linie i edit.asp ?

rs.find \"ID=\" & request.querystring(\"ID\")

Jeg vil fjerne ovenstående og tilføje/rette nedenstående 2 linier:

strSQL = \"SELECT * FROM Images WHERE [ID]=\" & Request.Querystring(\"ID\")
rs.Open strSQL, strDSN, adOpenDynamic, adLockReadOnly, adCmdTable

I øvrigt lidt forslag til optimering:

inden du begynder at tildele værdierne fra RS til dine variabler, bør du kontrollere om RS er tomt. Hvis det er det, vil du få en fejl.

Ret det til noget i stil med

if not RS.EOF then
myID = rs(\"ID\")
navn = rs(\"navn\")
aar = rs(\"aar\")
tekst = rs(\"tekst\")
kr = rs(\"kr\")
Km = rs(\"Km\")
Height = rs(\"Height\")
Width = rs(\"Width\")
Images = rs(\"Images\")
Filtype = rs(\"Filtype\")
AddDate = rs(\"AddDate\")
rs.close
set rs = Nothing
else
- kode som køres hvis der ikke er data -
end if

Det kan optimeres yderligere, så du helt undgår hele kopieringen fra RS til variabler, men lad os nu få det til at virke først, så kan vi tage den bagefter.

Så virker show.asp, tillykke med det

- videre til edit.asp

Det er ikke rigtigt den giver fejl hvis et af felterne er tomt.Men det betyder vel ikke så meget, så må de bare huske at udfylde alle felterne.Man kan jo sige at alle felterne skal være udfyldt.

Det jeg mener er, at du laver en kopiering af en værdi fra eks. RS(\"ID\") til variablen myID. Dette vil gå galt, hvis dit recordset (RS) er tomt.

Helt specifikt, så er et recordset tomt når både RS.BOF og RS.EOF er = true

Hvis du laver den ændring jeg foreslog med strSQL i edit.asp, skal du have fjernet erstattet adCmdTable med adCmdText

Hvad forslår du jeg skal gøre, du må huske på at det er ikke mig selv der har lavet koderne, det er fra script.dk tror jeg.

Ret flg i edit.asp


Slet rs.find \"ID=\" & request.querystring(\"ID\")

tilføj/ret nedenstående 2 linier:

strSQL = \"SELECT * FROM Images WHERE [ID]=\" & Request.Querystring(\"ID\")
rs.Open strSQL, strDSN, adOpenDynamic, adLockReadOnly, adCmdTable

Undskyld, det skal være:

Ret flg i edit.asp


Slet rs.find \"ID=\" & request.querystring(\"ID\")

tilføj/ret nedenstående 2 linier:

strSQL = \"SELECT * FROM Images WHERE [ID]=\" & Request.Querystring(\"ID\")
rs.Open strSQL, strDSN, adOpenDynamic, adLockReadOnly, adCmdText

Det virker ikke :o(

Send mig venligst din edit.asp igen efter du har ændret den

Du har glemt at åbne din connection som du eks. gør i show.asp med

objConn.Open strConnect

derefter skal du rette nedenstående

rs.Open strSQL, strDSN, adOpenDynamic, adLockReadOnly, adCmdText

til:

rs.Open strSQL, objConn, adOpenDynamic, adLockReadOnly, adCmdText

Ja jeg er god til at lave kludder i det, jeg ved ikke ved ikke hvad jeg skulle have gjordt uden eksperten, der hvor jeg arbejder sidder jeg alene og har ingen at søge hjælp hos. Og får vi løst dette spørgsmål får du alle mine point.........
Det skal bare løses.

Hallo! Så begynder det at ligne noget...

Stort smil

Virker det hele nu ?

nej desværre jeg kan ikke gemme data\'en
det må være her i de her koder fejlen ligger.

strSQL = \"SELECT * FROM Images WHERE [ID]=\" & Request.Querystring(\"ID\")

rsSave.open strSQL,objConn, adOpenDynamic, adLockOptimistic, adCmdText

Er fundet

Hvad så nu ?

Prøv at sætte en ny bil ind.....

Hvis vi tager den først, kan vi nemlig prøve at slette bilerne for den virker heller ikke.

Er du ikke snart ved at være træt af mig.

Slet linien Do While Not rs.EOF, så er den klaret

Og så har du for mange parametre i linien

rsSave.open \"Images\",objConn, 0, 1, 2, adOpenDynamic, adLockOptimistic, adCmdTable

slet 0, 1, 2,

Ikke endnu :-)

Du skal have rettet nedenstående i delete.asp

Tilføj : <!-- #include file=\"database.asp\" -->
Tilføj : Set objConn = Server.CreateObject(\"ADODB.Connection\")
Slet : strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/admin/demo.mdb\")
Tilføj : objConn.Open strConnect
Slet: rs.Open \"Images\", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
Slet : rs.find \"ID=\" & request.querystring(\"ID\")
Slet : rs.delete
Tilføj : strSQL = \"DELETE FROM Images WHERE [ID]=\" & Request.Querystring(\"ID\")
Tilføj : objConn.Execute strSQL

Jeg kan se på de skiftende data, at du vil være helt sikker på det virker med at oprette/slette :-)

Ja det er dejligt, er det 4 dage jeg ikke har kunne finde fejlen.

Jeg er nødt til at smutte, men håber det hele er ok nu.

Hvis det er, ordner du bare det med afregningen :-)

P.S. Du kan altid vende tilbage med flere spørgsmål - point eller ej - du har jo min email adresse.

Mvh
Thomas

thomas jeg takker for hjælpen, hvis ikke du havde hjulpet min kunne jeg sidde her ved maskinen. Takker ;o)