Søg
Avatar billede -pind-- Nybegynder
13. september 2005 - 14:57 Der er 20 kommentarer og
1 løsning

kode til database

Hej eksperter
Dennelille stump kode henter et billede fra min database  (Access ) laver et lope og henter så det næste og bliver ved ind til alle foto er hentet.

<table cellpadding="2" cellspacing="0" border="1" bordercolor="#FFFFFF" width="100" align="center" height="100">
  <%rsUser.Movefirst
  do until rsUser.EOF%>
  <tr>


    <td align="center" width="100" height="100"><font color="white"><b><img src="pictures/<%=rsUser("FILENAME")%>" width="100" height="100"></b></font></td>

  </tr>
  <%rsUser.Movenext
  loop%>
  </table>

Mit problem er, at jeg gerne vil have det sidste foto i Databasen, indlæst først på min hjemme side, og der efter kun de sidste 10 seneste foto, og ikke alle foto der er i Databasen.
er der nogen der kan hjælpe mig med det.
mvh
Asiapigen
Avatar billede hmortensen Nybegynder
13. september 2005 - 15:08 #1
Du skal ændre i din SQL streng, som du ikke har vist her.
Avatar billede mm12010 Nybegynder
13. september 2005 - 15:09 #2
hvordan ser resten af din kode ud?

der må være et sted hvor der står noget ala:

<%
strSQL="SELECT * FROM billed"
set rsUser=conn.Execute(strSQL)
%>
Avatar billede -pind-- Nybegynder
13. september 2005 - 15:21 #3
Her får du lige hele siden.

<%
Option Explicit
Dim sql,intPage,rs,strSQL,strDSN,intRecCount,intNum,intPageCount,usercount,rsusername,username,sex,rsUser,rsUsers,rsMessages,newcount

username = Request.Cookies("username")

if username <> "" then
%>
<!--#include file="conn.asp"-->
<%
  sql = "SELECT icon FROM Users WHERE username = '" & username & "'"
  Set rsUser = Server.CreateObject("ADODB.Recordset")
  rsUser.Open sql, conn, 3, 3
 
  sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'"
  Set rsMessages = Server.CreateObject("ADODB.Recordset")
  rsMessages.Open sql, conn, 3, 3
 

  newcount = 0
  if not rsMessages.EOF then
    rsMessages.Movefirst
    do until rsMessages.EOF
        if rsMessages("messageread") = False then
            newcount = newcount + 1
        end if
        rsMessages.Movenext
    loop
    rsMessages.Movefirst
  end if
end if


'Count the amount of users


%>

<html>

<head>
<script language="JavaScript">
<!-- hide on

function popup(popupfile,winheight,winwidth)
{
open(popupfile,"PopupWindow","resizable=no,height=" + winheight + ",width=" + winwidth + ",scrollbars=yes");
}

// hide off -->
</script>
<title>D-soft</title>


</head>
<body  bgcolor="#DD1967" topmargin="2" leftmargin="0" >
<center>
            <table align="center" border="0" width="100%" height="400" >
            <tr>
                    <td width="20%" height="400" valign="top" bgcolor="#DD1967" style="border: 1 solid #FFFFFF">
                        <p><table cellspacing=0 bordercolordark="white" bordercolorlight="black" cellpadding="0" align="center" width="166">
<%
if username = "" then%>
<tr>
  <th bgcolor="#B90D11" width="20%" style="border: 1 solid #FFFFFF"><font face="arial,helvetica" size=2 color="white">Login</font></th>
</tr>
<tr>
  <form name="login" action="signin.asp" method="post">
  <input type="hidden" name="page" value="index.asp">
  <td align="center" bgcolor="#DD1967" width="20%">
 
  <p align="center"><b><font face="Verdana" color="#FFFFFF" size="1">Brugernavn :</font></b><font face="Arial,helvetica" size="3" color="white"><b> <input type="text" name="username" size="20" style="font-size: 8pt; font-family: Tahoma, Verdana Arial, Helvetica, sans-serif;"><br>
  </b></font><b><font face="Verdana" size="1" color="#FFFFFF">Password :</font></b><font face="arial,helvetica" size="3"><b> <input type="password" name="password" size="18" style="font-size: 8pt; font-family: Arial, Helvetica, sans-serif;"><br>
  </b></font><b><font face="Verdana" size="1" color="#FFFFFF">Husk mig :</font></b><font face="arial,helvetica" size="3"><b> <input type="checkbox" name="stayloggedin" value="yes"><br>
  <input type="submit" value="Login" style="font-size: 8pt; font-family: Verdana; font-weight: bold"><br>
  </b></font><a href="signupform.asp"><b><font color="white" face="Verdana" size="1">Opret
  ny bruger !</font></b></a></p>
  </td>
  </form>
</tr>
<%
else%>
<tr>
 
                                   
                    <td width="20%"></td>
</tr>
<tr>
  <td bgcolor="#B90D11" width="20%" style="border: 1 solid white">
 
                        <p align="center"><b><font face="Verdana" color="white" size="2">Bruger:</font><font color="white" size="3">
                    <%=username%></font></b></p>
  </td>
</tr>
<tr>
  <td bgcolor="#DD1967" width="20%">
 
                        <p style="line-height:100%; margin-top:0; margin-bottom:0;">&nbsp;</p>
                    <p style="line-height:100%; margin-top:0; margin-bottom:0;"><font face="Arial,helvetica" size="3" color="white"><b><img src="icons/<%=rsUser("icon")%>.gif" width=50 height=50 align="right">
  </b></font><b><font face="Verdana" size="1" color="#FFFFFF">Dit logo</font></b></p>
                    <p style="line-height:100%; margin-top:0; margin-bottom:0;"><font color="white"><b>&nbsp;
                    --&gt; </b></font></p>
                    <p style="line-height:100%; margin-top:0; margin-bottom:0;">&nbsp;</p>
                    <p><!--#include file="menutop.asp"--></p>
  </td>
</tr>
<%
rsUser.close
set rsUser = nothing
rsMessages.close
set rsMessages = nothing
conn.close
set conn = nothing
end if
%>
</table>

</td>
                    <td height="400" valign="top" width="100%" style="border: 1 solid #FFFFFF">
                       
                        <table align="center" border="0" width="100%" cellspacing="0" cellpadding="0">
                            <tr>
                                <td bgcolor="#DD1967" width="2" height="353">
                 
                    <p align="center" style="line-height:100%; margin-top:0; margin-bottom:0;">&nbsp;</p>
                        <p align="center">&nbsp;</p>
                        <p align="center"></p>
                              <%


ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dating.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>                                <%

  sql = "SELECT username,sex,dob,lookfor,FILENAME FROM Users WHERE username Like '" & sex & "%' ORDER BY username"
  Set rsUser = Server.CreateObject("ADODB.Recordset")
  rsUser.Open sql, conn, 3, 3
 
 
  sql = "SELECT username FROM users"
  Set rsusername = Server.CreateObject("ADODB.Recordset")
  rsusername.Open sql, conn, 3, 3
usercount = 0
  if not rsusername.EOF then
    rsusername.Movefirst
    do until rsusername.EOF
       
            usercount = usercount + 1
   
        rsusername.Movenext
    loop
    rsusername.Movefirst
  end if
%>
                    </td>
                                <td bgcolor="#DD1967" width="566" height="353" valign="top">
             
               
                        <table align="center" cellspacing="0" width="420" bordercolordark="#FFFFFF" bordercolorlight="#000000" height="257">

                            <tr>
                                <td align="center" width="414" bgcolor="#DD1967" height="255">

<%if not rsUser.EOF then%><br>
<table cellpadding="2" cellspacing="0" border="1" bordercolor="#FFFFFF" width="100" align="center" height="100">
  <%rsUser.Movefirst
  do until rsUser.EOF%>
  <tr>


    <td align="center" width="100" height="100"><font color="white"><b><img src="pictures/<%=rsUser("FILENAME")%>" width="100" height="100"></b></font></td>

  </tr>
  <%rsUser.Movenext
  loop%>
  </table>
                                  <p align="center">&nbsp; <%end if%>
                            </td>
                      </tr>
                        </table>
                        <p>
&nbsp;</p>
                                </td>
                            </tr>
                        </table>
</td>
                </tr>
            </table>
</body>

Er det bedre mm, og mange tak for din hjælp sidste gang.
asiapigen
Avatar billede mm12010 Nybegynder
13. september 2005 - 15:26 #4
hvilke andre felter har du i tabellen 'Users'? har du et dato-felt for oprettelsen eller et fortløbende id?
Avatar billede mm12010 Nybegynder
13. september 2005 - 15:27 #5
... og det var da så lidt - det er altid rart at hjælpe når det er værdsat !-)
Avatar billede -pind-- Nybegynder
13. september 2005 - 16:31 #6
Hej mm
er det bedre hvis du kigger ind på siden jeg roder med,
den er www.asiapigen.dk/dating/
mvh
Asiapigen
Avatar billede -pind-- Nybegynder
14. september 2005 - 06:34 #7
Hej mm
Har forstået lidt mere,
i min Users i min Access Database er der disse felter.

username
password
Firstname
Surname
email
dob
starsign
sex
icon
lookfor
profil
ID (Autonummerering)
File
Filename
vagt
hojde
hofarve
ojfarve
ryger
landsdel
sexorient
ptype
udsende
Og de står i den rækkefølge jeg har skrevet, der er ikke noget med dato så jeg tror det er ID
Mvh
Asiapigen
Avatar billede mm12010 Nybegynder
14. september 2005 - 07:34 #8
prøv at ændre denne linie:
  sql = "SELECT username,sex,dob,lookfor,FILENAME FROM Users WHERE username Like '" & sex & "%' ORDER BY username"
til:
  sql = "SELECT TOP 10(ID) FROM Users WHERE username Like '" & sex & "%' ORDER BY ID DESC"

Det vil hente de de 10 nyeste profiler, sorteret så den nyeste kommer først
Avatar billede mm12010 Nybegynder
14. september 2005 - 07:35 #9
sorry det skal selcfølgelig være:
  sql = "SELECT TOP 10(*) FROM Users WHERE username Like '" & sex & "%' ORDER BY ID DESC"
Avatar billede -pind-- Nybegynder
14. september 2005 - 09:21 #10
Jeg får denne fejl når jeg åbner siden.

Microsoft JET Database Engine error '80040e14'
The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.
/dating/hovedeside.asp, line 137

I line 137 står der ( rsUser.Open sql, conn, 3, 3 )
Skal der sættes mere ind. aldså nogle felt navne, ligesom i den gamle streng. ??
Asiapigen
Avatar billede mm12010 Nybegynder
14. september 2005 - 09:30 #11
vi prøver igen, og denne gang uden paranteser:
  sql = "SELECT TOP 10 * FROM Users WHERE username Like '" & sex & "%' ORDER BY ID DESC"
Avatar billede -pind-- Nybegynder
14. september 2005 - 12:46 #12
Hej mm
Det virker kanon, som du kan se ude på siden,
Kan du klare et lille tillægs spørgsmål,
Nu kommer alle infomationerne under hianden, Hvordan kan jeg få dem til at stå ved siden af hianden, hvis du lige vil kigge ud på siden så kan du se hvad jeg mener
Mvh
Asiapigen
Avatar billede mm12010 Nybegynder
14. september 2005 - 12:56 #13
selv om jeg prøver... syntes jeg ikke rigtigt at jeg kan se hvad du mener ?-)
Avatar billede -pind-- Nybegynder
14. september 2005 - 14:40 #14
Hej mm
Det svært at forklare for mig, men jeg har lavet 2 billeder med lidt text til på www.asiapigen.dk/dating/foto/index.asp
Håber det kan forklare det, hvid du lige har tid til at kigge
mvh.
Asiapigen
Avatar billede mm12010 Nybegynder
14. september 2005 - 14:48 #15
ok - så er jeg med !-)

men så vidt jeg kan se er det ikke koden ovenfor du bruger til at generer denne side: www.asiapigen.dk/dating/ - kan det passe? jeg skal bruge den aktuelle kode for at kunne rette det...
Avatar billede -pind-- Nybegynder
14. september 2005 - 15:58 #16
ja jeg kan godt se der mangler noget, her er den som den ser ud, ude på nettet nu.

<%
Option Explicit
Dim sql,intPage,rs,strSQL,strDSN,intRecCount,intNum,intPageCount,usercount,rsusername,username,sex,rsUser,rsUsers,rsMessages,newcount

username = Request.Cookies("username")

if username <> "" then
%>
<!--#include file="conn.asp"-->
<%
  sql = "SELECT icon FROM Users WHERE username = '" & username & "'"
  Set rsUser = Server.CreateObject("ADODB.Recordset")
  rsUser.Open sql, conn, 3, 3
 
  sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'"
  Set rsMessages = Server.CreateObject("ADODB.Recordset")
  rsMessages.Open sql, conn, 3, 3
 

  newcount = 0
  if not rsMessages.EOF then
    rsMessages.Movefirst
    do until rsMessages.EOF
        if rsMessages("messageread") = False then
            newcount = newcount + 1
        end if
        rsMessages.Movenext
    loop
    rsMessages.Movefirst
  end if
end if


'Count the amount of users


%>

<html>

<head>
<script language="JavaScript">
<!-- hide on

function popup(popupfile,winheight,winwidth)
{
open(popupfile,"PopupWindow","resizable=no,height=" + winheight + ",width=" + winwidth + ",scrollbars=yes");
}

// hide off -->
</script>
<title>D-soft</title>


</head>
<body  bgcolor="#DD1967" topmargin="2" leftmargin="0" >
<center>
            <table align="center" border="0" width="100%" height="400" >
            <tr>
                    <td width="20%" height="400" valign="top" bgcolor="#DD1967" style="border: 1 solid #FFFFFF">
                        <p><table cellspacing=0 bordercolordark="white" bordercolorlight="black" cellpadding="0" align="center" width="166">
<%
if username = "" then%>
<tr>
  <th bgcolor="#B90D11" width="20%" style="border: 1 solid #FFFFFF"><font face="arial,helvetica" size=2 color="white">Login</font></th>
</tr>
<tr>
  <form name="login" action="signin.asp" method="post">
  <input type="hidden" name="page" value="index.asp">
  <td align="center" bgcolor="#DD1967" width="20%">
 
  <p align="center"><b><font face="Verdana" color="#FFFFFF" size="1">Brugernavn :</font></b><font face="Arial,helvetica" size="3" color="white"><b> <input type="text" name="username" size="20" style="font-size: 8pt; font-family: Tahoma, Verdana Arial, Helvetica, sans-serif;"><br>
  </b></font><b><font face="Verdana" size="1" color="#FFFFFF">Password :</font></b><font face="arial,helvetica" size="3"><b> <input type="password" name="password" size="18" style="font-size: 8pt; font-family: Arial, Helvetica, sans-serif;"><br>
  </b></font><b><font face="Verdana" size="1" color="#FFFFFF">Husk mig :</font></b><font face="arial,helvetica" size="3"><b> <input type="checkbox" name="stayloggedin" value="yes"><br>
  <input type="submit" value="Login" style="font-size: 8pt; font-family: Verdana; font-weight: bold"><br>
  </b></font><a href="signupform.asp"><b><font color="white" face="Verdana" size="1">Opret
  ny bruger !</font></b></a></p>
  </td>
  </form>
</tr>
<%
else%>
<tr>
 
                                   
                    <td width="20%"></td>
</tr>
<tr>
  <td bgcolor="#B90D11" width="20%" style="border: 1 solid white">
 
                        <p align="center"><b><font face="Verdana" color="white" size="2">Bruger:</font><font color="white" size="3">
                    <%=username%></font></b></p>
  </td>
</tr>
<tr>
  <td bgcolor="#DD1967" width="20%">
 
                        <p style="line-height:100%; margin-top:0; margin-bottom:0;">&nbsp;</p>
                    <p style="line-height:100%; margin-top:0; margin-bottom:0;"><font face="Arial,helvetica" size="3" color="white"><b><img src="icons/<%=rsUser("icon")%>.gif" width=50 height=50 align="right">
  </b></font><b><font face="Verdana" size="1" color="#FFFFFF">Dit logo</font></b></p>
                    <p style="line-height:100%; margin-top:0; margin-bottom:0;"><font color="white"><b>&nbsp;
                    --&gt; </b></font></p>
                    <p style="line-height:100%; margin-top:0; margin-bottom:0;">&nbsp;</p>
                    <p><!--#include file="menutop.asp"--></p>
  </td>
</tr>
<%
rsUser.close
set rsUser = nothing
rsMessages.close
set rsMessages = nothing
conn.close
set conn = nothing
end if
%>
</table>

</td>
                    <td height="400" valign="top" width="100%" style="border: 1 solid #FFFFFF">
                       
                        <table align="center" border="0" width="100%" cellspacing="0" cellpadding="0">
                            <tr>
                                <td bgcolor="#DD1967" width="2" height="353">
                 
                    <p align="center" style="line-height:100%; margin-top:0; margin-bottom:0;">&nbsp;</p>
                        <p align="center">&nbsp;</p>
                        <p align="center"></p>
                              <%


ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dating.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>                                <%
  sql = "SELECT TOP 10 * FROM Users WHERE username Like '" & sex & "%' ORDER BY ID DESC"
  Set rsUser = Server.CreateObject("ADODB.Recordset")
  rsUser.Open sql, conn, 3, 3
 
 
  sql = "SELECT username FROM users"
  Set rsusername = Server.CreateObject("ADODB.Recordset")
  rsusername.Open sql, conn, 3, 3
usercount = 0
  if not rsusername.EOF then
    rsusername.Movefirst
    do until rsusername.EOF
       
            usercount = usercount + 1
   
        rsusername.Movenext
    loop
    rsusername.Movefirst
  end if









%>
                    </td>
                                <td bgcolor="#DD1967" width="566" height="353" valign="top">
             
               
                        <table cellspacing="0" width="519" bordercolordark="#FFFFFF" bordercolorlight="#000000" height="254">

                            <tr>
                                <td align="center" width="513" bgcolor="#DD1967" height="252">

<%if not rsUser.EOF then%>

  <%rsUser.Movefirst
  do until rsUser.EOF%>
 
<table cellpadding="2" cellspacing="0" border="1" bordercolor="#B4B4B4" width="118" align="center">
  <tr bgcolor="#B4B4B4">
    <th width="98" height="25" style="border-left-width: 1; border-right: 1 solid black; border-top-width: 1; border-bottom-width: 1">
            <p align="center"><b><font color="white" face="Verdana" size="1">Bruger</font></b></th>
    <th width="122" height="25" style="border-left-width: 1; border-right: 1 solid black; border-top-width: 1; border-bottom-width: 1">
            <p align="center"><b><font color="white" face="Verdana" size="1">K&oslash;n</font></b></p>
</th>
    <th width="101" height="25" style="border-left-width: 1; border-right: 1 solid black; border-top-width: 1; border-bottom-width: 1">
            <p align="center"><b><font color="white" face="Verdana" size="1">S&oslash;ger</font></b></p>
</th>
    <th width="187" height="25" style="border-left-width: 1; border-right: 1 solid black; border-top-width: 1; border-bottom-width: 1">
            <p align="center"><b><font color="white" face="Verdana" size="1">Biled</font>
                                                </b></th>
    <th width="124" height="25">
                                                <p><font color="white" face="Verdana" size="1"><b>&Aring;rgang</b></font></p>
</th>
  </tr>


  <tr>
    <td width="98" height="36"><font color="white"><b>&nbsp;</b></font><a href="show_profil.asp?user=<%=rsUser("username")%>"><font face="arial,helvetica" size="2" color="white"><b><%=rsUser("username")%>
          </b></font></a></td>
    <td width="122" height="36">
            <p align="center"><font color="white"><b><%=rsUser("sex")%></b></font></p>
</td>
    <td width="101" height="36">
            <p align="center"><font color="white"><b><%=rsUser("lookfor")%></b></font></p>
</td>
    <td align="center" width="187" height="36"><font color="white"><b><img src="pictures/<%=rsUser("FILENAME")%>" width="37" height="37"></b></font></td>
    <td align="center" width="124" height="36">
                                                <p><font color="white"><b><%=year(rsUser("dob"))%>
                                                &eacute;r</b></font></p>
</td>
  </tr>
  <%rsUser.Movenext
  loop%>
  </table>
                                  <p align="center">&nbsp; <%end if%>
                            </td>
                      </tr>
                        </table>
                        <p>
&nbsp;</p>
                                </td>
                            </tr>
                        </table>
</td>
                </tr>
            </table>
</body>

Der er så det hele med
venligs
Asiapigen
Avatar billede mm12010 Nybegynder
15. september 2005 - 08:01 #17
Med lidt held kan vi klare det på den nemme måde, i linie 178 skal give din tabel følgende style 'float:left;' så der kommer til at stå:

<table cellpadding="2" cellspacing="0" border="1" bordercolor="#B4B4B4" width="118" align="center" style="float:left;">

Det skulle gerne bevirke at tabellerne med brugere kommer til at stå ved siden af hinanden, så længe der er plads til det i bredden.
Avatar billede -pind-- Nybegynder
15. september 2005 - 11:18 #18
Hej mm
Så har jeg været ude og gå det hele i gennem, og det virker perfekt,
rigtig mange tak for hjælpen, du kan se ude på siden hvor fin det står nu,
det lige det jeg manglede for at komme videre.
mm Jeg har stadigvæk mange spørgsmål i fremtiden, men hvad skal man gøre for at få point til at betale med, når man kun har 300 point fra start.
Men nok læg set svar så jeg kan give dig point
Mange, mange TAK.
Asiapigen
Avatar billede mm12010 Nybegynder
15. september 2005 - 11:27 #19
selv tak :-)

her er lidt uvurderlig læsning for nye brugere på eksperten - jeg har lige scollet den ned til din aktuelle problemstilling: http://www.ebruger.dk/faq/#ikke_flere_point
Avatar billede -pind-- Nybegynder
15. september 2005 - 12:52 #20
Jeg siger igen mange Tak
ses
Asiapigen
Avatar billede mm12010 Nybegynder
15. september 2005 - 13:00 #21
np!-)
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
Webudvikling kurser
Vi tilbyder markedets bedste kurser inden for webudvikling
Se alle Webudvikling kurser

Flere spørgsmål fra HTML kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hjælp med HTML og CSS Af Nojsa i HTML 18 10/09/202515:07 17/09/202515:11
CSS 2 x firkanter + tekst på samme linje Af nemlig i HTML 3 19/03/202522:16 20/03/202513:04
Se og ændre html på en webside Af magger i HTML 4 11/03/202513:55 12/03/202506:56
Få input felt, der er med fed skrift og formatteres på linje Af KurtG i HTML 5 02/03/202520:05 04/03/202515:40
Variabler som ikke virker Af Frits Jensen i HTML 3 30/10/202409:37 01/01/202515:27
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 10:32 hvilken afløser kan I anbefale? Af jcr18 i Andet sikkerhed
I går 09:27 Hjælp til Api.asmx Af lurup i Andet programmering
16/0310:59 Ændre navn på ost-fil i Outlook Af TTA i Office & Kontorpakker
15/0316:12 Outlook fejler: 0x80070057 + 0x800CCC0E Af TTA i Office & Kontorpakker
14/0320:13 PIHOLE Af dcedata1977 i Linux
White papers
Flere white papers »