28. juli 2003 - 13:53Der 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"> <%=Titel%> (<%=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>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% 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"> <%=Titel%> (<%=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>
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"> <%=Titel%> (<%=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 %>
<% <% 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"> <%=Titel%> (<%=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 %>
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.