21. maj 2002 - 22:41Der er
68 kommentarer og 1 løsning
Hjælp til opgave, som ikke lykkedes
Jeg fik hjælp til denne opgave, men den lykkedes ikke: http://www.eksperten.dk/spm/209416. Jeg har ikke kunnet "råbe" -master-d- op. Håber der er andre, der har mod på at tage opgaven op. Håber ikke det strider imod nogle regler. Ellers må I råbe højt.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% Sql = "Select * From film Where produkt = 'Braveheart'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Braveheart filmen) Bruger = rs("navn") reserveret = rs("reserveret")
Sql = "Select * From film Where produkt = 'Gladiator'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Gladiator filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret")
Ej det må du da helt undskylde, men jeg har ikke lige tjekket min mail i et stykke tid. Kan desværre ikke lige hjælpe lige nu da jeg ikke har tid, men hvis problemet ikke er løst inden imorgen vil jeg gerne hjælpe der.
Det skal du ikke tænke på. Du gjorde en ihærdig indsats.
Jeg tror ikke det har noget med rettigheder at gøre. Der er meget rod i koden. Hvis jeg kopierer det over i en editor (FP) og ser normalvisningen, så er der en værre gang rod :o/
hvis du nu højreklikker på db'en og går ind i egenskaber er der et faneblad der hedder sikkerhed der skal man give brugeren rettigheder, hvis du ikke har rettigheder til databasen kan du dermed hverken hente eller indsætte og for den sags skyld slet ikke opdatere databasen.
Et meget vel kendt problem, så hvis mit svar ikke virker ville jeg prøve at søge her på eksperten.dk blandt de svar der allerede er givet med fejlen HTTP 500
<% Sql = "Select * From film Where produkt = 'Braveheart'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Braveheart filmen) Bruger = rs("navn") reserveret = rs("reserveret")
Sql = "Select * From film Where produkt = 'Gladiator'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Gladiator filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret")
Hvis jeg kigger i normalvisning, ser det - næsten - fornuftigt ud nu. Jeg har to kolonner, hvoraf den første kolonne er delt op i to rækker. Men jeg får stadig "Siden kan ikke vises.
<% Sql = "Select * From film Where produkt = 'Braveheart'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Braveheart filmen) Bruger = rs("navn") reserveret = rs("reserveret")
Sql = "Select * From film Where produkt = 'Gladiator'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Gladiator filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret")
rs.Close Conn.Close Set Conn = Nothing %>
<% Sql = "Select * From film Where produkt = 'Braveheart'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Braveheart filmen) Bruger = rs("navn") reserveret = rs("reserveret")
SQL = "Select * From film Where produkt = 'Gladiator'" Set rs = Conn.Execute(SQL) If Not rs.EOF Then 'laver de 2 strenge med vores info på (til Gladiator filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End if
Hvis du forstår skal man enten lave response.write linier på en lang linie. altså, Response.Write "<table><tr><td>" & blabla & "<br><font>halleluja</font></td></tr></table>"
Og alt det skal være en lang linie
ellers kan man gøre som vist her
Else Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'>" Response.Write "<tr>" Response.Write "<td width=250 valign=top>" Response.Write "<p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>" Response.Write "<td width=250 valign=top>Hvem vil købe filmen?</td>" Response.Write "<td width=255 valign=top>" Response.Write " & Bruger & " har reserveret denne film. Response.Write " </td>" Response.Write " </tr>" Response.Write " <tr>" Response.Write " <td width=250 valign=top>" Response.Write " <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>" Response.Write " <td width=250 valign=top>En masse tekst </td>" Response.Write " <td width=255 valign=top>" Response.Write " & Bruger2 & " har reserveret denne film. Response.Write " </td>" Response.Write " </tr>" Response.Write "</table>" End If
Ok, master, kan du sætte HELE dokumentet op? Der har været så mange fejl, og for at vi er sikre på, at vi snakker om det samme, synes jeg vi skulle arbejde på den samme kode :o)
<% Sql = "Select * From film Where produkt = 'Braveheart'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Braveheart filmen) Bruger = rs("navn") reserveret = rs("reserveret") End If
Sql = "Select * From film Where produkt = 'Gladiator'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Gladiator filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret")
Jeg har tømt Temp Inet Files, genstarter browseren, holder [Ctrl] nede, mens jeg trykker [F5]. Resultatet er det samme. Kan du få det til at virke hos dig selv?
i din internet explore går du op i funktioner > internetinstillinger > Avanceret > check om der er flueben ved -hvis meddelser om uskadelige HTTP-fejl(der skal ikke være noget flueben).
har snart ikke flere gode ideer, men smutter også i seng nu, så søg endelig videre, men jeg fortsætter først imorgen for nu vil jeg simpelthen til bunds i det her mysterium...
Sql = "Select * From film Where Produkt = 'Braveheart'" Set rs = Conn.Execute(SQL) If Not rs.EOF Then 'laver de 2 strenge med vores info på (til Braveheart filmen) Bruger = rs("navn") reserveret = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'Gladiator'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Gladiator filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
If reserveret = True AND reserveret2 = True Then Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'><tr><td width=250 valign=top><p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td><td width=250 valign=top>Hvem vil købe filmen?</td><td width=255 valign=top>" & Bruger & " har reserveret denne film.</td></tr>" Response.Write "<tr><td width=250 valign=top><p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td><td width=250 valign=top>En masse tekst </td><td width=255 valign=top>" & Bruger2 & " har reserveret denne film.</td></tr></table>"
Elseif reserveret = True AND reserveret2 = False Then Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'><tr><td width=250 valign=top><p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td><td width=250 valign=top>Hvem vil købe filmen?</td><td width=255 valign=top>" & Bruger & " har reserveret denne film.</td></tr>" Response.Write "<tr><td width=250 valign=top><p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td><td width=250 valign=top>En masse tekst </td><td width=255 valign=top><form method=POST action='steen.asp'><p>Indtast dit navn:</p><p><input type=text name=T1 size=20></p><p><input type=submit value='Reserver filmen' name='B1'></p></form></td></tr></table>"
Elseif reserveret = False AND reserveret2 = True Then Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'><tr><td width=250 valign=top><p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td><td width=250 valign=top>Hvem vil købe filmen?</td><td width=255 valign=top><form method=POST action='steen.asp'><p>Indtast dit navn:</p><p><input type=text name=T1 size='20' class='input'></p><p><input type=submit value='Reserver filmen' name='B1' class='input'></p></form></td></tr><tr><td width=250 valign=top><p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>" Response.Write "<td width=250 valign=top>En masse tekst </td><td width=255 valign=top>" & Bruger2 & " har reserveret denne film.</td></tr></table>"
Else Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'><tr><td width=250 valign=top><p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td><td width=250 valign=top>Hvem vil købe filmen?</td><td width=255 valign=top><form method=POST action='steen.asp'><p>Indtast dit navn:</p><p><input type=text name=T1 size=20 class='input'></p><p><input type=submit value='Reserver filmen' name=B1></p></form></td></tr><tr><td width=250 valign=top><p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td><td width=250 valign=top>En masse tekst </td><td width=255 valign=top><form method=POST action='default.asp'><p>Indtast dit navn:</p><p><input type=text name=T1 size=20></p><p><input type=submit value='Reserver filmen' name=B1></p></form></td></tr></table>" End If
rs.Close Conn.Close Set Conn = Nothing %>
</body> </html>
Der var faktisk mange små fejl men den virker nu...
Hej master! NÆSTEN rigtig, men jeg får denne fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x8a4 Thread 0xa14 DBC 0xc03ce7c Jet'.
I den første har jeg et billede af AceVentura.jpg. Den midterste kolonne har jeg BraveHeart.jpg, og nedenunder Gladiator.jpg. I den sidste kolonne har jeg så "Hvem vil købe filmen" + Indtast dit navn Nedenunder står "En masse tekst"
Så du har billedet i kolonnen til venstre, en masse tekst i den midterste kolonne og formen/"brugernavn har reserveret denne film" i kolonnen til højre?
Når jeg kigger i FP i normalvisning, har jeg en tabel med to kolonner, hvor den første er delt op i to rækker. I den øverste i række (i den kolonne til venstre) har jeg billedet af Ace ventura.
Sql = "Select * From film Where Produkt = 'AceVentura'" Set rs = Conn.Execute(SQL) If Not rs.EOF Then 'laver de 2 strenge med vores info på (til AceVentura filmen) Bruger = rs("navn") reserveret = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'Armagedon'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Armagedon filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'BodyGuard'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til BodyGuard filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'Braveheart'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Braveheart filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'Den SjetteSans'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til DenSjetteSans filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'Gladiator'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Gladiator filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
If reserveret = True AND reserveret2 = True Then Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'><tr><td width=250 valign=top></td><td width=250 valign=top>Hvem vil købe filmen?</td><td width=255 valign=top><span class='tekst11'>" & Bruger & " har reserveret denne film.</span></td></tr>" Response.Write "<tr><td width=250 valign=top><p align=center><img border=0 src='/film/Armagedon.jpg' width=200 height=343></td><td width=250 valign=top>Jim Carrey som Ace Ventura</td><td width=255 valign=top>" & Bruger2 & " har reserveret denne film.</td></tr></table>"
Elseif reserveret = True AND reserveret2 = False Then Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%' class='tekst11'><tr><td width=250 valign=top></td><td width=250 valign=top>Hvem vil købe filmen?</td><td width=255 valign=top>" & Bruger & " har reserveret denne film.</td></tr>" Response.Write "<tr><td width=250 valign=top><p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td><td width=250 valign=top>Jim Carrey som Ace Ventura</td><td width=255 valign=top><form method=POST action='default.asp'><p>Indtast dit navn:</p><p><input type=text name=T1 size=20></p><p><input type=submit value='Reserver filmen' name='B1'></p></form></td></tr></table>"
Sql = "Select * From film Where Produkt = 'AceVentura'" Set rs = Conn.Execute(SQL) If Not rs.EOF Then 'laver de 2 strenge med vores info på (til AceVentura filmen) Bruger = rs("navn") reserveret = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'Armagedon'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Armagedon filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'BodyGuard'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til BodyGuard filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'Braveheart'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Braveheart filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'DenSjetteSans'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til DenSjetteSans filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
Sql = "Select * From film Where Produkt = 'Gladiator'" Set rs = Conn.Execute(SQL) If Not (rs.BOF Or rs.EOF) Then 'laver de 2 strenge med vores info på (til Gladiator filmen) Bruger2 = rs("navn") reserveret2 = rs("reserveret") End If
If reserveret = True AND reserveret2 = True Then Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'><tr><td width=250 valign=top></td><td width=250 valign=top>Hvem vil købe filmen?</td><td width=255 valign=top><span class='tekst11'>" & Bruger & " har reserveret denne film.</span></td></tr>" Response.Write "<tr><td width=250 valign=top><p align=center><img border=0 src='/film/Armagedon.jpg' width=200 height=343></td><td width=250 valign=top>Jim Carrey som Ace Ventura</td><td width=255 valign=top>" & Bruger2 & " har reserveret denne film.</td></tr></table>"
Elseif reserveret = True AND reserveret2 = False Then Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%' class='tekst11'><tr><td width=250 valign=top></td><td width=250 valign=top>Hvem vil købe filmen?</td><td width=255 valign=top>" & Bruger & " har reserveret denne film.</td></tr>" Response.Write "<tr><td width=250 valign=top><p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td><td width=250 valign=top>Jim Carrey som Ace Ventura</td><td width=255 valign=top><form method=POST action='default.asp'><p>Indtast dit navn:</p><p><input type=text name=T1 size=20></p><p><input type=submit value='Reserver filmen' name='B1'></p></form></td></tr></table>"
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.