Hämta 2 åt gången?

3 svar · 366 visningar · startad av Biasse 14 maj 2007

BiasseMedlem sedan aug. 2003480 inlägg

Frågan14 maj 2007 17:51#1

Hur gör man för att det bara ska visas 2st poster/sida och sen välja sida under?

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../lagret/digelo.mdb")

IF Request.Querystring("action") = "delete" Then 
SQL = "DELETE * FROM members WHERE ID=" & Request.Querystring("id")
Connect.Execute(SQL)
Response.Redirect "msn.asp"
ELSE

SQL = "SELECT * From members ORDER BY namn ASC"
Set RecSet = Connect.Execute(SQL) 
%> 
</form>
<div align="center">
  <table width="350" border="0" style="border: #1e2535 1px solid" bgcolor="#efefef">
    
    <% Do Until RecSet.EOF %>
    
     
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">Namn:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("namn")%></font></td></tr>
       
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">E-Mail:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("mail")%></font></td></tr>
       
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">MSN:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("msnmail")%></font></td></tr>
      
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">Telefon:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("telefon")%></font></td></tr>
      
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">Mobil:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("mobil")%></font></td></tr>
      
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">Bil:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("bil")%></font></td></tr>
      
	  <tr><td width="15%"></td>
		<td width="82%"><p align="left"><a href="msn.asp?action=delete&id=<%=RecSet("id")%>">
	  <font face="Verdana" size="2">
	  <span style="background-color: #EAF8FF; text-decoration:none">Radera</span></font></a><hr color="#1E2535" size="1"></td></tr>
    
<%	 
RecSet.MoveNext 
Loop

Recset.Close
Connect.Close
Set Recset = Nothing
Set Connect = Nothing

END IF 
%>  
  </table>

BiasseMedlem sedan aug. 2003480 inlägg

14 maj 2007 18:08#2

Löste det..

<head>
<title>Members</title>
</head>

<body bgcolor="#FFFFFF">
<p align="center"><font face="Verdana" color="#CC0000" style="font-size: 13pt">Medlemar</font></p>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../lagret/digelo.mdb")

SQL = "SELECT * From members ORDER BY namn DESC"
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open SQL, Connect, 1, 3
RecSet.PageSize = 2
%> 

     <div align="center">
     <table width="350" border="0" style="border: #1e2535 1px solid" bgcolor="#efefef">
    
<%
X=0

If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
intPage = 1
Else
intPage = CInt(Request.QueryString("page"))
End If

RecSet.AbsolutePage = intPage

DO UNTIL RecSet.EOF OR X = RecSet.PageSize
%>
     
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">Namn:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("namn")%></font></td></tr>
       
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">E-Mail:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("mail")%></font></td></tr>
       
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">MSN:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("msnmail")%></font></td></tr>
      
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">Telefon:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("telefon")%></font></td></tr>
      
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">Mobil:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("mobil")%></font></td></tr>
      
      <tr><td width="15%">
		<font color="#1E2535" face="Verdana" style="font-size: 9pt">Bil:</font></td>
		<td width="82%"><font color="#cc0000" face="Verdana" size="2"> <%=RecSet("bil")%></font></td></tr>
      
	  <tr><td width="15%"></td>
		<td width="82%"><p align="left"><a href="msn.asp?action=delete&id=<%=RecSet("id")%>">
	  <font face="Verdana" size="2">
	  <span style="background-color: #EAF8FF; text-decoration:none">Radera</span></font></a><hr color="#1E2535" size="1"></td></tr>
    
<%
X=X+1
RecSet.MOVENEXT
LOOP

If RecSet.PageCount > 1 Then
For i = 1 To RecSet.PageCount
If i <> intPage Then
Response.Write("<a href=""?page=" & i & """>" & i & "</a> ")
Else
Response.Write("[" & i & "] ")
End If
Next
End If

RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>  
</table>

BiasseMedlem sedan aug. 2003480 inlägg

14 maj 2007 19:08#3

Måste krångla vidare på detta ändå.... Hittar inget om det jag undrar nu som funkar.

I det övre härså fårjag allt att ligga i klickmeny från 1 och stigande.

Men helst vill jag ha det så att det ligger en meny från a tillö såman kan välja på namn i bokstavs ordning. Hur ska det se ut då?

SnakesMedlem sedan okt. 2004392 inlägg

14 maj 2007 19:22#4

Menar du att du vill ha länkarna längst ner A B C D E F G H.. istället för 1 2 3 4 5 6...

I så fall kan du kasta ditt paging system och bara välja namn som börjar på bokstaven a (tex) i SQL queryn. Ta en titt på denna: http://www.webforum.nu/showthread.php?t=12406

EDIT:
Ville ge extra uppmärksamhet till det LarsG skrev:

sql = "select distinct left(username,1) from members order by 1"

Jag har aldrig testat något sånt, men om det funkar så är det ju perfekt.

EDIT (igen):
Markera tråden som olöst igen, jag kan se folk ignorera denna tråd då den är redan löst, då kan du förlora hjälp som kanske skulle hjälpa dig lösa ditt nya problem.