Hej, kanske någon som kan tipsa mig om hur jag kan skriva ut ett recordset med att visa te.x 2 eller flera dataposter på samma rad innan ny rad inträder. Har försökt att modifiera ett script som finns här på Pellesoft med att visa ett visst antal poster per sida men får inte till det i slutet. Tacksam för tips!

Nu vet jag inte vilket tips du har försökt att modifiera, men du kan ju använda dig av en IF sats.
T ex:

BreakNo = 1 'startvärde på räknaren
' Din loop här
IF BreakNo  = 2 THEN
  Response.write "</tr> </tr>"
  BreakNo = 0
END IF
Mera kod.

BreakNo =BreakNo + 1

Det tips jag försökte mig på att modifiera var tip 1561 active server pages,
där finns en räknare men tydligen har jag inte "kläm" på det.
Kanske är det bättre att börja om?

Hur ser din kod ut nu som du har för att läsa igenom databasen?

Mvh,
Thomas

Så här ser den ut nu och den visar bara de 6 första på raden,vill ju att det fortsätter till nästa rad osv.
<%
iPageSize = 6
If Request.Querystring("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "eh","",""
sql="SELECT kundnr, bild1, fornamn, efternamno, ort, agent FROM[huvud] WHERE kundtyp = 'female'"
sql=sql & "order by fornamn"
Set rs=Server.CreateObject("ADODB.Recordset")

rs.PageSize = iPageSize
rs.CacheSize = iPageSize

'response.write "SQL-query:"&sql&""
rs.Open sql,conn,3,3

iPageCount = rs.PageCount
If iPageCurrent > iPageCount Then
iPageCurrent = iPageCount
End If
If iPageCurrent < 1 Then
iPageCurrent = 1
End If
If iPageCount = 0 Then
Response.Write "RecordSet är tomt!"
Else
rs.AbsolutePage = iPageCurrent
iRecordsShown = 0

%>

<center>

<table border="0" cellpadding="0" cellspacing="0">
<tr height="175">
<%
Do While iRecordsShown < iPageSize And Not rs.EOF
%>

<td width="88" valign="middle" align="center" height="175"><img src='Bilder/modeller/<%=rs("bild1")%>' width="78" height="108" border="0"><br>
<h5><font face="Arial" size="1"><%=rs("fornamn")%><br>
<%=rs("efternamno")%><input type="hidden" name="kundnr" value="<%=rs("kundnr")%>" size="20"></font></h5>
</td>


<%
iRecordsShown = iRecordsShown + 1
rs.Movenext
Loop
End if
'Rs.Close
'conn.Close
%>

Testa ändra till följande...

<%
iPageSize = 6
If Request.Querystring("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "eh","",""
sql="SELECT kundnr, bild1, fornamn, efternamno, ort, agent FROM[huvud] WHERE kundtyp = 'female'"
sql=sql & "order by fornamn"
Set rs=Server.CreateObject("ADODB.Recordset")

rs.PageSize = iPageSize
rs.CacheSize = iPageSize

'response.write "SQL-query:"&sql&""
rs.Open sql,conn,3,3

iPageCount = rs.PageCount
If iPageCurrent > iPageCount Then
iPageCurrent = iPageCount
End If
If iPageCurrent < 1 Then
iPageCurrent = 1
End If
If iPageCount = 0 Then
Response.Write "RecordSet är tomt!"
Else
rs.AbsolutePage = iPageCurrent
iRecordsShown = 0

%>

<center>

<table border="0" cellpadding="0" cellspacing="0">
<tr height="175">
<%
Dim iSideCount, iMaxSideCount
iSideCount = 0
iMaxSideCount = 2

Do While iRecordsShown < iPageSize And Not rs.EOF
If iSideCount = iMaxSideCount Then
Response.Write "</tr><tr height=""175"">"
iSideCount = 0
End If
%>

<td width="88" valign="middle" align="center" height="175"><img src='Bilder/modeller/<%=rs("bild1")%>' width="78" height="108" border="0"><br>
<h5><font face="Arial" size="1"><%=rs("fornamn")%><br>
<%=rs("efternamno")%><input type="hidden" name="kundnr" value="<%=rs("kundnr")%>" size="20"></font></h5>
</td>


<%
iSideCount = iSideCount + 1
iRecordsShown = iRecordsShown + 1
rs.Movenext
Loop
End if
'Rs.Close
'conn.Close
%>


Mvh,
Thomas

Tack, Tack, Tack, hur kan jag återgälda dig?
Du har sparat åtskilliga timmar åt mig.
Tack än en gång!
Med bästa hälsningar
Peter

Varsågod, det var så lite så =)
Var inte så stor sak.
Om du inte har förstått det än justerar du hur många som ska visas i sidled med variabeln iMaxSideCount.
Nu är den satt till 2, vill du ha fler eller färre i sidled ändrar du den hel enkelt, men minsta värdet den får ha är 1.

Mvh,
Thomas

Japp, såg detta -Kanon!
Mvh
Peter

Mer läsvänlig samt några små förändringar:
<code>
<%
Const iPageSize = 6
Const iColumnsInRow = 2

Const adOpenStatic = 3
Const adLockReadOnly = 1

Dim rs
Dim conn

Dim strSQL

Dim iPageCount
Dim iPageCurrent
Dim iColumnCount

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "eh"

strSQL = "SELECT kundnr, bild1, fornamn, efternamno, ort, agent" & vbCrLf & _
"FROM[huvud]" & vbCrLf & _
"WHERE kundtyp = 'female'" & vbCrLf & _
"ORDER BY fornamn"
'Response.Write "SQL-query:"& strSQL

Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = iPageSize
rs.CacheSize = iPageSize
rs.Open strSQL, conn, adOpenStatic, adLockReadOnly

If rs.EOF Then
Response.Write "RecordSet är tomt!"
Else
iPageCount = rs.PageCount
iPageCurrent = Trim(Request.Querystring("page"))
If IsNumeric(iPageCurrent) Then
iPageCurrent = CLng(iPageCurrent)
If iPageCurrent > iPageCount Then
rs.AbsolutePage = iPageCount
ElseIf iPageCurrent > 1 Then
rs.AbsolutePage = iPageCurrent
End If
End If
iPageCurrent = rs.AbsolutePage

Response.Write "<center>"
Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"">"
For iRecordsShown = 1 To iPageSize
Response.Write "<tr height=""175"">"
For iSideCount = 1 To iMaxSideCount
%>
<td width="88" valign="middle" align="center" height="175">
<img src='Bilder/modeller/<%=rs("bild1")%>' width="78" height="108" border="0"><br>
<h5><font face="Arial" size="1">
<%=Server.HTMLEncode(rs("fornamn"))%><br>
<%=Server.HTMLEncode(rs("efternamno"))%>
<input type="hidden" name="kundnr" value="<%=rs("kundnr")%>" size="20">
</font></h5>
</td>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
Response.Write "</tr>"
If rs.EOF Then Exit For
Next
End if
Rs.Close
Set Rs = Nothing

conn.Close
Set conn = Nothing
%>
</code>