Søg
Avatar billede cyfer Nybegynder
24. marts 2002 - 14:42 Der er 7 kommentarer og
1 løsning

ASP news Script?

Hey.
Hvordan får jeg det til hvor de news man har skrevet ind til at stå med denne skrift
style="font-family: arial; font-size: 12px;"

Selve news scriptet kan ses her:
http://www.friserverplads.dk/clandqd/news.txt
(View source)
Avatar billede zyberwizard Nybegynder
24. marts 2002 - 14:43 #1
<%
Option Explicit
Dim strSQL, Conn, DSN, rs, VisNyheder, i
%>
<!--#include file="dbconn.inc"-->
<%
' Skulle få serveren til at loade siden hurtgere???
Response.Buffer = True
%>
<html>
<!--

Dette Nyhedssystem er lavet af Allan Johansen /datmek.dk

-->
<head>
<title>News</title>
<!-- KOMMENTAR:  Dette javascript bruges til at åbne login-vinduet i bestemt størrelse! -->
<SCRIPT language="JavaScript">
<!--
// Kan godt undværes... men husk så lige at rette linket til admin-modulet,
// det skal så rettes til login.asp hvis det er.
function loginvindue()
{
window.open('login.asp','login','width=260,height=130,resizable=no,scrollbars=no,toolbar=no,directories=no,copyhistory=no,menubar=no,location=no');
}
//-->
</SCRIPT>

</head>

<body background="http://friserverplads.dk/clandqd/back.jpg" bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" style="font-family: arial; font-size: 12px;">
<font face="Verdana"><span style="font-size:20pt;"><!-- Linket til Admin-modulet -->
</span></font><A HREF="java script:loginvindue()" ><font face="Verdana"><span style="font-size:20pt;">Admin</span></font></A><font face="Verdana"><span style="font-size:20pt;"> <br>
<br>
<!-- Her kommer man hen, når man trykker "Til toppen" -->
<a name="top"></a>
<!-- Her starter ASP-koden... -->
<%
' SQL forespørgsel
strSQL = "Select * From nyheder Order By Dato Desc"

' Udfør strSQL (rs kommer til at indeholde dataen)
Set rs = Conn.Execute(strSQL)

'Tjecker om der er noget i databasen
If rs.EOF Then

  ' Hvis ikke, så spytter den flg. ud
  Response.Write "<br><br><center><h3>Her er pt. ingen nyheder!</h3></center><br><br>"

Else

  Do

    ' Oprettelse af tabel
    Response.Write "<table border=1 cellspacing=0 cellpadding=3 width='400' align=center>"
    Response.Write "<tr><td width='70%'>"

    ' Udskriv Dato
    Response.Write rs("Dato")

    Response.Write "</td><td width='30%' align='right'>"

    ' Udskriv IndsafAF
    Response.Write rs("IndsatAf")

    Response.Write "</td></tr><tr><td colspan='2'>"

    ' Udskriv Nyhed
    Response.Write rs("Nyhed")

    Response.Write "</td></tr><tr><td colspan='2' align='right'>"

    ' Udskriv link (ikke fra databasen af)
    Response.Write "<a href='#top'>Til toppen</a>"

    ' Afslutter den oprettede tabel
    Response.Write "</td></tr></table><br>"

    ' Tæller counteren (i) op hver gang et rs vises:)
    i = i + 1

    ' Gå til næste record i rs
    rs.MoveNext

  ' Fortsæt indtil counteren (i) når op på det VisNyheder indeholder, eller til rs.EOF
  Loop Until i = VisNyheder Or rs.EOF

End If

' Luk forbindelse fra dbconn.inc
Conn.Close
Set Conn = Nothing
%>
<!-- ... og her slutter ASP-koden! -->
</span></font></body>
</html>
Avatar billede zyberwizard Nybegynder
24. marts 2002 - 14:43 #2
svar
Avatar billede zyberwizard Nybegynder
24. marts 2002 - 14:44 #3
Glem den anden...























<%
Option Explicit
Dim strSQL, Conn, DSN, rs, VisNyheder, i
%>
<!--#include file="dbconn.inc"-->
<%
' Skulle få serveren til at loade siden hurtgere???
Response.Buffer = True
%>
<html>
<!--

Dette Nyhedssystem er lavet af Allan Johansen /datmek.dk

-->
<head>
<title>News</title>
<!-- KOMMENTAR:  Dette javascript bruges til at åbne login-vinduet i bestemt størrelse! -->
<SCRIPT language="JavaScript">
<!--
// Kan godt undværes... men husk så lige at rette linket til admin-modulet,
// det skal så rettes til login.asp hvis det er.
function loginvindue()
{
window.open('login.asp','login','width=260,height=130,resizable=no,scrollbars=no,toolbar=no,directories=no,copyhistory=no,menubar=no,location=no');
}
//-->
</SCRIPT>

</head>

<body background="http://friserverplads.dk/clandqd/back.jpg" bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" style="font-family: arial; font-size: 12px;">
<font face="Verdana"><span style="font-size:20pt;"><!-- Linket til Admin-modulet -->
</span></font><A HREF="java script:loginvindue()" ><font face="Verdana"><span style="font-size:20pt;">Admin</span></font></A><font face="Verdana"><span style="font-size:20pt;"> <br>
<br>
<!-- Her kommer man hen, når man trykker "Til toppen" -->
<a name="top"></a>
<!-- Her starter ASP-koden... -->
<%
' SQL forespørgsel
strSQL = "Select * From nyheder Order By Dato Desc"

' Udfør strSQL (rs kommer til at indeholde dataen)
Set rs = Conn.Execute(strSQL)

'Tjecker om der er noget i databasen
If rs.EOF Then

  ' Hvis ikke, så spytter den flg. ud
  Response.Write "<br><br><center><h3>Her er pt. ingen nyheder!</h3></center><br><br>"

Else

  Do

    ' Oprettelse af tabel
    Response.Write "<table border=1 cellspacing=0 cellpadding=3 width='400' align=center>"
    Response.Write "<tr><td width='70%'>"

    ' Udskriv Dato
    Response.Write rs("Dato")

    Response.Write "</td><td width='30%' align='right'>"

    ' Udskriv IndsafAF
    Response.Write rs("IndsatAf")

    Response.Write "</td></tr><tr><td colspan='2'>"

    ' Udskriv Nyhed
    Response.Write rs("Nyhed")

    Response.Write "</td></tr><tr><td colspan='2' align='right'>"

    ' Udskriv link (ikke fra databasen af)
    Response.Write "<a href='#top'>Til toppen</a>"

    ' Afslutter den oprettede tabel
    Response.Write "</td></tr></table><br>"

    ' Tæller counteren (i) op hver gang et rs vises:)
    i = i + 1

    ' Gå til næste record i rs
    rs.MoveNext

  ' Fortsæt indtil counteren (i) når op på det VisNyheder indeholder, eller til rs.EOF
  Loop Until i = VisNyheder Or rs.EOF

End If

' Luk forbindelse fra dbconn.inc
Conn.Close
Set Conn = Nothing
%>
<!-- ... og her slutter ASP-koden! -->
</span></font></body>
</html>












Den her
Avatar billede zyberwizard Nybegynder
24. marts 2002 - 14:46 #4
Jeg kikser da i det..sorry

___________________________________________-




<%
Option Explicit
Dim strSQL, Conn, DSN, rs, VisNyheder, i
%>
<!--#include file="dbconn.inc"-->
<%
' Skulle få serveren til at loade siden hurtgere???
Response.Buffer = True
%>
<html>
<!--

Dette Nyhedssystem er lavet af Allan Johansen /datmek.dk

-->
<head>
<title>News</title>
<!-- KOMMENTAR:  Dette javascript bruges til at åbne login-vinduet i bestemt størrelse! -->
<SCRIPT language="JavaScript">
<!--
// Kan godt undværes... men husk så lige at rette linket til admin-modulet,
// det skal så rettes til login.asp hvis det er.
function loginvindue()
{
window.open('login.asp','login','width=260,height=130,resizable=no,scrollbars=no,toolbar=no,directories=no,copyhistory=no,menubar=no,location=no');
}
//-->
</SCRIPT>

</head>

<body background="http://friserverplads.dk/clandqd/back.jpg" bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" style="font-family: arial; font-size: 12px;">
<font face="Arial" size="3"><!-- Linket til Admin-modulet -->
</font><A HREF="java script:loginvindue()" ><font face="Arial" size="3">Admin</font></A><font face="Arial" size="3"> <br>
<br>
<!-- Her kommer man hen, når man trykker "Til toppen" -->
<a name="top"></a>
<!-- Her starter ASP-koden... -->
<%
' SQL forespørgsel
strSQL = "Select * From nyheder Order By Dato Desc"

' Udfør strSQL (rs kommer til at indeholde dataen)
Set rs = Conn.Execute(strSQL)

'Tjecker om der er noget i databasen
If rs.EOF Then

  ' Hvis ikke, så spytter den flg. ud
  Response.Write "<br><br><center><h3>Her er pt. ingen nyheder!</h3></center><br><br>"

Else

  Do

    ' Oprettelse af tabel
    Response.Write "<table border=1 cellspacing=0 cellpadding=3 width='400' align=center>"
    Response.Write "<tr><td width='70%'>"

    ' Udskriv Dato
    Response.Write rs("Dato")

    Response.Write "</td><td width='30%' align='right'>"

    ' Udskriv IndsafAF
    Response.Write rs("IndsatAf")

    Response.Write "</td></tr><tr><td colspan='2'>"

    ' Udskriv Nyhed
    Response.Write rs("Nyhed")

    Response.Write "</td></tr><tr><td colspan='2' align='right'>"

    ' Udskriv link (ikke fra databasen af)
    Response.Write "<a href='#top'>Til toppen</a>"

    ' Afslutter den oprettede tabel
    Response.Write "</td></tr></table><br>"

    ' Tæller counteren (i) op hver gang et rs vises:)
    i = i + 1

    ' Gå til næste record i rs
    rs.MoveNext

  ' Fortsæt indtil counteren (i) når op på det VisNyheder indeholder, eller til rs.EOF
  Loop Until i = VisNyheder Or rs.EOF

End If

' Luk forbindelse fra dbconn.inc
Conn.Close
Set Conn = Nothing
%>
<!-- ... og her slutter ASP-koden! -->
</font></body>
</html>
Avatar billede cyfer Nybegynder
24. marts 2002 - 14:52 #5
Det har ikke den rigtige str. Det er blevet mindre men ikke nok:
http://friserverplads.dk/clandqd/news/nyheder.asp
Det skal være så småt:
http://friserverplads.dk/clandqd/main.htm
Avatar billede cyfer Nybegynder
24. marts 2002 - 16:14 #6
Halloooo!
Det funger jo ikke ordenligt ;(
Avatar billede zyberwizard Nybegynder
24. marts 2002 - 22:07 #7
pt 10 !!
Avatar billede cyfer Nybegynder
25. marts 2002 - 15:49 #8
Hvad ?
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:04 Kan Medie Player overspille en CD ? - Hvordan Af Ikke-ekspert i Musik & videoafspillere
I dag 14:06 Download af Win 11 vi aRufus Af lbc i Windows
I går 19:36 Kan man gøre skriften i Libre Office 26.8 - På en PC med Windows 10 mere stabil ? Af Ikke-ekspert i Office & Kontorpakker
I går 07:10 Problemer med PC Af sorensen84 i PC
28/1017:10 Installation af software til UPS Af ErikHg i Andet hardware
White papers
Flere white papers »