Notifikationer

Markér alle som læst Log ud

lbos Nybegynder

23. august 2002 - 15:15 Der er 14 kommentarer og
1 løsning

Højre om i tabel ?

Hej
dette er nok en af de lette ?
Når man trækker noget ud af databasen kører det ned af hvordan får jeg det til at køre højre om ?
Og hvordan når jeg laver et loop kan jeg så få den til at køre til næste tabel (altså tabelen under )
Ps: Det er billeder jeg trækker ud af databasen.
Jeg har lavet det sådan her :

<td width="400" align="center" valign="top" height="928">
<p align="left"><%

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

sql = "SELECT top 3 username,sex,lookfor,ptype,sexorient,hafarve,landsdel,ryger,dd,msk,anon,icon,mobkli,tlfkli,adr,profil, dato,FILENAME FROM Users WHERE * = 'kvinde' ORDER BY id DESC"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

sql = "SELECT * 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

%><%if not rsUser.EOF then
%><img src="Imag1.jpg" style="filter:alpha(opacity=45) align=" top" width="255" height="343" border="0" vspace="0" hspace="0" align="top">
<table cellspacing="0" width="400" style="border-style:none;" bordercolordark="white" bordercolorlight="black" align="center" border="1" bordercolor="#A1C2F7">
<tr>
<td width="416" bordercolorlight="black" style="font-family:Arial; font-style:normal; font-weight:normal; font-size:10pt; text-decoration:none; background-attachment:scroll; border-width:1; border-color:rgb(161,194,247); border-top-style:none; border-right-style:none; border-bottom-style:solid; border-left-style:none;" colspan="2" height="10" align="left" valign="top"><%rsUser.Movefirst
do until rsUser.EOF%></td>
<tr>
<td width="119" bordercolorlight="black" style="font-family:Arial; font-style:normal; font-weight:normal; font-size:10pt; text-decoration:none; background-attachment:scroll; border-width:1; border-color:rgb(161,194,247); border-top-style:none; border-right-style:none; border-bottom-style:none; border-left-style:solid;" valign="top" bgcolor="black" height="67" rowspan="2" align="left">
<p style="border-style:none;"><a href='show_profil.asp?user=<%=rsUser("username")%>'><font face="Arial,helvetica" size="1"><img src='pictures/<%=rsUser("FILENAME")%>' align="top" border="0" vspace="0" hspace="0" width="100" height="140"></font></a></td>
<td width="293" bordercolorlight="black" style="font-family:Arial; font-style:normal; font-weight:normal; font-size:10pt; text-decoration:none; background-attachment:scroll; border-width:1; border-color:rgb(161,194,247); border-top-style:none; border-right-style:solid; border-bottom-style:none; border-left-style:none;" valign="top" bgcolor="black" height="23" align="left">
<p align="left" style="border-style:none;"><font face="arial,helvetica" size="1"><img src='icons/<%=rsUser("icon")%>.gif' align="top">
  </font><font face="Arial,helvetica" size="3" color="yellow"><b><%=rsUser("anon")%></b></font></td>
</tr>
<tr>
<td width="285" bordercolorlight="black" style="font-family:Arial; font-style:normal; font-weight:normal; font-size:10pt; text-decoration:none; background-attachment:scroll; padding:4; border-width:1; border-color:rgb(161,194,247); border-style:solid;" height="24" align="left" valign="top">
<p align="center" style="border-style:none;"><font size="2" color="#CC0000" face="Arial"><b><%=rsuser("profil")%></b></font></td>
</tr>
<tr>
<td width="416" bordercolorlight="black" style="font-family:Arial; font-style:normal; font-weight:normal; font-size:10pt; text-decoration:none; background-attachment:scroll; border-width:1; border-color:rgb(161,194,247); border-top-style:none; border-right-style:solid; border-bottom-style:solid; border-left-style:solid;" colspan="2" height="10" align="left" valign="top">
<p align="left" style="border-style:none;"><font face="Arial,helvetica" size="3" color="#F0A50E"><b><img src="phone1f.gif" align="absmiddle" width="22" height="22" border="0">
</b></font><font size="2" face="Arial" color="#A1C2F7"><%=rsUser("tlfkli")%>/
<%=rsUser("mobkli")%> </font><font face="Arial,helvetica" size="2" color="#A1C2F7"><img src="house19 _blueroof.gif" align="absmiddle" width="22" height="22" border="0" alt="house19 _blueroof.gif">
</font><font size="2" face="Arial" color="#A1C2F7"><%=rsUser("adr")%>
  <%=rsUser("landsdel")%>
 </font></td>
</tr>
<%rsUser.Movenext
loop%>
</table>
<p><font size="2" face="Arial"><%end if%></font></p>

Synes godt om

hossein Nybegynder

23. august 2002 - 21:39 #1

Hvad mener du med højre om?

Synes godt om

hossein Nybegynder

23. august 2002 - 21:41 #2

Vil du ha billederne ved siden af hinanden fx 4 række 4 søjler?

Synes godt om

lbos Nybegynder

23. august 2002 - 23:26 #3

Ja lige netop 4 række 4 søjler

Synes godt om

hossein Nybegynder

24. august 2002 - 15:51 #4

Så skal du bruge det:
<%
Response.Write"<table border=0 cellspacing=35 cellpading=20>"
LinkCount = 0
Do Until rs.EOF
'change this 3 to any number you like (jeg har valgt 3 søjler) i dit tilfælde skal være 4:
If LinkCount Mod 3 = 0 Then
If LinkCount <> 0 Then Response.Write"</tr>"
Response.Write "<tr align=right><td><a STYLE=text-decoration:none href=Books/"&RS("BookCodeNr")&".txt><b>"&RS("BookName")&"</b></a></td>"
Else
Response.Write "<td><a STYLE=text-decoration:none href=Books/"&RS("BookCodeNr")&".txt><b>"&RS("BookName")&"</b></a></td>"
End If
LinkCount = LinkCount + 1
rs.MoveNext
Loop
Response.Write"</tr></table>"
rs.Close
Set rs = Nothing

%>

hvis du vil ha 4 X 4 så skal du definere pagesize og det kan du?

Synes godt om

lbos Nybegynder

24. august 2002 - 20:47 #5

Det er jo billeder jeg vil sætte ind ?

Synes godt om

hossein Nybegynder

24. august 2002 - 21:30 #6

Dit billeder kan lægge i en mappe fx: images. I tabellen skriver du navnet til hvert billede og hvis dette felt hedder BilledNavn i tabellen så bliver det:
Response.Write "<td><IMG height=115 rc=images/"&RS"BilledNavn")".gif></td>"

Synes godt om

lbos Nybegynder

25. august 2002 - 07:23 #7

Virker ikke det er jo et billede databasen sætter ind hvis jeg skriver
Response.Write "<td><IMG height=115 rc=pictures/<%=rsUser("FILENAME")%>"
)".gif></td>"
Giver den fejl ved filename !?

Synes godt om

hossein Nybegynder

25. august 2002 - 08:46 #8

Response.Write "<td><IMG height=115 src=pictures/<%=rsUser("FILENAME")%>"
)"></td>"
Det skal virke nu Hvis fx FILENAME er xxx.gif eller xxx.jpg

Synes godt om

lbos Nybegynder

25. august 2002 - 09:13 #9

Kommer med denne fejl :

Response.Write "<td><IMG height=115 src=pictures/<%=rsUser("FILENAME")
------------------------------------------------------------^

Synes godt om

hossein Nybegynder

25. august 2002 - 12:28 #10

Response.Write "<td><IMG height=115 src=pictures/" & rsUser("FILENAME") & "
</td>"

Synes godt om

lbos Nybegynder

25. august 2002 - 12:56 #11

Jeg har gjordt det sådan her :

<%

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

sql = "SELECT top 3 username,sex,lookfor,ptype,sexorient,hafarve,landsdel,ryger,dd,msk,anon,icon,mobkli,tlfkli,adr,profil, dato,FILENAME FROM Users WHERE landsdel = 'københavn' ORDER BY id DESC"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

sql = "SELECT sex 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

%><%if not rsUser.EOF then
%><%rsUser.Movefirst
do until rsUser.EOF%>
<div align="left">
<p style="border-style:none;"> <%
Response.Write"<table border=0 cellspacing=35 cellpading=20>"
LinkCount = 0
Do Until rs.EOF
'change this 3 to any number you like (jeg har valgt 3 søjler) i dit tilfælde skal være 4:
If LinkCount Mod 3 = 0 Then
If LinkCount <> 0 Then Response.Write"</tr>"
Response.Write "<td><IMG height=115 src=pictures/" & rsUser("FILENAME") & "
</td>"
Else
Response.Write "<td><IMG height=115 src=pictures/" & rsUser("FILENAME") & "
</td>"
End If
LinkCount = LinkCount + 1
rs.MoveNext
Loop
Response.Write"</tr></table>"
rs.Close
Set rs = Nothing

%></p>
</div>
<%end if%>

Og får dette svar:

Unterminated string constant

***.asp, line 420

Response.Write "<td><IMG height=115 src=pictures/" & rsUser("FILENAME") & "
---------------------------------------------------------------------------^

Synes godt om

hossein Nybegynder

25. august 2002 - 13:03 #12

hvis du vil kan du send til mig din db med nogle billeder, du behover ikke sende alle data bare dette tabel. amch3@get2net.dk
det kunne ikke være så svært den kører godt nok på min server.

Synes godt om

hossein Nybegynder

25. august 2002 - 13:03 #13

nej mach3@get2net.dk

Synes godt om

hossein Nybegynder

25. august 2002 - 21:28 #14

af hensyn til regler lægger jeg koden her:



<%
Set con = server.CreateObject("ADODB.Connection")
con.Open MinDB
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From users"
RS.open sql, con
%>
<p align="center">
<form action="FehresteKetab2.asp" method="Post">
<%
Response.Write"<table border=0 cellspacing=35 cellpading=20>"
LinkCount = 0
Do Until rs.EOF
'change this 3 to any number you like:
If LinkCount Mod 4 = 0 Then
If LinkCount <> 0 Then Response.Write"</tr>"
Response.Write "<tr><td><img width=100 src=images/" & RS("filename") & "></td>"
Else
Response.Write "<td><img width=100 src=images/" & RS("filename") & "></td>"

End If
LinkCount = LinkCount + 1
rs.MoveNext
Loop
Response.Write"</tr></table>"
rs.Close
Set rs = Nothing

%>
</table>
</form>

Hoseditme.asp:

' Path to Database
Dim MinDB
MinDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/project4/line.mdb")

Synes godt om

lbos Nybegynder

26. august 2002 - 19:08 #15

det er super

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