CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

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!

Synes godt om

gaestgiveren Nybegynder

20. december 2004 - 15:25 #2

Kan du evt. fortælle mig hvordan?

Synes godt om

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

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

Synes godt om

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

Synes godt om

kalp Novice

02. januar 2005 - 17:00 #5

Godt du har fået det op at køre:)

Synes godt om

gaestgiveren Nybegynder

02. januar 2005 - 17:03 #6

svar

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS