Notifikationer

Markér alle som læst Log ud

visual Nybegynder

01. november 2002 - 20:56 Der er 7 kommentarer og
1 løsning

Det gider ikke. :-(

Jeg skulle gerne bruge lidt hjælp til at få mit script til at køre ordenlig.

Nyhederne skal komme under hinanden som normalt.
www.enovision.dk/test/

KODEN:

<Html>
<Head>
<Title>EnoVision™/Peter Hougaard</Title>
<Meta Http-Equiv="Content-Type" Content="text/html; charset=iso-8859-1">
</Head>

<STYLE type="text/css">
A:link {
color: #5B5B51;
text-decoration: none;
font-weight: normal;
}
A:visited {
color: #5B5B51;
text-decoration: none;
font-weight: normal;
}
a:hover {
color: #FFFFFF;
text-decoration: none;
font-weight: normal;
background-color: B9B2AC;
}
</STYLE>

<Body BgColor=#E7E7DE LeftMargin=0 TopMargin=0 MarginWidth=0 MarginHeight=0>

<Table Width=523 Border=0 CellPadding=0 CellSpacing=0>
<Tr>
<Td width="126" RowSpan=3> <Img Src="images/01.gif" Width=125 Height=50></Td>
<Td width="1" RowSpan=12 bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1">
</Td>
<Td height="36" colspan="3" bgcolor="B9B2AC">  </Td>
<Td width="1" RowSpan=12 bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1">
</Td>
<Td width="1"> <Img Src="images/spacer.gif" Width=1 Height=36></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"> <img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>
<Tr>
<Td colspan="3" RowSpan=2> .<a href="Default.htm">News</a>
   .<a href="Information.htm">Information</a>     .<a href="Work.htm">Work</a> 
   .<a href="Contact.htm">Contact</a>     .<a href="Links.htm">Links</a></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=13></Td>
</Tr>
<Tr>
<Td RowSpan=9>  </Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=5></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>
<Tr>
<Td colspan="3"> <Img Src="images/Top01.gif" Width=396 Height=203></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=203></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>

<Tr>
<Td width="7" rowspan="4"> 
  </Td>
<Td colspan="2"> </Td>
<Td rowspan="5"> <Img Src="images/spacer.gif" Width=1 Height=151></Td>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyheder/nyheder.mdb")

'SQLstmt = "INSERT INTO artikler (Forfatter,ID,overskrift)"
'SQLstmt = SQLstmt & " VALUES (" & request.form("Forfatter") & "','"& request.form("artikel") & "','" & request.form("ID") & "','" & request.form("overskrift") & "','" & request.form("artikel") & "','" & request.form("dato") & "')"
SQLstmt = "Select Top 20 * from artikler order by ID DESC"
'
'response.write SQLstmt

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
%>

</Tr>
<%
DO WHILE NOT rs.EOF
ID = rs("ID")
Forfatter = rs("Forfatter")
artikel = rs("artikel")
overskrift = rs("overskrift")
dato = rs("dato")
%>
<Tr>
<Td width="247"><%=overskrift%></Td>
<Td width="143"><%=dato%></Td>
</Tr>

<Tr>
<Td colspan="2"><%=artikel%></Td>
</Tr>
<Tr>
<Td colspan="2">----------------------------------------------------------------</Td>
</Tr>

<%
rs.MoveNext
LOOP
RS.Close
Response.Write ""

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
<Tr>
<Td height="118" colspan="3"> </Td>
</Tr>
</Table>

</Body>
</Html>

Synes godt om

eagleeye Praktikant

01. november 2002 - 23:02 #1

I rækkerne <tr> over dder hvor der udskrives fra recordsetet er det 4 kolonner :
<Td colspan="3" ...>
<Td>...

Og der hvor der udskrives fra recordset er der kun 2 kolonner:
<Td width="247"><
<Td width="143"><

Det skal være 4 kolonne i alle rækker ellers rykkers der rundt på det.

Synes godt om

visual Nybegynder

02. november 2002 - 11:56 #2

Hele koden tak.

Synes godt om

eagleeye Praktikant

02. november 2002 - 12:01 #3

Eks på hvordan det kan laves, dette er HTML koden inde i loopet:

%>
<Tr>
<Td colspan="2" width="247"><%=overskrift%></Td>
<Td colspan="2" width="143"><%=dato%></Td>
</Tr>

<Tr>
<Td colspan="4"><%=artikel%></Td>
</Tr>
<Tr>
<Td colspan="4">----------------------------------------------------------------</Td>
</Tr>

<%

Synes godt om

visual Nybegynder

02. november 2002 - 12:06 #4

Jeg skal bruge hele koden så den dur.

Synes godt om

eagleeye Praktikant

02. november 2002 - 12:21 #5

Det er kun det lille styk som er rette, så det kan du ve genkende og selv skifte ud???

Her er hele koden og den dur... Der er bare ingen garanti for at det er sådan du vil havde layoutet ;)

<Html>
<Head>
<Title>EnoVision™/Peter Hougaard</Title>
<Meta Http-Equiv="Content-Type" Content="text/html; charset=iso-8859-1">
</Head>

<STYLE type="text/css">
A:link {
color: #5B5B51;
text-decoration: none;
font-weight: normal;
}
A:visited {
color: #5B5B51;
text-decoration: none;
font-weight: normal;
}
a:hover {
color: #FFFFFF;
text-decoration: none;
font-weight: normal;
background-color: B9B2AC;
}
</STYLE>

<Body BgColor=#E7E7DE LeftMargin=0 TopMargin=0 MarginWidth=0 MarginHeight=0>

<Table Width=523 Border=0 CellPadding=0 CellSpacing=0>
<Tr>
<Td width="126" RowSpan=3> <Img Src="images/01.gif" Width=125 Height=50></Td>
<Td width="1" RowSpan=12 bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1">
</Td>
<Td height="36" colspan="3" bgcolor="B9B2AC">  </Td>
<Td width="1" RowSpan=12 bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1">
</Td>
<Td width="1"> <Img Src="images/spacer.gif" Width=1 Height=36></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"> <img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>
<Tr>
<Td colspan="3" RowSpan=2> .<a href="Default.htm">News</a>
   .<a href="Information.htm">Information</a>     .<a href="Work.htm">Work</a> 
   .<a href="Contact.htm">Contact</a>     .<a href="Links.htm">Links</a></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=13></Td>
</Tr>
<Tr>
<Td RowSpan=9>  </Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=5></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>
<Tr>
<Td colspan="3"> <Img Src="images/Top01.gif" Width=396 Height=203></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=203></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>

<Tr>
<Td width="7" rowspan="4"> 
  </Td>
<Td colspan="2"> </Td>
<Td rowspan="5"> <Img Src="images/spacer.gif" Width=1 Height=151></Td>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyheder/nyheder.mdb")

'SQLstmt = "INSERT INTO artikler (Forfatter,ID,overskrift)"
'SQLstmt = SQLstmt & " VALUES (" & request.form("Forfatter") & "','"& request.form("artikel") & "','" & request.form("ID") & "','" & request.form("overskrift") & "','" & request.form("artikel") & "','" & request.form("dato") & "')"
SQLstmt = "Select Top 20 * from artikler order by ID DESC"
'
'response.write SQLstmt

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
%>

</Tr>
<%
DO WHILE NOT rs.EOF
ID = rs("ID")
Forfatter = rs("Forfatter")
artikel = rs("artikel")
overskrift = rs("overskrift")
dato = rs("dato")
%>
<Tr>
<Td colspan="2" width="247"><%=overskrift%></Td>
<Td colspan="2" width="143"><%=dato%></Td>
</Tr>

<Tr>
<Td colspan="4"><%=artikel%></Td>
</Tr>
<Tr>
<Td colspan="4">----------------------------------------------------------------</Td>
</Tr>

<%
rs.MoveNext
LOOP
RS.Close
Response.Write ""

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
<Tr>
<Td height="118" colspan="3"> </Td>
</Tr>
</Table>

</Body>
</Html>

Synes godt om

visual Nybegynder

02. november 2002 - 13:03 #6

Det ser ikke lige for godt ud.
www.enovision.dk/test/

Synes godt om

eagleeye Praktikant

02. november 2002 - 13:12 #7

nej så prøv dette det er nmogle med at få kolonnerne til at passe under hinandne..

Prøv at sætte border = 1 på tabellen så kan det væe lettere at se hvor der skilles.

<Html>
<Head>
<Title>EnoVision™/Peter Hougaard</Title>
<Meta Http-Equiv="Content-Type" Content="text/html; charset=iso-8859-1">
</Head>

<STYLE type="text/css">
A:link {
color: #5B5B51;
text-decoration: none;
font-weight: normal;
}
A:visited {
color: #5B5B51;
text-decoration: none;
font-weight: normal;
}
a:hover {
color: #FFFFFF;
text-decoration: none;
font-weight: normal;
background-color: B9B2AC;
}
</STYLE>

<Body BgColor=#E7E7DE LeftMargin=0 TopMargin=0 MarginWidth=0 MarginHeight=0>

<Table Width=523 Border=0 CellPadding=0 CellSpacing=0>
<Tr>
<Td width="126" RowSpan=3> <Img Src="images/01.gif" Width=125 Height=50></Td>
<Td width="1" RowSpan=12 bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1">
</Td>
<Td height="36" colspan="3" bgcolor="B9B2AC">  </Td>
<Td width="1" RowSpan=12 bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1">
</Td>
<Td width="1"> <Img Src="images/spacer.gif" Width=1 Height=36></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"> <img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>
<Tr>
<Td colspan="3" RowSpan=2> .<a href="Default.htm">News</a>
   .<a href="Information.htm">Information</a>     .<a href="Work.htm">Work</a> 
   .<a href="Contact.htm">Contact</a>     .<a href="Links.htm">Links</a></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=13></Td>
</Tr>
<Tr>
<Td RowSpan=9>  </Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=5></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>
<Tr>
<Td colspan="3"> <Img Src="images/Top01.gif" Width=396 Height=203></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=203></Td>
</Tr>
<Tr>
<Td colspan="3" bgcolor="B7B19E"><img src="images/spacer.gif" width="1" height="1"></Td>
<Td> <Img Src="images/spacer.gif" Width=1 Height=1></Td>
</Tr>

<Tr>
<Td width="7" rowspan="4"> 
  </Td>
<Td colspan="2"> </Td>
<Td rowspan="5"> <Img Src="images/spacer.gif" Width=1 Height=151></Td>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyheder/nyheder.mdb")

'SQLstmt = "INSERT INTO artikler (Forfatter,ID,overskrift)"
'SQLstmt = SQLstmt & " VALUES (" & request.form("Forfatter") & "','"& request.form("artikel") & "','" & request.form("ID") & "','" & request.form("overskrift") & "','" & request.form("artikel") & "','" & request.form("dato") & "')"
SQLstmt = "Select Top 20 * from artikler order by ID DESC"
'
'response.write SQLstmt

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
%>

</Tr>
<%
DO WHILE NOT rs.EOF
ID = rs("ID")
Forfatter = rs("Forfatter")
artikel = rs("artikel")
overskrift = rs("overskrift")
dato = rs("dato")
%>
<Tr>
<td></td>
<Td width="247"><%=overskrift%></Td>
<Td width="143"><%=dato%></Td>
<td></td>
</Tr>

<Tr>
<td></td>
<Td colspan="2"><%=artikel%></Td>
<td></td>
</Tr>
<Tr>
<td></td>
<Td colspan="2">----------------------------------------------------------------</Td>
<td></td>
</Tr>

<%
rs.MoveNext
LOOP
RS.Close
Response.Write ""

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
<Tr>
<Td height="118" colspan="3"> </Td>
</Tr>
</Table>

</Body>
</Html>

Synes godt om

visual Nybegynder

02. november 2002 - 13:24 #8

Det dur ikke.

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

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