Avatar billede artery_graphics Nybegynder
22. september 2002 - 02:23 Der er 82 kommentarer og
1 løsning

SQL forespørgsel

Jeg kan ikke finde ud af hvordan jeg får vist 2 rækker samtidigt fra en database

Nedenstående fortsætter til sidste og stopper.
Men hvis jeg har 10 rækker (ID) og kun vil ha' vist de første 2 hvad er variablen så?

Og hvor findes der en liste over alle de forskellige variabler?




' SQL forespørgsel
strSQL = "Select * From personer Order by Foedselsdato Desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Fornavn og fødselsdato
  Response.Write rs("Fornavn") & " " & rs("Foedselsdato") & "<br>"

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

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede dm013 Nybegynder
22. september 2002 - 02:32 #1
select top 2 * from
Avatar billede artery_graphics Nybegynder
22. september 2002 - 02:39 #2
Det virker ikke!
Avatar billede rbl Praktikant
22. september 2002 - 02:58 #3
Vil du kun have vist de to første rækker i tabellen ?

i = 1
Do

  ' Udskriv værdien af kolonnen Fornavn og fødselsdato
  Response.Write rs("Fornavn") & " " & rs("Foedselsdato") & "<br>"

  ' Gå til næste Record i rs
  rs.MoveNext
  i = i+1
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF and i>2


Jeg kan ikke lige huske om det "&" eller "and" man bruger
Avatar billede dm013 Nybegynder
22. september 2002 - 02:59 #4
hvad skriver den af fejl?
Avatar billede rbl Praktikant
22. september 2002 - 02:59 #5
hov, det er "i<3" der skal stå
Avatar billede artery_graphics Nybegynder
22. september 2002 - 03:13 #6
DM013 => Den gør bare ingen forskel!

RBL=>
Problemet er at det er nyheder jeg trækker ind på siden..
Selv om der er 10 i databasen skal det altid være de 2 nyeste der trækkes ind og vises på forsiden.. (hvordan jeg så lige styrer det) Plus at jeg skal kunne styrer det med stylesheet som det ses nedenfor...

Med det du skrev virker, men her blir de 2 news jo bare smidt ind på siden. Jeg har faktisk også 3 kolonner til nyheder i databasen: 1 til dato, 1 til News (UK) og 1 til Nydeder (DK)

Derfor kan jeg ikke bruge det du skrev med at vises kolonner...

HJÆLP!





<%
' SQL forespørgsel
strSQL = "Select top 2 * From NEWS"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>


                <table border="0" cellpadding="0" cellspacing="0" width="160">
                <tr>
                    <%if sprog=UK then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("Date")%></span><br>
                        <%=rs("News")%></p>
                        <%else%><p class="tekst">No news...</p><%end if%>
                    </td>
                    <%elseif sprog=DK then%>
                    <td><%if not rs.eof then%>
                        <span class="overskrift"><%=rs("Date")%></span><br>
                        <span class="tekst"><%=rs("Nyhed")%></span>
                        <%else%><p class="tekst">Ingen nyheder...</p><%end if%>
                    </td>
                    <%end if%>
                </tr>
            </table>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 03:15 #7
Det vil være best om man kunne angive at vise KUN 2 rækker som DM013 foreslår... men det virker ikke på hans måde...
Avatar billede rbl Praktikant
22. september 2002 - 03:21 #8
jeg kan ikke rigtig se problemet. Næsten lige meget hvordan du viser det og hvor mange informationer du skal vise, kan du altid begrænse antallet af rækker ved at tælle antallet af viste rækker.
Avatar billede artery_graphics Nybegynder
22. september 2002 - 03:26 #9
Øhh! ja! Det forstår jeg godt. Men hvordan?
Avatar billede somaliomar Praktikant
22. september 2002 - 12:15 #10
Jeg forstår ikke helt dit problem, men prøv med det her:

<%
' SQL forespørgsel
strSQL = "Select top 2 * From NEWS ORDER BY Date"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>


                <table border="0" cellpadding="0" cellspacing="0" width="160">
                <tr>
                    <%if sprog=UK then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("Date")%></span><br>
                        <%=rs("News")%></p>
                        <%else%><p class="tekst">No news...</p><%end if%>
                    </td>
                    <%elseif sprog=DK then%>
                    <td><%if not rs.eof then%>
                        <span class="overskrift"><%=rs("Date")%></span><br>
                        <span class="tekst"><%=rs("Nyhed")%></span>
                        <%else%><p class="tekst">Ingen nyheder...</p><%end if%>
                    </td>
                    <%end if%>
                </tr>
            </table>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 12:32 #11
SOMALIOMAR => det gør ingen forskel.

Jeg skal bare ha' den til at vise 2 rækker på siden, selv om der måske er 10 rækker i databasen.. Det må der være muligt at sætte en variable for det i denne linie alene

strSQL = "Select top 2 * From NEWS ORDER BY Date"

(hvordan ser de mulige variabler ud)

Jeg vil også gerne vide om den KAN vise alle rækker på en gang med en:
strSQL = "Select ALL* From NEWS"
Avatar billede somaliomar Praktikant
22. september 2002 - 12:41 #12
Kan du illustrere, hvordan din tabel ser ud? Og hvordan du vil have, at resultatet skal se ud?
Avatar billede artery_graphics Nybegynder
22. september 2002 - 12:56 #13
Dette er toppen:

<%
Session.TimeOut = 40
IF request.querystring("sprog") = "UK" THEN
Session("sprog") = "UK"
sprogid = "DK"
ELSE
Session("sprog") = "DK"
sprogid = "UK"
END IF
%>

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
Conn.Open DSN
%>

<%
' SQL forespørgsel
strSQL = "Select top 2 * From NEWS ORDER BY Date"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>

<html>



Og her trækkes nyhederne ind fra DB på forsiden alt efter sprog.
Som det er NU trækkes kun den første række ud af 3 ind på siden,
Hvorfor? Jeg vil gerne kunne se 2 nyheder (altså 2 rækker fra DB)

Faktisk skulle det gerne være de 2 nyeste efter dato der vises...

Men hvordan bruger jeg Respone.write record med nedenstående, som er mit stylesheet der placerer teksten det rigtige sted på siden og med diverse styles?


<table border="0" cellpadding="0" cellspacing="0" width="160">
                <tr>
                    <%if sprogid="UK" then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("news")%></p>
                        <%else%><p class="tekst">No news...</p><%end if%>
                    </td>
                    <%elseif sprogid="DK" then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("nyhed")%></p>
                        <%else%><p class="tekst">Ingen nyheder...</p><%end if%>
                    </td>
                    <%end if%>
                </tr>
            </table>
Avatar billede somaliomar Praktikant
22. september 2002 - 13:01 #14
Kommer der kun en nyhed ud, hvis du udfører overstående kode?
Avatar billede artery_graphics Nybegynder
22. september 2002 - 13:05 #15
Yep! Der et det der er hele problemet.. Kan der være noget galdt i DB?
Avatar billede somaliomar Praktikant
22. september 2002 - 13:06 #16
Det skulle du have noget før. Jeg tror, jeg ved hvad problemet er!
Avatar billede somaliomar Praktikant
22. september 2002 - 13:06 #17
Det er sciptet, der er noget galt med.
Avatar billede somaliomar Praktikant
22. september 2002 - 13:09 #18
Prøv det her:

<%
' SQL forespørgsel
strSQL = "Select top 2 * From NEWS ORDER BY Date DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

Do
%>


                <table border="0" cellpadding="0" cellspacing="0" width="160">
                <tr>
                    <%if sprog=UK then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("Date")%></span><br>
                        <%=rs("News")%></p>
                        <%else%><p class="tekst">No news...</p><%end if%>
                    </td>
                    <%elseif sprog=DK then%>
                    <td><%if not rs.eof then%>
                        <span class="overskrift"><%=rs("Date")%></span><br>
                        <span class="tekst"><%=rs("Nyhed")%></span>
                        <%else%><p class="tekst">Ingen nyheder...</p><%end if%>
                    </td>
                    <%end if%>
                </tr>
            </table>
           
<%
Loop While Not rs.EOF
%>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 13:21 #19
Hmm.. min server står bare og hænger...
Avatar billede somaliomar Praktikant
22. september 2002 - 13:22 #20
Må jeg se hele dit script?
Avatar billede artery_graphics Nybegynder
22. september 2002 - 13:24 #21
Kan ikke se om det virker... men forbindelsen blev ekstrem langsom (1 MB)
Avatar billede artery_graphics Nybegynder
22. september 2002 - 13:25 #22
Unden DO

Og

<%
Loop While Not rs.EOF
%>

Viser den nyhederne efter Dato... men stadig kun 1 af gangen...
Avatar billede somaliomar Praktikant
22. september 2002 - 13:29 #23
Kan jeg få lov til se hele koden? Det kan være, at der er et eller sted, hvor det går galt?
Avatar billede artery_graphics Nybegynder
22. september 2002 - 13:33 #24
Værsgo.. du må meget gerne checke for andre genrelle fejl...



<%
Randomize
tal = int(rnd*2)+1
%>

<%
Session.TimeOut = 40
IF request.querystring("sprog") = "UK" THEN
Session("sprog") = "UK"
sprogid = "DK"
ELSE
Session("sprog") = "DK"
sprogid = "UK"
END IF
%>

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
Conn.Open DSN
%>

<%
' SQL forespørgsel
strSQL = "Select top 2 * From NEWS ORDER BY Date DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>

<html>

<head>
<title>The Self Images</title>
<meta NAME="Title" CONTENT="The Self Images">
<link rel="stylesheet" href="frontstyle.css">

<script language="JavaScript">
<!--
if (document.images) {

  img1_on = new Image();
  img1_on.src = "images/uk/tsi2.gif";
  img1_off = new Image();
  img1_off.src = "images/uk/tsi.gif";
 
  img2_on = new Image();
  img2_on.src = "images/uk/showroom2.gif";
  img2_off = new Image();
  img2_off.src = "images/uk/showroom.gif";
 
  img3_on = new Image();
  img3_on.src = "images/<%=sprogid%>/contact2.gif";
  img3_off = new Image();
  img3_off.src = "images/<%=sprogid%>/contact.gif";
 
}

var  iNavn = "";

function ms( imagename, action ) {
  if ( !document.images || iNavn == imagename ) return;
  if ( 'fix' == action ) {
      if ( iNavn != "" ) {
          temp = iNavn;
          iNavn = "";
          ms( temp, 'off' );
      }
      iNavn = imagename;
  } else
      document.images[imagename].src = window[ imagename +'_' +action ].src;
  }

// -->
</script>
</head>

<body bgcolor="#333333" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

    <table border=0 width=100% height=100% align=left valign=top cellpadding=0 cellspacing=0>
        <tr>
            <td>
                <table border=0 width=770 height=420 align=center valign=middle cellpadding=0 cellspacing=0>
                    <tr>
                        <td valign="top">
                        <table border="0" cellspacing="0" cellpadding="0" bgcolor="#333333" style="border-collapse: collapse">
                          <tr>
                            <td colspan="2" height="37" width="770">
                            <img border="0" src="images/topbar.gif"></td>
                          </tr>
                          <tr>
                            <td height="29" bgcolor="#333333" width="549">
                                                 
    <img border="0" src="images/adjust.gif" width="8" height="1"><img border="0" src="images/fastfoward.gif">
    <img border="0" src="images/adjust.gif" width="50" height="1">
                           
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img1', 'on')" onMouseOut="ms('img1', 'off')" onClick="ms('img1', 'fix');parent.topright.location='../blank.asp'; parent.menubund.location='../shadow.asp'; parent.midt.location='../indhold/news1.asp'; return false;">
    <img name="img1" src="images/uk/tsi.gif" border="0" width="98" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img2', 'on')" onMouseOut="ms('img2', 'off')" onClick="ms('img2', 'fix');parent.topright.location='../blank.asp'; parent.menubund.location='../shadow.asp'; parent.midt.location='../indhold/news1.asp'; return false;">
    <img name="img2" src="images/uk/showroom.gif" border="0" width="72" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img3', 'on')" onMouseOut="ms('img3', 'off')" onClick="ms('img3', 'fix');location='subpage.asp'; return false;">
    <img name="img3" src="images/<%=sprogid%>/contact.gif" border="0" width="56" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">                     

                            </td>
                            <td bgcolor="#333333"></td>
                          </tr>
                          <tr>
                            <td height="43" background="images/optionbar.gif" width="549">
   
    <img border="0" src="images/adjust.gif" width="10" height="20"><br>
    <a href="front2.asp?sprog=<%=sprogid%>"><img src="images/<%=sprogid%>.gif" onfocus="this.blur();" border="0"></a></td>
           
                            <td rowspan="2" width="221" height="72">
                            <img border="0" src="images/logo.gif"></td>
                          </tr>
                          <tr>
                            <td height="29" background="images/optionbar.gif" width="549">
                            <img border="0" src="images/maintop.jpg"></td>
                          </tr>
                          <tr>
                            <td background="images/random/mainback<%=tal%>.jpg" height="450" width="549">&nbsp;</td>
                            <td valign="top" bgcolor="#760000">
                            <table border="0" cellspacing="0" width="100%" cellpadding="0" bgcolor="#760000">
                              <tr>
                                <td valign="top" bgcolor="#F1F1F2" height="249">
                              </td>
                                <td valign="top" bgcolor="#F1F1F2" height="249" width="162">
                                <img border="0" src="images/<%=sprogid%>/news.gif"><br><br>
 
            <table border="0" cellpadding="0" cellspacing="0" width="160">
                <tr>
                    <%if sprogid="UK" then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("news")%></p>
                        <%else%><p class="tekst">No news...</p><%end if%>
                    </td>
                    <%elseif sprogid="DK" then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("nyhed")%></p>
                        <%else%><p class="tekst">Ingen nyheder...</p><%end if%>
                    </td>
                    <%end if%>
                </tr>
            </table>                                                           
                                <td align="right" valign="top" width="40" bgcolor="#F1F1F2">
                                <img border="0" src="images/rightback.gif"></td>
                              </tr>
                              <tr>
                                <td background="images/emailoff.gif" height="27" colspan="3" align="right" valign="bottom">
                                <img border="0" src="images/emailon.gif"></td>
                              </tr>
                              </table>
                              <tr>
                            <p>&nbsp;</td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>
<% ' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Avatar billede somaliomar Praktikant
22. september 2002 - 13:40 #25
Try this

<%
Randomize
tal = int(rnd*2)+1


Session.TimeOut = 40
IF request.querystring("sprog") = "UK" THEN
Session("sprog") = "UK"
sprogid = "DK"
ELSE
Session("sprog") = "DK"
sprogid = "UK"
END IF

%>

<html>

<head>
<title>The Self Images</title>
<meta NAME="Title" CONTENT="The Self Images">
<link rel="stylesheet" href="frontstyle.css">

<script language="JavaScript">
<!--
if (document.images) {

  img1_on = new Image();
  img1_on.src = "images/uk/tsi2.gif";
  img1_off = new Image();
  img1_off.src = "images/uk/tsi.gif";
 
  img2_on = new Image();
  img2_on.src = "images/uk/showroom2.gif";
  img2_off = new Image();
  img2_off.src = "images/uk/showroom.gif";
 
  img3_on = new Image();
  img3_on.src = "images/<%=sprogid%>/contact2.gif";
  img3_off = new Image();
  img3_off.src = "images/<%=sprogid%>/contact.gif";
 
}

var  iNavn = "";

function ms( imagename, action ) {
  if ( !document.images || iNavn == imagename ) return;
  if ( 'fix' == action ) {
      if ( iNavn != "" ) {
          temp = iNavn;
          iNavn = "";
          ms( temp, 'off' );
      }
      iNavn = imagename;
  } else
      document.images[imagename].src = window[ imagename +'_' +action ].src;
  }

// -->
</script>
</head>

<body bgcolor="#333333" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

    <table border=0 width=100% height=100% align=left valign=top cellpadding=0 cellspacing=0>
        <tr>
            <td>
                <table border=0 width=770 height=420 align=center valign=middle cellpadding=0 cellspacing=0>
                    <tr>
                        <td valign="top">
                        <table border="0" cellspacing="0" cellpadding="0" bgcolor="#333333" style="border-collapse: collapse">
                          <tr>
                            <td colspan="2" height="37" width="770">
                            <img border="0" src="images/topbar.gif"></td>
                          </tr>
                          <tr>
                            <td height="29" bgcolor="#333333" width="549">
                                                 
    <img border="0" src="images/adjust.gif" width="8" height="1"><img border="0" src="images/fastfoward.gif">
    <img border="0" src="images/adjust.gif" width="50" height="1">
                           
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img1', 'on')" onMouseOut="ms('img1', 'off')" onClick="ms('img1', 'fix');parent.topright.location='../blank.asp'; parent.menubund.location='../shadow.asp'; parent.midt.location='../indhold/news1.asp'; return false;">
    <img name="img1" src="images/uk/tsi.gif" border="0" width="98" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img2', 'on')" onMouseOut="ms('img2', 'off')" onClick="ms('img2', 'fix');parent.topright.location='../blank.asp'; parent.menubund.location='../shadow.asp'; parent.midt.location='../indhold/news1.asp'; return false;">
    <img name="img2" src="images/uk/showroom.gif" border="0" width="72" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img3', 'on')" onMouseOut="ms('img3', 'off')" onClick="ms('img3', 'fix');location='subpage.asp'; return false;">
    <img name="img3" src="images/<%=sprogid%>/contact.gif" border="0" width="56" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">                     

                            </td>
                            <td bgcolor="#333333"></td>
                          </tr>
                          <tr>
                            <td height="43" background="images/optionbar.gif" width="549">
   
    <img border="0" src="images/adjust.gif" width="10" height="20"><br>
    <a href="front2.asp?sprog=<%=sprogid%>"><img src="images/<%=sprogid%>.gif" onfocus="this.blur();" border="0"></a></td>
           
                            <td rowspan="2" width="221" height="72">
                            <img border="0" src="images/logo.gif"></td>
                          </tr>
                          <tr>
                            <td height="29" background="images/optionbar.gif" width="549">
                            <img border="0" src="images/maintop.jpg"></td>
                          </tr>
                          <tr>
                            <td background="images/random/mainback<%=tal%>.jpg" height="450" width="549">&nbsp;</td>
                            <td valign="top" bgcolor="#760000">
                            <table border="0" cellspacing="0" width="100%" cellpadding="0" bgcolor="#760000">
                              <tr>
                                <td valign="top" bgcolor="#F1F1F2" height="249">
                              </td>
                                <td valign="top" bgcolor="#F1F1F2" height="249" width="162">
                                <img border="0" src="images/<%=sprogid%>/news.gif"><br><br>
 
            <table border="0" cellpadding="0" cellspacing="0" width="160">
                    <%


' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
Conn.Open DSN
                   
' SQL forespørgsel
strSQL = "Select top 2 * From NEWS ORDER BY Date DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

                    Do While Not rs.EOF
                   
                    if sprogid="UK" then
                   
                    %>
                <tr>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("news")%></p>
                        <%else%><p class="tekst">No news...</p><%end if%>
                    </td>
                    <%elseif sprogid="DK" then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("nyhed")%></p>
                        <%else%><p class="tekst">Ingen nyheder...</p><%end if%>
                    </td>
                </tr>
                    <%
                    end if
                   
                    Loop
                    %>

            </table>                                                           
                                <td align="right" valign="top" width="40" bgcolor="#F1F1F2">
                                <img border="0" src="images/rightback.gif"></td>
                              </tr>
                              <tr>
                                <td background="images/emailoff.gif" height="27" colspan="3" align="right" valign="bottom">
                                <img border="0" src="images/emailon.gif"></td>
                              </tr>
                              </table>
                              <tr>
                            <p>&nbsp;
                          </tr>
                        </table>
                      </td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>
<% ' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 13:44 #26
Virker ikke.. serveren hænger.. og blir bare ved!
Avatar billede somaliomar Praktikant
22. september 2002 - 13:53 #27
Prøv lige det her. Jeg skal lige være sikker på, at det ikke denne del af koden, der laver ged i det hele:

<table border="0" cellpadding="0" cellspacing="0" width="160">
<%

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
Conn.Open DSN
                   
' SQL forespørgsel
strSQL = "SELECT TOP 2 * FROM NEWS ORDER BY Date DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

Do While Not rs.EOF %>                   
  <tr>
    <td>
      <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("news")%></p>
    </td>
  </tr>
<%
Loop
%>
</table>
Avatar billede somaliomar Praktikant
22. september 2002 - 13:55 #28
I en ny side.
Avatar billede artery_graphics Nybegynder
22. september 2002 - 14:00 #29
DET ER DET!
Siden står som sagt bare og hænger...
Avatar billede somaliomar Praktikant
22. september 2002 - 14:03 #30
Hvad med det her:

<table border="0" cellpadding="0" cellspacing="0" width="160">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
Conn.Open DSN
                   
strSQL = "SELECT * FROM NEWS ORDER BY Date DESC"
Set rs = Conn.Execute(strSQL)

Do While Not rs.EOF %>                   
  <tr>
    <td>
      <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("news")%></p>
    </td>
  </tr>
<%
Loop
%>
</table>
Avatar billede somaliomar Praktikant
22. september 2002 - 14:08 #31
Hvis overstående resulterer i, at serveren igen hænger, så genstart serveren (evt. computeren) og prøv igen. Hvis det ikke hjælper, er det nok databasen, der er problemet.
Avatar billede artery_graphics Nybegynder
22. september 2002 - 14:08 #32
Nope! Stadig det samme...
Avatar billede somaliomar Praktikant
22. september 2002 - 14:10 #33
Så tror jeg, at problemet skyldes databasen. Har du mulighed for at lægge databasen på en web- eller ftp-server, så jeg kan kigge på den?
Avatar billede artery_graphics Nybegynder
22. september 2002 - 14:12 #34
Kan jeg maile dig den?
Avatar billede somaliomar Praktikant
22. september 2002 - 14:12 #35
Hvor meget fylder den?
Avatar billede artery_graphics Nybegynder
22. september 2002 - 14:16 #36
Ikke meget det er kun nyhederne... 176 K
Avatar billede somaliomar Praktikant
22. september 2002 - 14:16 #37
dynatoz@hotmail.com
Avatar billede artery_graphics Nybegynder
22. september 2002 - 14:38 #38
Har har oploadet DB og sat scriptet fra din mail ind mellem BODY
Men det virker stadig ikke.. den hænger bare..
Avatar billede artery_graphics Nybegynder
22. september 2002 - 14:41 #39
Det er ikke et eller andet firewall pis, vel?
Det er mærkeligt det har jo virket fint og hurtigt med at trække de ene nyhed ind på siden.. Hvad er det TBL for noget?
Avatar billede somaliomar Praktikant
22. september 2002 - 14:42 #40
Det er bare for at markere, at navnet tilhører en tabel.
Avatar billede somaliomar Praktikant
22. september 2002 - 14:45 #41
Prøv at oprette en ny side, hvor kun dette indgår:

<table border="0" cellpadding="0" cellspacing="0" width="160">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
Conn.Open DSN
                   
strSQL = "SELECT TOP 2 * FROM tblNews ORDER BY Dato DESC"
Set rs = Conn.Execute(strSQL)

Do While Not rs.EOF %>                   
  <tr>
    <td>
      <p class="tekst"><span class="overskrift"><%=rs("date")%></span><br><%=rs("news")%></p>
    </td>
  </tr>
<%
Loop
%>
</table>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 14:53 #42
Stadig det samme...
Avatar billede somaliomar Praktikant
22. september 2002 - 14:56 #43
Det er web-serveren, der er noget galt med! Scriptet kører fint på min maskine!
Avatar billede artery_graphics Nybegynder
22. september 2002 - 15:01 #44
Fuck! Hvad kan jeg gører ved det?

Vil det du så ikke lige poste den færdig version af hele scriptet inkl. min style opsætning for de 2 sprog?
Avatar billede somaliomar Praktikant
22. september 2002 - 15:18 #45
Nu får jeg også samme problem som dig! Serveren hænger!
Avatar billede artery_graphics Nybegynder
22. september 2002 - 15:20 #46
Hmm... ja netop.. men hvorfor?
Avatar billede somaliomar Praktikant
22. september 2002 - 15:20 #47
Jeg tror jeg ved det!
Avatar billede somaliomar Praktikant
22. september 2002 - 15:31 #48
Den script, der virkede hos mig ser sådan ud:

<html>
<table border="1" cellpadding="0" cellspacing="0" width="160">&nbsp;
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/testdb.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM tblNews"
Set rs = Conn.Execute(strSQL)

Do While Not rs.EOF
  Response.Write "<tr><td>"
  Response.Write "<p class=""tekst""><span class=""overskrift"">" & rs("dato") & "</span><br>" & rs("news") & "</p>"
  Response.Write "</tr></td>"
  rs.MoveNext
Loop


Conn.Close
Set Conn = Nothing

%>
</table>

</html>


Jeg glemte, at tilføje et rs.MoveNext på dit script. Da jeg prøvede, at køre dit script begyndte serveren, at hænge. Problemet var, at scriptet loopede på den samme record, fordi rs.EOF hele tiden var False.

Prøv lige det her nu:

<%
Randomize
tal = int(rnd*2)+1


Session.TimeOut = 40
IF request.querystring("sprog") = "UK" THEN
Session("sprog") = "UK"
sprogid = "DK"
ELSE
Session("sprog") = "DK"
sprogid = "UK"
END IF

%>

<html>

<head>
<title>The Self Images</title>
<meta NAME="Title" CONTENT="The Self Images">
<link rel="stylesheet" href="frontstyle.css">

<script language="JavaScript">
<!--
if (document.images) {

  img1_on = new Image();
  img1_on.src = "images/uk/tsi2.gif";
  img1_off = new Image();
  img1_off.src = "images/uk/tsi.gif";
 
  img2_on = new Image();
  img2_on.src = "images/uk/showroom2.gif";
  img2_off = new Image();
  img2_off.src = "images/uk/showroom.gif";
 
  img3_on = new Image();
  img3_on.src = "images/<%=sprogid%>/contact2.gif";
  img3_off = new Image();
  img3_off.src = "images/<%=sprogid%>/contact.gif";
 
}

var  iNavn = "";

function ms( imagename, action ) {
  if ( !document.images || iNavn == imagename ) return;
  if ( 'fix' == action ) {
      if ( iNavn != "" ) {
          temp = iNavn;
          iNavn = "";
          ms( temp, 'off' );
      }
      iNavn = imagename;
  } else
      document.images[imagename].src = window[ imagename +'_' +action ].src;
  }

// -->
</script>
</head>

<body bgcolor="#333333" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

    <table border=0 width=100% height=100% align=left valign=top cellpadding=0 cellspacing=0>
        <tr>
            <td>
                <table border=0 width=770 height=420 align=center valign=middle cellpadding=0 cellspacing=0>
                    <tr>
                        <td valign="top">
                        <table border="0" cellspacing="0" cellpadding="0" bgcolor="#333333" style="border-collapse: collapse">
                          <tr>
                            <td colspan="2" height="37" width="770">
                            <img border="0" src="images/topbar.gif"></td>
                          </tr>
                          <tr>
                            <td height="29" bgcolor="#333333" width="549">
                                                 
    <img border="0" src="images/adjust.gif" width="8" height="1"><img border="0" src="images/fastfoward.gif">
    <img border="0" src="images/adjust.gif" width="50" height="1">
                           
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img1', 'on')" onMouseOut="ms('img1', 'off')" onClick="ms('img1', 'fix');parent.topright.location='../blank.asp'; parent.menubund.location='../shadow.asp'; parent.midt.location='../indhold/news1.asp'; return false;">
    <img name="img1" src="images/uk/tsi.gif" border="0" width="98" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img2', 'on')" onMouseOut="ms('img2', 'off')" onClick="ms('img2', 'fix');parent.topright.location='../blank.asp'; parent.menubund.location='../shadow.asp'; parent.midt.location='../indhold/news1.asp'; return false;">
    <img name="img2" src="images/uk/showroom.gif" border="0" width="72" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">
    <a href="#" onfocus="this.blur();" onMouseOver="ms('img3', 'on')" onMouseOut="ms('img3', 'off')" onClick="ms('img3', 'fix');location='subpage.asp'; return false;">
    <img name="img3" src="images/<%=sprogid%>/contact.gif" border="0" width="56" height="11"></a><img border="0" src="images/adjust.gif" width="10" height="1">                     

                            </td>
                            <td bgcolor="#333333"></td>
                          </tr>
                          <tr>
                            <td height="43" background="images/optionbar.gif" width="549">
   
    <img border="0" src="images/adjust.gif" width="10" height="20"><br>
    <a href="front2.asp?sprog=<%=sprogid%>"><img src="images/<%=sprogid%>.gif" onfocus="this.blur();" border="0"></a></td>
           
                            <td rowspan="2" width="221" height="72">
                            <img border="0" src="images/logo.gif"></td>
                          </tr>
                          <tr>
                            <td height="29" background="images/optionbar.gif" width="549">
                            <img border="0" src="images/maintop.jpg"></td>
                          </tr>
                          <tr>
                            <td background="images/random/mainback<%=tal%>.jpg" height="450" width="549">&nbsp;</td>
                            <td valign="top" bgcolor="#760000">
                            <table border="0" cellspacing="0" width="100%" cellpadding="0" bgcolor="#760000">
                              <tr>
                                <td valign="top" bgcolor="#F1F1F2" height="249">
                              </td>
                                <td valign="top" bgcolor="#F1F1F2" height="249" width="162">
                                <img border="0" src="images/<%=sprogid%>/news.gif"><br><br>
 
            <table border="0" cellpadding="0" cellspacing="0" width="160">
                    <%


' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/theselfimages.mdb")
Conn.Open DSN
                   
' SQL forespørgsel
strSQL = "Select top 2 * From tblNews ORDER BY Dato DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

                    Do While Not rs.EOF
                   
                    if sprogid="UK" then
                   
                    %>
                <tr>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("dato")%></span><br><%=rs("news")%></p>
                        <%else%><p class="tekst">No news...</p><%end if%>
                    </td>
                    <%elseif sprogid="DK" then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=rs("dato")%></span><br><%=rs("nyhed")%></p>
                        <%else%><p class="tekst">Ingen nyheder...</p><%end if%>
                    </td>
                </tr>
                    <%
                    end if
                    rs.movenext
                    Loop
                    %>

            </table>                                                           
                                <td align="right" valign="top" width="40" bgcolor="#F1F1F2">
                                <img border="0" src="images/rightback.gif"></td>
                              </tr>
                              <tr>
                                <td background="images/emailoff.gif" height="27" colspan="3" align="right" valign="bottom">
                                <img border="0" src="images/emailon.gif"></td>
                              </tr>
                              </table>
                              <tr>
                            <p>&nbsp;
                          </tr>
                        </table>
                      </td>
                    </tr>
                </table>
            </td>
        </tr>
    </table>
<% ' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 15:41 #49
Du er fandeme fuldstændig overdrevet genial..

---->>>>> DET VIRKER !!!!!!!!!!!! <------

Hurra! ..
Avatar billede artery_graphics Nybegynder
22. september 2002 - 15:43 #50
Vil det sige at den altid viser de 2 nyeste Nyheder fra databasen efter dato?

Jamen.. er det ikke smart.. Må jeg hive fat i dig på et senere tidspunkt?
Jeg får sikkert flere problemer med opbygningen af det her site...

Her er i hvert fald 100 point for din store ulejlighed..
Avatar billede somaliomar Praktikant
22. september 2002 - 15:53 #51
Scriptet skulle i hvert fald gerne vise de seneste 2 nyheder fra databasen. Ellers kan du bare oprette nye nyheder for at kontrollere om den viser de seneste to. Og du kan godt hive fat i mig, hvis der opstår problemer med sitet. Jeg elsker udfordringer!!

Takker for points.

PS. Jeg kan godt forstå din begejstring over, at det hele virker for dig. Dejlig oplevelse ik'?
Avatar billede artery_graphics Nybegynder
22. september 2002 - 16:12 #52
Har du set det her spørgsmål?
http://www.eksperten.dk/spm/260824

Bare i tilfælde af du keder dig...
Avatar billede artery_graphics Nybegynder
22. september 2002 - 16:17 #53
Kan man sætte et STYLE på datoen i databasen så den ikke skriver 1/1/2002
Men i stedet: 01.01.2002 -- man kan åbenbart ikke skrive punktum i dato kolonnen i DB..

Eller kan jeg styrer dette med et STYLESHEET på selve siden?
Avatar billede somaliomar Praktikant
22. september 2002 - 16:22 #54
Har du prøvet det her <%=Replace(rs("dato"), "/", "."%>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 16:28 #55
Hvor skal det sættes ind henne?
Avatar billede somaliomar Praktikant
22. september 2002 - 16:29 #56
Erstat
<p class="tekst"><span class="overskrift"><%=rs("dato")%></span><br><%=rs("news")%></p>

med
<p class="tekst"><span class="overskrift"><%=Replace(rs("dato"), "/", "."%></span><br><%=rs("news")%></p>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 16:32 #57
Microsoft VBScript compilation error '800a03ee'

Expected ')'

/front.asp, line 139

Response.Write(Replace(rs("dato"), "/", ".")
Avatar billede somaliomar Praktikant
22. september 2002 - 16:35 #58
Du mangler et parantes slut )

Response.Write(Replace(rs("dato"), "/", "."))
Avatar billede artery_graphics Nybegynder
22. september 2002 - 16:40 #59
Det virker.. så mangler jeg bare at få NUL (0) med så der står:
01.01.2003 og ikke 1.1.2003

Kan man det?
Avatar billede somaliomar Praktikant
22. september 2002 - 16:57 #60
Det kan man sikkert.
Avatar billede artery_graphics Nybegynder
22. september 2002 - 17:18 #61
Vil du hjælpe mig med det?
Der er flere point i vente ...

Jeg frister ! :)
Avatar billede somaliomar Praktikant
22. september 2002 - 17:19 #62
ok
Avatar billede somaliomar Praktikant
22. september 2002 - 17:27 #63
Sæt den her funktion i toppen af siden:

<%
Function DatoFunk(Dato) As String
Dim Aar, Maaned, Dag, Temp
  Aar = DatePart("YYYY", Dato)
  Maaned = DatePart("M", Dato)
  Dag = DatePart("D", Dato)

  If Dag < 9 Then
    Temp = "0" & Trim(Str(Dag))
  End If
  Temp = Temp & "."
  If Maaned < 9 Then
    Temp = Temp & "0" & Trim(Str(Dag))
  End If
  Temp = Temp & "." & Aar
 
  DatoFunk = Temp
End Function
%>

Derefter kan du kalde funktionen Response.Write(DatoFunk(rs("dato")))
Avatar billede artery_graphics Nybegynder
22. september 2002 - 17:36 #64
Det virker ikke.. får en fejl.. skal de ikke se sådan her ud?

                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=Response.Write(DatoFunk(rs("dato")))%></span><br><%=rs("news")%><br><br></p>
                        <%else%><p class="tekst">No news...</p><%end if%>
                    </td>
                    <%elseif sprogid="DK" then%>
                    <td><%if not rs.eof then%>
                        <p class="tekst"><span class="overskrift"><%=Response.Write(DatoFunk(rs("dato")))%></span><br><%=rs("nyhed")%><br><br></p>
                        <%else%><p class="tekst">Ingen nyheder...</p><%end if%>
                    </td>
                </tr>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 17:38 #65
Og virker det lille script både med . imellem 1.1.2003
Plus at der kommer 0 foran 1 så det kommer til at se sådan ud: 01.01.2003?
Avatar billede somaliomar Praktikant
22. september 2002 - 17:39 #66
Kan du paste hele koden her?
Avatar billede somaliomar Praktikant
22. september 2002 - 17:41 #67
Hvad hedder fejlen?
Avatar billede artery_graphics Nybegynder
22. september 2002 - 17:42 #68
Microsoft VBScript compilation error '800a0400'

Expected statement

/front2.asp, line 18

Function DatoFunk(Dato) As String
------------------------^
Avatar billede somaliomar Praktikant
22. september 2002 - 17:45 #69
Så prøv at fjerne "As String", så der kun står:
Function DatoFunk(Dato)
Avatar billede artery_graphics Nybegynder
22. september 2002 - 17:48 #70
Nu står dette inde på min side:


Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Str'

/front2.asp, line 25
Avatar billede somaliomar Praktikant
22. september 2002 - 17:53 #71
Prøv lige det her

<%
Function DatoFunk(Dato)
Dim Aar, Maaned, Dag, Temp
  Aar = DatePart("YYYY", Dato)
  Maaned = DatePart("M", Dato)
  Dag = DatePart("D", Dato)

  If Dag < 9 Then
    Temp = "0" & Trim(Dag)
  End If
  Temp = Temp & "."
  If Maaned < 9 Then
    Temp = Temp & "0" & Trim(Maaned)
  End If
  Temp = Temp & "." & Aar
 
  DatoFunk = Temp
End Function
%>
Avatar billede somaliomar Praktikant
22. september 2002 - 17:59 #72
Der er også en fejl i overstående. Prøv med det her i stedet

<%
Function DatoFunk(Dato)
Dim Aar, Maaned, Dag, Temp
  Aar = DatePart("YYYY", Dato)
  Maaned = DatePart("M", Dato)
  Dag = DatePart("D", Dato)
 
  If Dag < 9 Then
    Temp = "0" & Trim(Dag)
  Else
    Temp = Trim(Dag)
  End If
  Temp = Temp & "."
  If Maaned < 9 Then
    Temp = Temp & "0" & Trim(Maaned)
  Else
    Temp = Temp & Trim(Maaned)
  End If
  Temp = Temp & "." & Aar

  DatoFunk = Temp
End Function
%>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 17:59 #73
Perfekt.. den det virker du på den første at de 2 nyheder listet..
der ser sådan her ud:

01.01.2003
Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh Read more here


..2002
Så virker det med de her nyheder... ?
Avatar billede somaliomar Praktikant
22. september 2002 - 18:00 #74
<%
Function DatoFunk(Dato)
Dim Aar, Maaned, Dag, Temp
  Aar = DatePart("YYYY", Dato)
  Maaned = DatePart("M", Dato)
  Dag = DatePart("D", Dato)
 
  If Dag < 9 Then
    Temp = "0" & Trim(Dag)
  Else
    Temp = Trim(Dag)
  End If
  Temp = Temp & "."
  If Maaned < 9 Then
    Temp = Temp & "0" & Trim(Maaned)
  Else
    Temp = Temp & Trim(Maaned)
  End If
  Temp = Temp & "." & Aar

  DatoFunk = Temp
End Function
%>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 18:04 #75
Næsten...
Mangler lige et 0 i den anden nyhed:

01.01.2003
Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh Read more here



01.9.2002
Så virker det med de her nyheder... ?
Avatar billede somaliomar Praktikant
22. september 2002 - 18:06 #76
<%
Function DatoFunk(Dato)
Dim Aar, Maaned, Dag, Temp
  Aar = DatePart("YYYY", Dato)
  Maaned = DatePart("M", Dato)
  Dag = DatePart("D", Dato)
 
  If Dag < 10 Then
    Temp = "0" & Trim(Dag)
  Else
    Temp = Trim(Dag)
  End If
  Temp = Temp & "."
  If Maaned < 10 Then
    Temp = Temp & "0" & Trim(Maaned)
  Else
    Temp = Temp & Trim(Maaned)
  End If
  Temp = Temp & "." & Aar

  DatoFunk = Temp
End Function
%>
Avatar billede artery_graphics Nybegynder
22. september 2002 - 18:10 #77
Super lækkert...

Håber det var en lille hygge tjans for dig..
Name your price champ!
Avatar billede artery_graphics Nybegynder
22. september 2002 - 18:13 #78
Du kan tjene 60 point mere for at modificerer en preloader.
Jeg har den liggene. Den bruger layers, men tror du den kan
centreres på en side alt efter opløsning?
(Uden brug af frames til at skubbe den på plads med)
Avatar billede somaliomar Praktikant
22. september 2002 - 18:26 #79
Du sender bare preloaderen. Det kan sikkert lade sig gøre, at centrere det. De 60 point kan du bruge til et andet spørgsmål.
Avatar billede artery_graphics Nybegynder
22. september 2002 - 18:31 #80
Skal jeg oprette et nyt spørgsmål så?
Og sende preloaderen på mail?
Avatar billede somaliomar Praktikant
22. september 2002 - 18:33 #81
Send det på mail.
Avatar billede artery_graphics Nybegynder
24. september 2002 - 01:58 #82
Skylder jeg dig ikke nogen point?
Og hvad med den preloader.. kan det lade sig gøre?
Avatar billede artery_graphics Nybegynder
24. september 2002 - 14:49 #83
SOMALIOMAR => prøv at se her: http://www.eksperten.dk/spm/261635
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