IF ... THEN .... eller hvad skal der til?

Du bliver sq nok nød til at fortælle lidt mere om dit projekt?? - har du tænkt dig at gemme reservationerne i en database eller?

Ja, så de andre kan se hvad der er tilbage.

Når én har indtastet sit navn og trykket på submit-knappen, skal teksten "Yvonne har reserveret denne film" erstatte textfeltet og submit-knappen. Men de andre skal kunne reservere de øvrige film.

I din database laver du en række hvor man kan se om produktet er reserveret(ja/nej boks), du skal også på en eller anden måde lave et sted hvor brugeren indikeres (i databasen).

Så kan du lave en IF-funktion der ser sådan her ud :
'rs(reserveret) er ja/nej boksen
'rs(brugeren) er den måde du nu indikerer brugeren på
If rs("reserveret") = False Then
Response.Write "<input type=text name=tekstboks><input type=submit value=klik name=submit>"
Elseif rs("reserveret") = True Then
Response.Write "<font>"Varen er reserveret af " & rs("bruger") & "<font>"
End If

Sådan kan du lave det.

Ok, men SQL-sætningen? Hvordan skal det stilles op?

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

SQL = "SELECT * FROM film"

Set RS = Conn.Execute( SQL )

If rs("reserveret") = False Then
Response.Write "<input type=text name=tekstboks><input type=submit value=klik name=submit>"
Elseif rs("reserveret") = True Then
Response.Write "Filmen er reserveret af " & rs("navn")& ""
End If

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Og denne linie?

Response.Write "Filmen er reserveret af " & rs("navn")& ""

linien
Response.Write "Filmen er reserveret af " & rs("navn")& ""
er bare lavet så du kan se hvilken bruger(navnet på personen) som har reserveret filmen.

Ok, men det her (se venligst det hele igennem for fejl/mangler):

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

SQL = "SELECT * FROM film"

Set RS = Conn.Execute( SQL )

If rs("reserveret") = False Then
Response.Write "<input type=text name=tekstboks><input type=submit value=klik name=submit>"
Elseif rs("reserveret") = True Then
Response.Write "Filmen er reserveret af " & rs("navn")& ""
End If

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Jeg får denne fejlmeddelelse:

error '80020009'
Exception occurred.

/film/default.asp, line 42

Linie 42 = If rs("reserveret") = False Then

Laver lige det om igen :
Du skal i din database lave en eller anden form for information der fortæller hvilket produkt man taler om,
f.eks. har jeg givet braveheart værdien 1. 

If rs("reserveret") = False Then
Response.Write "<table border="0" cellpadding="4" cellspacing="0" width="100%">
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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>"
Elseif rs("reserveret") = True Then
Response.Write "<table border="0" cellpadding="4" cellspacing="0" width="100%">
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      Børge har reserveret denne film.
    </td>
  </tr>"
End If

Husk dit sql-statement skal se sådan her ud
SQL = "SELECT * FROM film where produkt = 1"

Vil det sige, at jeg skal lave en kolonne i film, der hedder

film = 1

for Braveheart-filmen

film = 2

for Gladiator-filmen etc?

Det er sådan set lige meget. De skal bare kunne gå ind og skrive deres navn på ud for den eller de film de gerne vil have. Hvis der er et navn ud for en film, er den reserveret.

Indtil nu ser koden sådan her ud:

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

SQL = "SELECT * FROM film"

Set RS = Conn.Execute( SQL )

If rs("reserveret") = False Then
Response.Write "<input type=text name=tekstboks><input type=submit value=klik name=submit>"
Elseif rs("reserveret") = True Then
Response.Write "Varen er reserveret af " & rs("navn")
End If

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

I min database har foreløbig

navn (tekst, Obligatorisk = ja)
reserveret (ja/nej)

Nej,det behøver du ikke. Men hvis det skal være mest simpelt skal du lave 2 sql-statements

Sådan her skal den se ud :

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


Sql = "Select * From film Where navn = '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 navn = '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="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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>
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Gladiator.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">En masse tekst </td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Gladiator.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">En masse tekst </td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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>
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Gladiator.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">En masse tekst </td>
    <td width="34%" 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="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Gladiator.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">En masse tekst </td>
    <td width="34%" valign="top">
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
%>


Jeg skal nok give mere info, hvis du har brug for det.

ups den skal ende på

End If
%>

Det ser rimeligt ud, men der er dog nogle fejl i det. Desuden mangler jeg noget i linien

<form method="POST" action="?">

Jeg prøvede at rette det lidt til, men det virker ikke? Det ser nu sådan her ud:

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


Sql = "Select * From film Where navn = '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 navn = '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="33%" valign="top">
      <p align="center"><img border="0" src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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>
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">En masse tekst </td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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="33%" valign="top">
      <p align="center"><img border="0" src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">En masse tekst </td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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="33%" valign="top">
      <p align="center"><img border="0" src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      <form method="POST" action="?">
        <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>
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">En masse tekst </td>
    <td width="34%" 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="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Braveheart.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">Hvem vil købe filmen?</td>
    <td width="34%" valign="top">
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width="33%" valign="top">
      <p align="center"><img border="0" src="http://www.include.dk/film/Gladiator.jpg" width="200" height="343"></td>
    <td width="33%" valign="top">En masse tekst </td>
    <td width="34%" valign="top">
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>

Undskyld, lavede det tidligt i morges og var åbentlyst ikke helt vågen. If-sætningen skal se sådan her ud.


If " & reserveret & " = False And " & reserveret2 & " = False Then
Response.Write "<table border=0 cellpadding=4 cellspacing=0 width=100%>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src=/film/Braveheart.jpg width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src=/film/Gladiator.jpg width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src=/film/Braveheart.jpg width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src=/film/Gladiator.jpg width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src=/film/Braveheart.jpg width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src=/film/Gladiator.jpg width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src=http://www.include.dk/film/Braveheart.jpg width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src=http://www.include.dk/film/Gladiator.jpg width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>

Håber det virker nu..

Siden kan ikke vises
Der er problemer med den side, du prøver at åbne, og den kan ikke vises.

:o(

Koden ser sådan ud (der mangler også en action, håber du har lidt tålmodighed):

<html>

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

<body>
<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="765">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="100%" 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")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn


Sql = "Select * From film Where navn = '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 navn = '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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>

Prøv lige at lav en række mere i din tabel som hedder produkt, deri skal der stå navnet på filmen.

Så ser filen sådan her ud(action'en tager vi bagefter, ok)


<html>

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

<body>
<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="765">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="100%" 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")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn


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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>

Sorry, havde lige en telefon :o)

Jeg har lavet en "produkt". Skal jeg indtaste filtitlerne her?

Hm, det ser noget rodet ud :o)

Hov, -master-d-, som jeg sagde i går, så er det jo faktisk bare en funktion, som skal skrive navnet ud på personen, ud for filmen.

IF
  tekstfeltet ikke er benyttet THEN "Indtast dit navn"
ELSE
  response.write "Filmen er reserveret af " & navn
ENDIF

Bare navnet står ved den pågældende film er det godt nok.

Eller er det nødvendigt med alt det du er i gang med?

Dette er det absolut nødvendige,

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

If " & reserveret & " = False Then
Response.Write "Reserver filmen her : <input type=text><input type=submit>"
Else
Response.Write "<font>filmen er reserveret af " & Bruger & "</font>"
End If

Ok, det er et MEGET fint stykke arbejde, som du laver.

Inden vi går videre, vil jeg lige "kile" et spørgsmål ind:

Hvis ikke jeg ønsker at angive en font:

Response.Write "<font>filmen er reserveret af " & Bruger & "</font>"

fordi jeg har klaret det i tabellen med en <table ... class="tekst11">, hvordan skal sætningen så være?

Response.Write "Filmen er reserveret af " & Bruger & "" ....?

Eller skal jeg bare angive det samme som dig?

Jeg håber vi kan få det færdigt. Også for din skyld :o)

Jeg har afsat mere til dig :o)

bare skiv
response.write filmen er reserveret af " & Bruger & "

Ok. Men hvordan skal HELE dokumentet se ud? Og skal jeg indtaste filmtitlerne i "produkt"?

<html>

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

<body>
<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="765">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="100%" 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")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src="/film/Braveheart.jpg" width="200" height="343"></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src="/film/Gladiator.jpg" width="200" height="343"></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>

Ja du skal taste filmtitlerne ind i produkt.

Så skal hele dit dokument se sådan her ud :

<html>

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

<body>
<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="765">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="100%" 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")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      <form method=POST action=?>
        <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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>

det action=? skal ændres til den side hvor brugerens navn indsættes

Jeg havde tænkt mig, at den side skulle være den samme, så når brugeren kommer ind, vil der stå navne ud for de film, der ER reserveret, og for de resterende vil der så være mulighed for at reservere.

Nu hedder den default.asp, så den skal vel bare action="default.asp"?

Det kan sagtens være den samme fil, så skal action hedde
action='denneside.asp'

og så skal du have indsat lidt ekstra , det her kan bare stå lige før </body>

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

Den skal selvfølgelig hedde
action='default.asp'

Altså mellem </head> og <body....>

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

Nej, det er et dumt sted.Men det kan være lige meget bare det ikke er inden i If-funktionen

Nej den skal faktisk hedde :

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

Nu vrøvler jeg da vist sådan her skal den se ud :

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

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

Ok, men jeg får stadig (hulk) "Siden kan ikke vises...." og i Proceslinien står der "Der opstod en intern HTTP 500-serverfejl..."

Koden er her:

<html>

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

<body>

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

<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="765">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="100%" 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")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% 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>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>

Der må ikke være nogle "" tegn inden for Response.Writen's ""
f.eks. skal det være class='input' istedet for, men den fejl der hvad står der helt præcist ?

bare kopier hele siden med " Siden kan ikke vises"

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

Den der fejl tror jeg ikke har noget med asp'en at gøre.

Hmm, har jeg nogle class="input" i en response.write?

Så må det være tabellen?

Tilbage om 5 minutter

Hvis ikke der ASP'en, så må det være tabellen?

I tabellen film har jeg:

produkt - her har jeg indtastet AceVentura, Braveheart og Gladiator
navn - endnu ikke udfyldt af brugerne
reserveret - ja/nej

vent lige , prøver at finde noget om den fejl du får

Ok. Jeg fandt et par småfejl, som jeg har rettet. Du får lige HELE koden igen :o)

<html>

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

<body>

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

<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="765">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="100%" 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")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/film.mdb")
Conn.open dbConn

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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>

Er du gået kold for i aften, eller kan vi fortsætte? :o) Ellers venter det bare, til du får tid.

Master D, vi snakkes forhåbentlig ved i morgen. Jeg vil prøve at få noget nattesøvn til en afveksling.

Så tror jeg vist den er der prøv lige med den her kode.



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="765">
    <tr>
      <td valign="top">
        <div align="center">
          <table border="0" cellpadding="4" cellspacing="0" width="100%" 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% 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=33% valign=top>
      <p align=center><img border=0 src='/film/Braveheart.jpg' width=200 height=343></td>
    <td width=33% valign=top>Hvem vil købe filmen?</td>
    <td width=34% valign=top>
      " & Bruger & " har reserveret denne film.
    </td>
  </tr>
  <tr>
    <td width=33% valign=top>
      <p align=center><img border=0 src='/film/Gladiator.jpg' width=200 height=343></td>
    <td width=33% valign=top>En masse tekst </td>
    <td width=34% valign=top>
      " & Bruger2 & " har reserveret denne film.
    </td>
  </tr>
</table>"
End If
%>
</table>
  </center>
</div>

</body>

</html>

Hej master d!

Desværre: "Siden kan ikke vises...." :o(

& Bruger &
& Bruger2 &

De eksisterer heller ikke i databasen. Har du defineret de variabler?

& Bruger & OG & Bruger2 &  er bare variablerne for brugerne og bliver kun brugt hvis filmen er reserveret.

Ok. Men hvad er så næste skridt? Jeg har fuldstændigt mistet overblikket :o)

Jeg spørger måske dumt (og har gjort det før):

Hvorfor kan man ikke "bare" lave noget

HVIS
  der ikke er nogen, der har serveret filmen SÅ skal tekstboks + submitknap være der
ELLERS
  skal "Denne film er reserveret af " & navn stå i cellen
AFSLUT HVIS

Det er sådan set det eneste, scriptet skal udføre.

Jeg har lavet det en gang før for dig, men nu gør jeg det igen ( skal nok forklare det denne her gang )

'Hent alle oplysninger hvor filmens navn indgår
Sql = "Select * From film Where produkt = 'Braveheart'"
Set rs = Conn.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
'Bruger er navnet på personen der har reserveret filmen
Bruger = rs("navn")
'reserveret er feltet Reserveret i db'en
reserveret = rs("reserveret")

'HVIS der ikke er nogen, reserveret filmen, så reserver filmen her
If " & reserveret & " = False Then
Response.Write "Reserver filmen her : <input type=text><input type=submit>"

'Ellers skriv navnet på personen der har gjort ( & Bruger & )
Else
Response.Write filmen er reserveret af " & Bruger & "
'Slut
End If


Håber du har forstået det denne gang.

Alt det andet er bare fyldstof som man kan putte ind når man skal designe hjemmesiden. Altså det der før stod inde mellem response.Write'ens "" - tegn. Hvis du forstår.

Og det kan man godt, men jeg prøvede bare at fortsætte med dit eget design så den ville udskrive alle farver osv.

Ok. Jeg er ked at være tumpet. Jeg vil afprøve det i eftermiddag.

Fint

Jeg takker for hjælpen

Skriv hvis det nu ikke virker

-master-d-, håber du ser mailen

Jeg kan ikke få det til at virke, har ikke haft tid før nu.

Hvis du kan stille hele HTML-dokumentet op med det hele, og få det til at virke, er der 30 point ekstra. Er det ok?

Det er helt ad H til:

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