Avatar billede thmi99 Nybegynder
28. juli 2003 - 13:53 Der er 8 kommentarer og
2 løsninger

Kan man det??

Er det muligt at lave de 2 rammer "Tekst & Tekst1" om til en stor åben ramme, så når der ikke er mere plads ned forbi billedet fortsætter teksten automatisk nedeunder billedet?


id = request.querystring("ID")
if len(id) = 0 then
  response.write "Vælg en DVD i menuen."
else
'  if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'  end if

  Set rs = DBConn.Execute("SELECT * FROM film WHERE ID = " & clng(request.querystring("ID")) & ";")
  if (rs.eof or rs.bof) then
    Titel =  "ID " & clng(request.querystring("ID")) & " not found!"
  else
    Titel = server.htmlencode(rs("Titel"))
    'Tekst = replace(server.htmlencode("" & rs("Tekst")),vbcrlf,"<br>")
    Tekst = replace(rs("Tekst"),vbcrlf,"<br>")
    Copyright = server.htmlencode("" & rs("Copyright"))
    Billede = server.htmlencode("" & rs("Billede"))
    eYear = server.htmlencode("" & rs("Year"))
  end if
%>
<!--  <td height="30"><center><h4>Film titel : <%=Titel%></h4></center></td>
  </tr>-->
    <td style="color: #FFFFFF" bgcolor="#000000" width="50%" height="30">&nbsp;&nbsp;&nbsp;<%=Titel%>&nbsp;(<%=eYear%>)</td>
  </tr>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="3" cellpadding="3">
        <tr>
          <td width="1%"><img src="<%=Billede%>"></td>
          <td width="50%" valign="top"><%=Tekst%></td>
        </tr>
      </table>
    </td>
  </tr>
<%
'  Set rs = DBConn.Execute("SELECT * FROM anmeldelser WHERE filmid = " & clng(request.querystring("ID")) & ";")
'  if (rs.eof or rs.bof) then
'    response.write "<tr><td>Ingen anmeldelser endnu.</td></tr>"
'  else
%>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="0" cellpadding="8">
        <tr>
          <td width="75%" valign="top" style="border-left: 0px solid rgb(0,0,0); border-right: 0px solid rgb(0,0,0); border-top: 0px solid rgb(0,0,0); border-bottom: 0px solid rgb(0,0,0)"></td>
        </tr>
<%
'    do while not rs.EOF
      'person= server.htmlencode("" & rs("person"))
      Tekst1 = replace(server.htmlencode("" & rs("tekst1")),vbcrlf,"<br>")
%>
        <tr>
          <td width="75%"><%=Tekst1%></td>
        </tr>
<% 
'      rs.MoveNext
'    loop
%>
      </table>
    </td>
  </tr>

  <tr>
    <td align="center" bgcolor="#DEDFBF" height="30">
      <%=Copyright%>
    </td>
  </tr> 

<%
'  end if
  DBConn.Close
  Set DBConn = Nothing
%>
</table>
<%
end if
%>
Avatar billede keysersoze Ekspert
28. juli 2003 - 13:58 #1
lav én stor ramme, indsæt billedet med align="left i img tagget - så burde det fungere
Avatar billede cesil Nybegynder
28. juli 2003 - 14:02 #2
Du kan også gøre det med stylesheets

http://www.html.dk/artikler/00006/
Avatar billede thmi99 Nybegynder
28. juli 2003 - 14:02 #3
Det skal lige siges at jeg er nybegynder, så det skal helst skæres ud i PAP :)
Avatar billede keysersoze Ekspert
28. juli 2003 - 14:07 #4
<table>
<tr>
    <td align="top">
    <img src="img/bill.jpg" align="left" width="100" height="100">asg<br>dsfgsdf<br>sdf<br>gsdf<br>gsg<br>sgf<br>sdfg<br>sdf<br>gdfg
    </td>
</tr>
</table>
Avatar billede cesil Nybegynder
28. juli 2003 - 14:14 #5
noget i den stil

<%
id = request.querystring("ID")
if len(id) = 0 then
  response.write "Vælg en DVD i menuen."
else
'  if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'  end if

  Set rs = DBConn.Execute("SELECT * FROM film WHERE ID = " & clng(request.querystring("ID")) & ";")
  if (rs.eof or rs.bof) then
    Titel =  "ID " & clng(request.querystring("ID")) & " not found!"
  else
    Titel = server.htmlencode(rs("Titel"))
    'Tekst = replace(server.htmlencode("" & rs("Tekst")),vbcrlf,"<br>")
    Tekst = replace(rs("Tekst"),vbcrlf,"<br>")
    Copyright = server.htmlencode("" & rs("Copyright"))
    Billede = server.htmlencode("" & rs("Billede"))
    eYear = server.htmlencode("" & rs("Year"))
  end if
%>
<!--  <td height="30"><center><h4>Film titel : <%=Titel%></h4></center></td>
  </tr>-->
    <td style="color: #FFFFFF" bgcolor="#000000" width="50%" height="30">&nbsp;&nbsp;&nbsp;<%=Titel%>&nbsp;(<%=eYear%>)</td>
  </tr>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="3" cellpadding="3">
        <tr>
            <td align="top" valign="top">
                  <img src="<%=Billede%>" align="left"><%=Tekst%>
              </td>
        </tr>
      </table>
    </td>
  </tr>
<%
'  Set rs = DBConn.Execute("SELECT * FROM anmeldelser WHERE filmid = " & clng(request.querystring("ID")) & ";")
'  if (rs.eof or rs.bof) then
'    response.write "<tr><td>Ingen anmeldelser endnu.</td></tr>"
'  else
%>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="0" cellpadding="8">
        <tr>
          <td width="75%" valign="top" style="border-left: 0px solid rgb(0,0,0); border-right: 0px solid rgb(0,0,0); border-top: 0px solid rgb(0,0,0); border-bottom: 0px solid rgb(0,0,0)"></td>
        </tr>
<%
'    do while not rs.EOF
      'person= server.htmlencode("" & rs("person"))
      Tekst1 = replace(server.htmlencode("" & rs("tekst1")),vbcrlf,"<br>")
%>
        <tr>
          <td width="75%"><%=Tekst1%></td>
        </tr>
<% 
'      rs.MoveNext
'    loop
%>
      </table>
    </td>
  </tr>

  <tr>
    <td align="center" bgcolor="#DEDFBF" height="30">
      <%=Copyright%>
    </td>
  </tr> 

<%
'  end if
  DBConn.Close
  Set DBConn = Nothing
%>
</table>
<%
end if
%>
Avatar billede thmi99 Nybegynder
28. juli 2003 - 14:23 #6
Så dropper jeg lige de koder med rammer.
Så Cesil, vil du ikke lige sætte koderne ind i denne her i stedet for?

<%
<%
if len(request.querystring("ID")) = 0 then
    response.write "ERROR! ID IS MISSING OR IS INVALID!"
else
    ' Make list of all movies
    'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
    createdataobject "mySQL"
        'opentable "select * from Film where ID = " & clng(request.querystring("ID")) & ";"
        Set rs = DBConn.Execute("SELECT * FROM film WHERE ID = " & clng(request.querystring("ID")) & ";")
            if (rs.eof or rs.bof) then
                response.write "ID " & clng(request.querystring("ID")) & " not found!"
            else
                ID = server.htmlencode(rs("ID"))
                Titel = server.htmlencode(rs("Titel"))
                Tekst = replace(server.htmlencode(rs("Tekst")),vbcrlf,"<br>")
                Copyright = server.htmlencode(rs("Copyright"))
                Billede = server.htmlencode(rs("Billede"))
                eYear = server.htmlencode(rs("Year"))
            end if
'        closetable
    closedataobject
%>
<table border="0" cellpadding="2" class="normaltable" width="100%">
  <tr>
    <td style="color: #FFFFFF" bgcolor="#000000" width="50%" height="30">&nbsp;&nbsp;&nbsp;<%=Titel%>&nbsp;(<%=eYear%>)</td>
  </tr>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="3" cellpadding="3">
        <tr>
          <td width="1%"><img src="<%=Billede%>"></td>
          <td width="50%" valign="top"><%=Tekst%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center" bgcolor="#DEDFBF" height="30">
      <%=Copyright%>
    </td>
  </tr>
</table>
<%
end if
%>
Avatar billede thmi99 Nybegynder
28. juli 2003 - 14:24 #7
Ups der skulle stå " med 2 rammer" :)
Avatar billede cesil Nybegynder
28. juli 2003 - 14:28 #8
prøv den her

<%
<%
if len(request.querystring("ID")) = 0 then
    response.write "ERROR! ID IS MISSING OR IS INVALID!"
else
    ' Make list of all movies
    'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
    createdataobject "mySQL"
        'opentable "select * from Film where ID = " & clng(request.querystring("ID")) & ";"
        Set rs = DBConn.Execute("SELECT * FROM film WHERE ID = " & clng(request.querystring("ID")) & ";")
            if (rs.eof or rs.bof) then
                response.write "ID " & clng(request.querystring("ID")) & " not found!"
            else
                ID = server.htmlencode(rs("ID"))
                Titel = server.htmlencode(rs("Titel"))
                Tekst = replace(server.htmlencode(rs("Tekst")),vbcrlf,"<br>")
                Copyright = server.htmlencode(rs("Copyright"))
                Billede = server.htmlencode(rs("Billede"))
                eYear = server.htmlencode(rs("Year"))
            end if
'        closetable
    closedataobject
%>
<table border="0" cellpadding="2" class="normaltable" width="100%">
  <tr>
    <td style="color: #FFFFFF" bgcolor="#000000" width="50%" height="30">&nbsp;&nbsp;&nbsp;<%=Titel%>&nbsp;(<%=eYear%>)</td>
  </tr>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="3" cellpadding="3">
        <tr>
            <td align="top" valign="top">
                  <img src="<%=Billede%>" align="left"><%=Tekst%>
              </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center" bgcolor="#DEDFBF" height="30">
      <%=Copyright%>
    </td>
  </tr>
</table>
<%
end if
%>
Avatar billede thmi99 Nybegynder
28. juli 2003 - 14:38 #9
Det ser godt ud...takker

Jeg er ikke helt klar over hvordan jeg skal dele pointene! Hvad siger I til 100 til jer hver?
Avatar billede cesil Nybegynder
28. juli 2003 - 14:42 #10
fint nok
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