Avatar billede gaestgiveren Nybegynder
19. december 2004 - 12:06 Der er 4 kommentarer og
2 løsninger

videreudvikling af nyhedsscript!

Hej eksperter!

Jeg har udviklet et nyhedsscript, men jeg kunne nu godt tænke mig at videre udbygge det. Jeg vil gerne have et tilhørende billede til hver en nyhed. men i koden vil jeg bare have den til at hente en URL fra et felt i min database som hedder source. Udover det vil jeg gerne have den til at stille nyheden op på den måde at billedet ligge til højre i nyheden og teksten til venstre. MEN jeg kunne også godt tænke mig at så snart teksten har passeret billedet, så skal den fylde hele tabellen ud!

Håber i kan hjælpe mig da jeg ikke selv kan finde en måde at løse det på:

response.write("<table border='0' cellpadding='4' cellspacing='0' align='center' class='newsheader'>")
                response.write("<tr>")
                  response.write("<td height='0' align='left'>" & RS("topic") & "<br>")
                    response.write("<table width='100%' border='0' cellpadding='0' cellspacing='0'>")
                      response.write("<tr>")
                        response.write("<td width='540'><font color='#999999'>Skrevet d. " & formatdatetime(RS("addeddate"),2) & " kl. " & formatdatetime(RS("addedtime"),4) & " af <a href='?page=3&mode=member&id=" & RS("memberid") & "'>" & RS("nick") & "</a></font></td>")
                    response.write("</tr>")
                    response.write("</table>")
                    response.write("</td>")
              response.write("</tr>")
              response.write("</table>")
              response.write("<table width='380' border='0' cellpadding='0' cellspacing='15' class='contenst_text'>")
                response.write("<tr>")
           
                response.write("<td valign='top'>" & makelink(RS("body")) & "<br><br>")
                response.write("</td>")
                response.write("<tr>")
                response.write("<td>")
                response.write("</td>")
                response.write("</tr>")
              response.write("</table>")
Avatar billede kalp Novice
19. december 2004 - 12:31 #1
skal godt nok på arbejde nu... men dit billede kan du åbne ved hjælp af en iframe så længe det alligevel bare er et link!
Avatar billede gaestgiveren Nybegynder
20. december 2004 - 15:25 #2
Kan du evt. fortælle mig hvordan?
Avatar billede kalp Novice
20. december 2004 - 16:16 #3
længe siden jeg har rodet med det... men du kan få hele min vis billede script



<div align="center">
  <p>
    <%@ LANGUAGE="VBSCRIPT"%>
    <% Response.Expires = 0 %>
    <!-- #include file="html.inc" -->
    <%
strID = request.QueryString("ID")

function GetFileName
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  if objFSO.FileExists(Server.MapPath(strID & ".gif")) then
    GetFileName = strID & ".gif"
  else
    if objFSO.FileExists(Server.MapPath(strID & ".jpg")) then
      GetFileName = strID & ".jpg"
    else
      GetFileName = "ikke fundet.jpg"
    end if
  end if
  Set objFile = Nothing
  Set objSFO = Nothing
end function

sub VisInfo
  Response.Write("<html><head><LINK HREF='styles.css' REL='stylesheet' TYPE='text/css'></head>")
  Response.Write("<body><h3><p align='center'>The Picture(s)</p></h3>")
  Response.Write("<hr width='90%' align='center'>")

  Response.Write("<form method='POST' action='default.asp'>")
  Response.Write("<div align='center'><table>")
  Response.Write("<table width='90%'>")
    ' *** Submitknap bestemmer om der skal postes eller fortrydes ***
    Response.Write("<tr>")
      ListHeader "Title", "20%"
      RowInputStr "EditTitel", RS("Titel"), 30, "80%"
    Response.Write("</tr>")
    Response.Write("<tr>")
      ListHeader "From", "20%"
      RowInputStr "EditNavn", RS("Navn"), 50, "80%"
    Response.Write("</tr>")
    Response.Write("<tr>")
      ListHeader "Added", "20%"
      RowInputStr "EditDato", RS("Dato"), 50, "80%"
    Response.Write("</tr>")
  Response.Write("</table>")
  ' *** Knapper i bunden ***
  Response.Write("<hr width='90%' align='center'>")
  Response.Write("<table width='90%'>")
    NewSmallButton "submit", "submit", "Back"
  Response.Write("</table>")
  Response.Write("</table></div>")
  Response.Write("</form>")
  ' *** Vis billede ***
  Response.Write("<div align='center'>")
Response.Write("<img src='"&GetFileName&"'>") 
 

  Response.Write("</div>")
end sub

' Opret ADO-connection
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
' Opret RecordSet
Set rs = Server.CreateObject("ADODB.RecordSet")
' Hent første post i tabellen tabelnavn
rs.Open "SELECT * FROM TABEL where ID=" & strID, myConn

VisInfo

' Luk det hele igen
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing

Response.Write("</body></html>")
%>
  </p>
  </div>










men det meste har du vel ikke brug for.. når først du har navnet på dit billede så få du det frem med denne

Response.Write("<img src='"&GetFileName&"'>")
Avatar billede gaestgiveren Nybegynder
02. januar 2005 - 16:52 #4
Fik en til at lave det for mig, men lig et svar så får du lidt point, for hjælpen
Avatar billede kalp Novice
02. januar 2005 - 17:00 #5
Godt du har fået det op at køre:)
Avatar billede gaestgiveren Nybegynder
02. januar 2005 - 17:03 #6
svar
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