Søg
Avatar billede maínframe.subnet Nybegynder
10. december 2000 - 18:34 Der er 11 kommentarer og
1 løsning

Database

Hvis jeg har noget tekst i en database, hvad skal jeg så skrive så teksten bliver vist på sitet, men at det kun er et bestemt antal bogstaver der må vises, sådan at det bliver til små indledninger hvor jeg så kan klikke mig videre ind på hele teksten derfra?

mvh
Kenneth Madsen
Avatar billede tdaugaard Nybegynder
10. december 2000 - 18:36 #1

if len(strDintekst) > 60 then strDintekst = Left(strDintekst, 60)

hvis længden er større end 60 tegn så cutter den ved 60 ..
Avatar billede tdaugaard Nybegynder
10. december 2000 - 18:36 #2
og så regner jeg med du har et ID på hver \"tekst\" som du kan smide med i et link ..
Avatar billede maínframe.subnet Nybegynder
10. december 2000 - 18:47 #3
du får lige koden
.................................................
<% mode = request(\"mode\") %>
<% if mode = \"\" then %>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db1.mdb\")
strSQL = \"select top 10 * from nyheder ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
%>

<FONT FACE=\"Verdana\" SIZE=\"2\"><B><A HREF=\"visnyhed.asp?id=<%=RS(\"id\")%>\"><%=RS(\"overskrift\")%></A></B></FONT>
<BR><FONT FACE=\"Verdana\" SIZE=\"1\"><%=RS(\"dato\")%><BR><BR> 
<%=RS(\"nyhed\")%></FONT><BR><HR NoShade Color=\"Orange\" Size=\"1\">

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

<b><A HREF=\"nyhed.asp\" TARGET=\"_top\">tilføj en nyhed</A></b>
<A HREF=\"all.asp\" TARGET=\"_top\">alle nyheder</A>

</body></html>

<% end if %>
..................................................

Hvor skal jeg tilføje din kode og hvad skal der stå der hvor du skriver Dintekst?
Avatar billede maínframe.subnet Nybegynder
10. december 2000 - 18:50 #4
kan du ikke også fortælle mig hvad jeg skal gøre for at brugeren kan skrive sin mail, men at det er hans navn der bliver vist som man så kan klikke på og så skulle den gerne åbne hans email? du får 40point oveni så! hvis du løser dette probs. også!
Avatar billede tdaugaard Nybegynder
10. december 2000 - 18:50 #5
her er koden rettet. Jeg regner med der var Rs(\"overskrift\") der skulle rettes, ikke ?

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db1.mdb\")
strSQL = \"select top 10 * from nyheder ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
  strPreview = RS(\"overskrift\")
  If Len(strPreview) > 60 Then strPreview = Left(strPreview, 60) & \" ...\"
%>

<FONT FACE=\"Verdana\" SIZE=\"2\"><B><A HREF=\"visnyhed.asp?id=<%=RS(\"id\")%>\"><%=strPreview%></A></B></FONT>
<BR><FONT FACE=\"Verdana\" SIZE=\"1\"><%=RS(\"dato\")%><BR><BR> 
<%=RS(\"nyhed\")%></FONT><BR><HR NoShade Color=\"Orange\" Size=\"1\">

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

<b><A HREF=\"nyhed.asp\" TARGET=\"_top\">tilføj en nyhed</A></b>
<A HREF=\"all.asp\" TARGET=\"_top\">alle nyheder</A>

</body></html>

<% end if %>
Avatar billede tdaugaard Nybegynder
10. december 2000 - 18:53 #6
Vedr. mail tingen, jo det kan jeg nok godt. men er det i NYHEDER tabellen at emailen/navn findes ?

forøvrigt trot jeg der er en fejl i det jeg lige skrev .. eller ikke en fejl, men er det ikke Rs(\"nyhed\") der skal cuttes hvis den er for lang ?
Avatar billede maínframe.subnet Nybegynder
10. december 2000 - 18:56 #7
jo
Avatar billede cyberjunkie Nybegynder
10. december 2000 - 18:57 #8
her er et f.eks


<% mode = request(\"mode\") %>
<% if mode = \"\" then %>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db1.mdb\")
strSQL = \"select top 10 * from nyheder ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
  strPreview = RS(\"overskrift\")
  If Len(strPreview) > 60 Then strPreview = Left(strPreview, 60) & \" ...\"
%>

<FONT FACE=\"Verdana\" SIZE=\"2\"><B><A HREF=\"visnyhed.asp?id=<%=RS(\"id\")%>\"><%=strPreview%></A></B></FONT>
<BR><FONT FACE=\"Verdana\" SIZE=\"1\"><%=RS(\"dato\")%><BR><BR> 
<%=RS(\"nyhed\")%></FONT><BR><HR NoShade Color=\"Orange\" Size=\"1\">

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

<b><A HREF=\"nyhed.asp\" TARGET=\"_top\">tilføj en nyhed</A></b>
<A HREF=\"all.asp\" TARGET=\"_top\">alle nyheder</A>

</body></html>

<% end if %>
Avatar billede tdaugaard Nybegynder
10. december 2000 - 18:58 #9
*S* jeg sidder lige og retter koden til så den ser fin og funktionel ud ..
Avatar billede maínframe.subnet Nybegynder
10. december 2000 - 18:59 #10
mail~~ ordner det selv, tak for hjælpen.. du får dine ponits nu!
Avatar billede tdaugaard Nybegynder
10. december 2000 - 19:00 #11
mainframe.subnet:> okai :-)

cyberjunkie:> *suk*
Avatar billede tdaugaard Nybegynder
10. december 2000 - 19:01 #12
Her er den rettede så det er nyhed der bliver cuttet:

<%
    mode = Request(\"mode\")
   
    If mode = \"\" Then
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db1.mdb\")
   
        Set Rs = Conn.execute(\"SELECT TOP 10 * FROM nyheder ORDER BY id DESC\")

        If Rs.BOF Or Rs.EOF Then
            Response.write \"Databasen er tom.\"
        Else
            Do Until rs.EOF
              strPreview = RS(\"nyhed\")
              If Len(strPreview) > 60 Then strPreview = Left(strPreview, 60) & \" ...\"
%>
<font face=\"Verdana\" size=\"2\"><b><a href=\"visnyhed.asp?id=<%=RS(\"id\")%>\"><%=RS(\"overskrift\")%></a></b></font>
<br><font face=\"Verdana\" size=\"1\"><%=RS(\"dato\")%><br><br> 
<%=strPreview%></font><br><hr noshade color=\"Orange\" size=\"1\">
<%
                RS.MoveNext
            Loop
        End If

        Conn.Close
        Set Conn = Nothing
%>

b><A HREF=\"nyhed.asp\" TARGET=\"_top\">tilføj en nyhed</A></b>
<A HREF=\"all.asp\" TARGET=\"_top\">alle nyheder</A>
</body></html>
<%    End If %>
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
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
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
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 går 17:38 Video ikoner Af Malm i Windows
I går 17:27 Video ikoner Af logbuilders i Windows
16/0110:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
14/0119:38 Webmail yousee Af nu_igen i E-mail programmer
White papers
Flere white papers »