Avatar billede steen_hansen Forsker
21. maj 2002 - 22:41 Der 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.
Avatar billede steen_hansen Forsker
21. maj 2002 - 22:42 #1
Det sidste, vi nåede frem til, er dette:

<html>

<head>
<!--#include virtual="/includes/inc_header.asp"-->
<title></title>
</head>

<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

strSQL = "Insert into film(navn,reserveret) values('" & Request.Form("T1") & "','True') Where produkt='Braveheart'"
Conn.Execute(strSQL)
%>

<p>&nbsp;</p>
<p align="center"><span class="overskrift17">Lidt til en gråvejrs-weekend</span></p>
<p align="center">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="755%" class="tekst11">
            <tr>
              <td width="240">
                <p align="center"><img border="0" src="AceVentura.jpg"></td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center">Jim Carrey i<br>
                <b>
                ACE VENTURA<br>
                Når Naturen kalder</b></td>
            </tr>
          </table>
        </div>
      </td>
      <td valign="top" width="509">

<%
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
%>

If " & reserveret & " = False 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>
      <form method=POST action='default.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>"

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>
  <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>"

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='default.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>
    <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>
      " & Bruger & " har reserveret denne film.
    </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>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>
Avatar billede -master-d- Nybegynder
21. maj 2002 - 22:54 #2
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.
Avatar billede -master-d- Nybegynder
21. maj 2002 - 22:56 #3
Den fejl du havde har du stadig den ?
Avatar billede steen_hansen Forsker
21. maj 2002 - 22:56 #4
Heej master :o)

Det kunne du jo ikke vide. Håber på hjælp i aften, så jeg kan få det her ordnet. De er begyndt at rykke efter listen :o)

Vi snakkes ved
Avatar billede -master-d- Nybegynder
21. maj 2002 - 22:56 #5
Det er nemlig noget med at du skal have givet rettigheder til at der må rettes osv. har du gjort det.
Avatar billede steen_hansen Forsker
21. maj 2002 - 22:56 #6
Ja, siden kan ikke vises...
Avatar billede steen_hansen Forsker
21. maj 2002 - 22:57 #7
Givet rettigheder? Jeg er ikke helt med?
Avatar billede -master-d- Nybegynder
21. maj 2002 - 22:58 #8
Jeg er da ked af at have fået så mange point for et ikke færdigt arbejde.
Avatar billede steen_hansen Forsker
21. maj 2002 - 22:59 #9
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/
Avatar billede -master-d- Nybegynder
21. maj 2002 - 23:01 #10
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
Avatar billede -master-d- Nybegynder
21. maj 2002 - 23:03 #11
har fundet fejlen
Avatar billede -master-d- Nybegynder
21. maj 2002 - 23:04 #12
<%
If " & reserveret & " = False And " & reserveret2 & " = False Then
Response.Write "<table border=0 cellpadding=4 cellspacing=0 width=100%>
  <tr>
...............

mangler et <% tegn ellers virker det ikke
Avatar billede steen_hansen Forsker
21. maj 2002 - 23:04 #13
Kigger lige...
Avatar billede -master-d- Nybegynder
21. maj 2002 - 23:05 #14
derefter skal alle response.write linier stå i en lang linie.
så at "  "  tegnene står på samme linie

response.write "<td>rgfdgdfgfdgdfgfgdfgfdgdffdgfdgfdggdffddgfdg</td>"
Avatar billede steen_hansen Forsker
21. maj 2002 - 23:08 #15
Der er altså ikke sådan her:

If " & reserveret & " = False And " & reserveret2 & " = False Then
Response.Write "<table border=0 cellpadding=4 cellspacing=0 width=100%>
%>
Avatar billede -master-d- Nybegynder
21. maj 2002 - 23:08 #16
og en anden fejl man kan i dette tilfælde ikke lave dette

Response.Write "<table border=0 cellpadding=4 cellspacing=0 width=100%>

Da den tror 100% er et %> tegn altså slut på asp sætningen.
Avatar billede -master-d- Nybegynder
21. maj 2002 - 23:08 #17
og så er det ligemeget om det står på en linie så bare lav det om igen.
Avatar billede steen_hansen Forsker
21. maj 2002 - 23:09 #18
Ok, jeg mente heller ikke den var gangbar :o)

Men hvordan skal det så stilles op?
Avatar billede -master-d- Nybegynder
21. maj 2002 - 23:10 #19
håber det hjalp er nød til at smutte nu, vender tilbage imorgen og ser om det gik iorden.

ses steen hansen.
Avatar billede steen_hansen Forsker
21. maj 2002 - 23:10 #20
Ok. Foreløbig tak. Vi snakkes ved
Avatar billede steen_hansen Forsker
21. maj 2002 - 23:11 #21
Når du ser det her, hvad er det så du vil have, at der skal stå efter response.write?
Avatar billede -master-d- Nybegynder
22. maj 2002 - 07:48 #22
put dette ind i editoren


<html>

<head>
<!--#include virtual="/includes/inc_header.asp"-->
<title></title>
</head>

<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

strSQL = "Insert into film(navn,reserveret) values('" & Request.Form("T1") & "','True') Where produkt='Braveheart'"
Conn.Execute(strSQL)
%>

<p>&nbsp;</p>
<p align="center"><span class="overskrift17">Lidt til en gråvejrs-weekend</span></p>
<p align="center">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="755%" class="tekst11">
            <tr>
              <td width="240">
                <p align="center"><img border="0" src="AceVentura.jpg"></td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center">Jim Carrey i<br>
                <b>
                ACE VENTURA<br>
                Når Naturen kalder</b></td>
            </tr>
          </table>
        </div>
      </td>
      <td valign="top" width="509">

<%
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
%>
<%
If " & reserveret & " = False 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>
      <form method=POST action='default.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>"

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>
  <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>"

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='default.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>
    <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>
      " & Bruger & " har reserveret denne film.
    </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>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>


så tror jeg det virker.
Avatar billede steen_hansen Forsker
22. maj 2002 - 09:29 #23
Hej master, det var hurtigt :o)

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.

Jeg kigger lige koden igennem....
Avatar billede steen_hansen Forsker
22. maj 2002 - 09:40 #24
Lige til en orientering: I databasen film har jeg:

produkt - tekst (primær nøgle, Obligatorisk: nej, TilladNullængde: nej, Indekseret: Ja - ingen dubletter, UnicodeKomprimering: Ja)

navn - tekst (nej, nej, nej, ja)

reserveret - Ja/Nej (Obligatorisk: nej, Indekseret: nej)
Avatar billede steen_hansen Forsker
22. maj 2002 - 10:58 #25
master, det går fint med det første:

<html>

<head>
<!--#include virtual="/includes/inc_header.asp"-->
<title></title>
</head>

<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

strSQL = "Insert into film(navn,reserveret) values('" & Request.Form("T1") & "','True') Where produkt='Braveheart'"
Conn.Execute(strSQL)
%>

<p>&nbsp;</p>
<p align="center"><span class="overskrift17">Lidt til en gråvejrs-weekend</span></p>
<p align="center">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="755%" class="tekst11">
            <tr>
              <td width="240">
                <p align="center"><img border="0" src="AceVentura.jpg"></td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center">Jim Carrey i<br>
                <b>
                ACE VENTURA<br>
                Når Naturen kalder</b></td>
            </tr>
          </table>
        </div>
      </td>
      <td valign="top" width="509">

Det er når vi kommer videre ned i koden derfra, at det går galt.
Avatar billede -master-d- Nybegynder
22. maj 2002 - 11:54 #26
så prøv at udskift denne del af koden med det her

<%
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

rs.Close
Conn.Close
Set Conn = Nothing
%>

der var nogle småfejl
Avatar billede -master-d- Nybegynder
22. maj 2002 - 11:55 #27
ellers er response.write sætningerne den er gal med ser på senere...
Avatar billede steen_hansen Forsker
22. maj 2002 - 12:05 #28
Ok, jeg venter :o)
Avatar billede -master-d- Nybegynder
22. maj 2002 - 15:01 #29
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


men det er lidt langsomere tror jeg.

håber det virker.
Avatar billede steen_hansen Forsker
22. maj 2002 - 15:14 #30
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)
Avatar billede -master-d- Nybegynder
22. maj 2002 - 16:12 #31
med en linie eller hvad, kan jo ikke ses her da den laver ny linie hele tiden, kræver at du kopierer direkte fra eksperten og ind i en notesblok.
Avatar billede -master-d- Nybegynder
22. maj 2002 - 16:20 #32
Her er den så med kun en linie af gangen

<html>

<head>
<!--#include virtual="/includes/inc_header.asp"-->
<title></title>
</head>

<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

strSQL = "Insert into film(navn,reserveret) values('" & Request.Form("T1") & "','True') Where produkt='Braveheart'"
Conn.Execute(strSQL)
%>

<p>&nbsp;</p>
<p align="center"><span class="overskrift17">Lidt til en gråvejrs-weekend</span></p>
<p align="center">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="755%" class="tekst11">
            <tr>
              <td width="240">
                <p align="center"><img border="0" src="AceVentura.jpg"></td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center">Jim Carrey i<br>
                <b>
                ACE VENTURA<br>
                Når Naturen kalder</b></td>
            </tr>
          </table>
        </div>
      </td>
      <td valign="top" width="509">

<%
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")

rs.Close
Conn.Close
Set Conn = Nothing
%>
<%
If " & reserveret & " = False 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><form method=POST action='default.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>"

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><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>"

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='default.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><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>" & Bruger & " har reserveret denne film.</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>" & Bruger2 & " har reserveret denne film.</td></tr></table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>
Avatar billede steen_hansen Forsker
22. maj 2002 - 16:30 #33
Det virker ikke master :o(
Avatar billede -master-d- Nybegynder
22. maj 2002 - 19:26 #34
kan du ikke komme med fejlmeddelsen ? (kopier alt på siden)
Avatar billede steen_hansen Forsker
22. maj 2002 - 22:19 #35
Siden kan ikke vises
Der er problemer med den side, du prøver at åbne, og den kan ikke vises.

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

Prøv følgende:

Åbn hjemmesiden www.minside.dk, og søg efter hyperlinks, der fører til de ønskede oplysninger.
Klik på knappen  Opdater, eller prøv igen senere.

Klik på  Søg for at søge efter oplysninger på Internettet.
Du kan også se en liste over relaterede websteder.




HTTP 500 - Intern serverfejl
Internet Explorer
Avatar billede steen_hansen Forsker
22. maj 2002 - 22:20 #36
Har du mulighed for at prøve det af selv hos dig selv?
Avatar billede -master-d- Nybegynder
22. maj 2002 - 22:54 #37
ja, men den fejl plejer nemlig at komme når rettighederne ikke er angivet rigtigt.
Avatar billede -master-d- Nybegynder
22. maj 2002 - 22:56 #38
Prøv lige åben din database,
find værktøjslinien funktioner -> sikkerhed -> Bruger- og gruppetilladelser.
Her skal din bruger altså være angivet.
Avatar billede steen_hansen Forsker
23. maj 2002 - 06:42 #39
Her er brugeren Administrator, som har alle tilladelser, pånær Åbne/Køre, som er inaktiv?
Avatar billede -master-d- Nybegynder
23. maj 2002 - 11:47 #40
alt skal være tilladt for administratoren tror jeg.
Avatar billede steen_hansen Forsker
23. maj 2002 - 17:09 #41
Det er ligesådan med de andre databaser
Avatar billede -master-d- Nybegynder
23. maj 2002 - 22:31 #42
Jeg har lige lavet en søgning om den fejlmeddelse du får prøv at kigge lidt her hvis jeg ikke finder en løsning.

http://www.eksperten.dk/kat/3?q=intern+serverfejl&q_search_in=1&catid=3&order_by=0&order=1
Avatar billede steen_hansen Forsker
23. maj 2002 - 22:36 #43
Jeg kigger...
Avatar billede -master-d- Nybegynder
23. maj 2002 - 22:36 #44
Nogle mener at man skal bruge en anderledes forbindelse til databasen.

skift

Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

ud med den her

set conn = server.createobject("ADODB.connection")
    conn.Open "DBQ="& Server.MapPath("/fpdb/film.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

så tror jeg på at det virker.
Avatar billede steen_hansen Forsker
23. maj 2002 - 22:46 #45
Nøjagtigt det samme :o(
Avatar billede steen_hansen Forsker
23. maj 2002 - 22:52 #46
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?
Avatar billede -master-d- Nybegynder
23. maj 2002 - 22:54 #47
Ellers prøv med det her

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).

Det er også en af løsningerne.
Avatar billede -master-d- Nybegynder
23. maj 2002 - 22:55 #48
nej har ikke lige nået at prøve det af endnu...
Avatar billede steen_hansen Forsker
23. maj 2002 - 22:56 #49
Det er heller ikke fejlen, den har aldrig været hakket af. Det er heller ikke så holdbart :o)
Avatar billede -master-d- Nybegynder
23. maj 2002 - 22:58 #50
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...

SES
Avatar billede steen_hansen Forsker
23. maj 2002 - 23:05 #51
Ok, du må sove godt. Prøv også at fyre den af på din egen server. Jeg tror der er nogle bugs - det MÅ der jo være :o)

Vi snakkes
Avatar billede -master-d- Nybegynder
26. maj 2002 - 16:34 #52
Undskyld min fraværelse de seneste par dage, men det er jo som sagt folkeskolernes sidste skoledag så det har været en lang fest.

Men har da lige prøvet mig lidt ad og den er der snart..
(senest imorgen)

Du har måske selv fundet ud af det ?
Avatar billede steen_hansen Forsker
26. maj 2002 - 16:41 #53
Det er helt i orden, du skal ikke undskylde. Jeg er glad bare du gider hjælpe.

Nej, jeg har ikke fundet ud af det, har haft gang i andre ting. Selv om det lyder utroligt, at der skulle være et liv uden for Eksperten :o)

Venter i spænding ... :o)
Avatar billede -master-d- Nybegynder
27. maj 2002 - 14:25 #54
Så var den der lige godt

<html>

<head>
<title></title>
</head>

<body>

<%
If Request.Form("T1") > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("film.mdb")
Conn.Open DSN

Navnet = Request.Form("T1")
V1 = 1

strSQL = "Update film SET Navn = '" & Navnet & "', Reserveret = '" & V1 & "' Where produkt='Braveheart';"
Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
End If
%>

<p>&nbsp;</p>
<p align="center"><span class="overskrift17">Lidt til en gråvejrs-weekend</span></p>
<p align="center">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="755%" class="tekst11">
            <tr>
              <td width="240">
                <p align="center"><img border="0" src="AceVentura.jpg"></td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center">Jim Carrey i<br>
                <b>
                ACE VENTURA<br>
                Når Naturen kalder</b></td>
            </tr>
          </table>
        </div>
      </td>
      <td valign="top" width="509">



<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("film.mdb")
Conn.Open DSN

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...
Avatar billede steen_hansen Forsker
27. maj 2002 - 14:29 #55
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'.

/film/default.asp, line 59
Avatar billede steen_hansen Forsker
27. maj 2002 - 14:30 #56
UPS, øjeblik
Avatar billede steen_hansen Forsker
27. maj 2002 - 14:33 #57
Nej, det giver en fejl....?
Avatar billede steen_hansen Forsker
27. maj 2002 - 14:40 #58
master, jeg havde ikke fået rettet stiangivelsen til:

DSN = DSN & "DBQ=" & Server.MapPath("/fpdb/film.mdb")

Men jeg får tre kolonner nu:

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"
Avatar billede steen_hansen Forsker
27. maj 2002 - 14:43 #59
Det var meningen, at der til venstre skal være billedet af videoen.

I midten skal der være en beskrivende tekst.

I kolonnen til højre skal man kunne indtaste sit navn og trykke på knappen "Bestil filmen"
Avatar billede steen_hansen Forsker
27. maj 2002 - 14:44 #60
Og hvis jeg indtaster mit navn og trykker på knappen, kommer jeg frem til "The page cannot be found.." på adressen /film/steen.asp
Avatar billede steen_hansen Forsker
27. maj 2002 - 15:02 #61
Jeg rettede steen.asp til default.asp, og det virker nu :o)

Jeg har dog det lille problem med opsætningen...
Avatar billede -master-d- Nybegynder
27. maj 2002 - 15:17 #62
de små fejl der kan jeg godt forstå, men opsætningen er der altså ved mig
Avatar billede steen_hansen Forsker
27. maj 2002 - 15:24 #63
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?
Avatar billede steen_hansen Forsker
27. maj 2002 - 16:03 #64
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.
Avatar billede steen_hansen Forsker
27. maj 2002 - 16:14 #65
Nu skal du ikke tage dig af koden, der er KUN for at illustrere hvordan opsætningen gerne skulle se ud:

<div align="center">
    <center>
    <table border="0" cellpadding="4" cellspacing="0" width="755">
        <tr>
            <td align="center" width="33%" valign="top">AceVentura.jpg</td>
            <td width="34%" valign="top">En masse tekst (præsentation af
                filmen)</td>
            <td width="33%" valign="top">Indtast dit navn:<br>
                <form method="POST" action="default.asp">
                    <p><input type="text" name="T1" size="20"></p>
                    <p><input type="submit" value="Reserver filmen" name="B1"></p>
                </form>
            </td>
        </tr>
        <tr>
            <td align="center" width="33%" valign="top">BraveHeart.jpg</td>
            <td width="34%" valign="top">En masse tekst (præsentation af
                filmen)</td>
            <td width="33%" valign="top">Indtast dit navn:<br>
                <form method="POST" action="default.asp">
                    <p><input type="text" name="T1" size="20"></p>
                    <p><input type="submit" value="Reserver filmen" name="B1"></p>
                </form>
            </td>
        </tr>
        <tr>
            <td align="center" width="33%" valign="top">Gladiator.jpg</td>
            <td width="34%" valign="top">En masse tekst (præsentation af filmen)</td>
            <td width="33%" valign="top">Indtast dit navn:<br>
                <form method="POST" action="default.asp">
                    <p><input type="text" name="T1" size="20"></p>
                    <p><input type="submit" value="Reserver filmen" name="B1"></p>
                </form>
            </td>
        </tr>
    </table>
    </center>
</div>

Jeg føjer så selv de resterende film på.
Avatar billede -master-d- Nybegynder
27. maj 2002 - 16:46 #66
sætter du den selv sammen eller hvad ?
Avatar billede steen_hansen Forsker
27. maj 2002 - 16:52 #67
Jeg prøver at kigge det igennem. Tak for hjælpen, master :o)
Avatar billede steen_hansen Forsker
27. maj 2002 - 18:11 #68
master, alle film skal listes ud på én lang række. Jeg kan ikke rigtig gennemskue hvad det er der sker:

<html>

<!--#include virtual="/includes/inc_header.asp"-->

<body>

<%
If Request.Form("T1") > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.Open DSN

Navnet = Request.Form("T1")
V1 = 1

strSQL = "Update film SET Navn = '" & Navnet & "', Reserveret = '" & V1 & "' Where produkt='Braveheart';"
Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
End If
%>

<p>&nbsp;</p>
<p align="center"><span class="overskrift17">Lidt til en gråvejrs-weekend</span></p>
<p align="center">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="755%" class="tekst11">
            <tr>
              <td width="240">
                <p align="center"><img border="0" src="/film/AceVentura.jpg"></td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center">Jim Carrey i<br>
                <b>
                ACE VENTURA<br>
                Når Naturen kalder</b></td>
            </tr>
          </table>
        </div>
      </td>
      <td valign="top" width="509">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.Open DSN

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>"

Elseif reserveret = False AND reserveret2 = True Then
Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%' class='input'><tr><td width=250 valign=top><p align=center></td><td width=250 valign=top><span class=tekst11>Hvem vil købe filmen?</span></td><td width=255 valign=top><form method=POST action='default.asp'><p><span class='tekst11'>Indtast dit navn:</span></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><span class='tekst11'>" & Bruger2 & " har reserveret denne film.</span></td></tr></table>"

Else
Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'><tr><td width=250 valign=top><p align=center></td><td width=250 valign=top><span class='tekst11'>Jim Carrey som Ace Ventura</span></td><td width=255 valign=top><form method=POST action='default.asp'><p><span class='tekst11'>Indtast dit navn:</span></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><td width=250 valign=top><span class='tekst11'>En masse tekst</span></td><td width=255 valign=top><form method=POST action='default.asp'><p><span class=tekst11>Indtast dit navn:</span></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></table>"
End If


rs.Close
Conn.Close
Set Conn = Nothing
%>
        </td>
    </table>
</body>
</html>
Avatar billede steen_hansen Forsker
27. maj 2002 - 18:27 #69
I det her stykke benytter du HTML:

      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="755%" class="tekst11">
            <tr>
              <td width="240">
                <p align="center"><img border="0" src="/film/AceVentura.jpg"></td>
            </tr>
            <tr>
              <td width="100%">
                <p align="center">Jim Carrey i<br>
                <b>
                ACE VENTURA<br>
                Når Naturen kalder</b></td>
            </tr>
          </table>
        </div>
      </td>

Men nede i ASP'en går det lidt galt? :o) Jeg kan ikke få det til at hænge helt sammen:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.Open DSN

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>"

Elseif reserveret = False AND reserveret2 = True Then
Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%' class='input'><tr><td width=250 valign=top><p align=center></td><td width=250 valign=top><span class=tekst11>Hvem vil købe filmen?</span></td><td width=255 valign=top><form method=POST action='default.asp'><p><span class='tekst11'>Indtast dit navn:</span></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><span class='tekst11'>" & Bruger2 & " har reserveret denne film.</span></td></tr></table>"

Else
Response.Write "<table border=0 cellpadding=4 cellspacing=0 width='100%'><tr><td width=250 valign=top><p align=center></td><td width=250 valign=top><span class='tekst11'>Jim Carrey som Ace Ventura</span></td><td width=255 valign=top><form method=POST action='default.asp'><p><span class='tekst11'>Indtast dit navn:</span></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><td width=250 valign=top><span class='tekst11'>En masse tekst</span></td><td width=255 valign=top><form method=POST action='default.asp'><p><span class=tekst11>Indtast dit navn:</span></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></table>"
End If

rs.Close
Conn.Close
Set Conn = Nothing
%>
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester