Hur ska det lösas?

http://www.webforum.nu/showthread.php?s=&threadid=38096

Tack OveRRidE för tipset ska kolla om det funkar

Du har inte hört talas om response.write? ;)
(Syftar på kodväxlingarna)

Kan du ge mig exempel hur gör man?

Response.Write funkar såhär:

Response.Write "Sträng som ska skrivas"

Du kan använda parenteser runt strängen också om du vill... Alltså:

Response.Write ("Sträng som ska skrivas")

Är det paging du vill lära dig tipsar jag gärna om Vides guide på webeye.nu :)

OBS ingen paging här, men färre "kodväxlingar"

<% 
Dim connect, query, senaste, test 
set connect = server.createobject("ADODB.connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" 
Set senaste = Server.CreateObject("ADODB.Recordset") 
query = "SELECT * FROM items Where test='on' ORDER BY dateCreated DESC" 
senaste.Open query, Connect 
Set RecSet = Server.CreateObject("ADODB.Recordset") 

SQL = "DELETE FROM items WHERE dateCreated < #" & dateAdd("d",-30,Date) & "#" 
RecSet.Open SQL, Connect,1,2 
Do Until senaste.EOF 

response.write "<tr><td><a href=""detail.asp?item=" & senaste("id") & """>" & senaste("item") & "</a>"
response.write "</td><td> Categori:"

select case  senaste("category")
	case "categori1"
		response.write categori1
	case "categori2"
		response.write categori2
	case "categori3"
		response.write categori3
	case "categori4"
		response.write categori4
	case "categori5"
		response.write categori5
end select

response.write "</td><td>"
response.write " Pris:" & senaste("price") & " Kr </td></tr> 

senaste.MoveNext 
Loop 

senaste.Close 
Set senaste = Nothing 
%>

Schysst att du orkar ändra i hans kod, Solbulle. Sånt orkar jag inte med. Får bättra mig.

*Bortse från detta meddelande, som egentligen, inte har nån mening.* Eller jo, en hyllning till Solbulle är det ju ;)

select case  senaste("category")
	case "categori1"
		response.write categori1
	case "categori2"
		response.write categori2
	case "categori3"
		response.write categori3
	case "categori4"
		response.write categori4
	case "categori5"
		response.write categori5
end select

Borde kunna ersättas med:

Response.write eval(senaste("category"))

Mvh,

Hupp, ehurm... jo det skulle man nog kunna göra, snacka om smidigt. :)
Men ni fattar principen va? :e

Tack för all tips!
Men frågan är finns det någon som kan implementera nuvarande kod till Pagin som visar 20 sidor och 20 till med nästa knapp också vidare.
<%
Dim connect, query, senaste, test
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set senaste = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM items Where test='on' ORDER BY dateCreated DESC"
senaste.Open query, Connect
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "DELETE FROM items WHERE dateCreated < #" & dateAdd("d",-30,Date) & "#"
RecSet.Open SQL, Connect,1,2
Do Until senaste.EOF
%>

<tr>
<td> <a href="detail.asp?item=<%=senaste("id")%>"><%=senaste("item")%></a>
</td>
<td> Categori:
<% if senaste("category")="categori1" then %>
<%=categori1%>
<% elseif senaste("category")="categori2" then %>
<%=categori2%>
<% elseif senaste("category")="categori3" then %>
<%=categori3%>
<% elseif senaste("category")="categori4" then %>
<%=categori4%>
<% elseif senaste("category")="categori5" then %>
<%=categori5%>
<% end if %>
</td>
<td> Pris: <%=senaste("price")%> Kr </td>
</tr>
<%

senaste.MoveNext
Loop
senaste.Close
Set senaste = Nothing
%>

Pager:
http://www.webforum.nu/showthread.php?s=&threadid=38096

Hello!
Är det ingen som vågar sig på

Har du försökt själv? Du har ju fått länkarna.

Om du bara viste hur mycket jag har kämpat, men jag lyckas inte att få det att funka
Snälla hjälp!

Har gjort ett försök att implentera PatrikB's script på din kod, givetvis icke testad, men du kan ju pröva i alla fall.

<% 
Dim connect, query, senaste, test

'## -- hur många inlägg ska visas per sida --
intPageSize = 10

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")

'## -- om ingen querystring med sidvärde hittas, visa då första sidan --
If intPage = "" Then intPage = 1

set connect = server.createobject("ADODB.connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" 
Set senaste = Server.CreateObject("ADODB.Recordset") 
query = "SELECT * FROM items Where test='on' ORDER BY dateCreated DESC" 
'senaste.Open query, Connect

Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "DELETE FROM items WHERE dateCreated < #" & dateAdd("d",-30,Date) & "#" 
RecSet.Open SQL, Connect,1,2
	RecSet.Close
	Set RecSet= Nothing

		'## -- hur många poster ska visas per sida --
		senaste.PageSize = intPageSize
		
		'## -- öppna och hämta alla records --
		senaste.Open query, Connect, 3, 1	'Osäker på: , 3, 1 
		
		'## -- vilken sida i recordset uppdelningen ska visas --
		senaste.AbsolutePage = intPage
		
		'## -- hur många sidor finns i recordset uppdelningen --
		intTotalPages = senaste.PageCount
	
		If senaste.EOF Then
			Response.Write "Det finns inga inlägg."
		Else
			'## -- lista alla inlägg som finns i db --
			Do Until senaste.EOF or intRecordCount >= intPageSize
			
				intRecordCount = intRecordCount + 1

response.write "<tr><td><a href=""detail.asp?item=" & senaste("id") & """>" & senaste("item") & "</a>"
response.write "</td><td> Categori:"
Response.write eval(senaste("category"))
response.write "</td><td>"
response.write " Pris:" & senaste("price") & " Kr </td></tr> 

senaste.MoveNext 
Loop 
End If

	'## -- clean up --
	senaste.Close
	Set senaste= Nothing
	
	Connect.Close
	Set Connect= Nothing

'## -- visa sidnavigeringen --
'## -- intPage = vilken sida som ska visas --
'## -- intTotalPages = hur många sidor som recordsetet är uppdelat i --
Call PageNavigation(intPage, intTotalPages)

'## -- skapa sid-navigering --
Sub PageNavigation(ByVal WichPage, ByVal HowManyPages)
	Dim strScriptName
	
	'## -- vilken sida ska navigeringen länka till --
	strScriptName = Request.ServerVariables("SCRIPT_NAME")
	
	'## -- visa föregående, länkat eller olänkat beroende på vilken sida som visas --
	If CInt(WichPage) > 1 Then
		Response.Write "<A href='" & strScriptName & "?" & _
					"page=" & WichPage - 1 & "'><< Föregående</A> "
	Else
		Response.Write "<< Föregående "
	End If
	
	'## -- lista ut alla sidnummer --
	For I = 1 To HowManyPages
		If CInt(WichPage) <> I Then
			Response.Write "<A href='" & strScriptName & "?" & _
						"page=" & I & "'>" & I & "</A> "
		Else
			Response.Write "[ <B>" & I & "</B> ]"
		End If
	Next
	
	'## -- visa Nästa, länkad eller olänkad beroende på vilken sida som visas --
	If CInt(WichPage) < CInt(HowManyPages) Then
		Response.Write "<A href='" & strScriptName & "?" & _
					"page=" & WichPage + 1 & "'>Nästa >>"
	Else
		Response.Write "Nästa >>"
	End If
	
End Sub
%>

Tack snälla
Mvh Ivar

Tack tack Solbulle funkar fint.
MVH Ivar