Session & paging

6 svar · 212 visningar · startad av Ceeron 10 juni 2003

CeeronMedlem sedan aug. 2000378 inlägg

Trådstart10 juni 2003 16:06#1

Har en sidan som visar bilder som finns i en mapp... längst ner på sidan ska jag kolla om Session("ID") e samma som anvID för mappen typ... Det funkar på sida ett... men sen om man går till sida två får man:

Felaktig variabeltyp.

kod:

		listBilder = "select bilder.*, anv.anv, mappar.namn as mappNamn from bilder, anv, mappar where " & _
		" bilder.mappID = " & intMapp & _
		" and anv.anvID = bilder.anvID " & _
		" and mappar.mappID = bilder.mappID " & _
		" order by bilder.datum "

		sida = request.querystring( "sida" )
		If sida = "" then sida = 1 End If

		With objRS
		 .Cursorlocation = 3
		 .Open listBilder, objConnect
		End With

		If (not objRS.EoF) or (not objRS.BoF) Then

			Write "Här ser du alla bilder som finns i mappen <b>" & objRS("mappNamn") & "</b><br /><br />"
			Write "<table width=""100%"">"

		If Not objRS.EoF then
		 objRS.pagesize = 10
		 objRS.absolutepage = sida
		 intPages = cint( objRS.pagecount )
		 intCurrentPost = 0
		End If

		Write "<table style=""border: 0px;"">"

		While Not objRS.EoF and intCurrentPost < objRS.pagesize

			Write "<tr><td style=""padding: 3px"" valign=""top""><a href=""?bid=" & objRS("bildID") & "&sida=" & sida & """><img width=""50"" height=""41"" src=""" & objRS("anvID") & "/" & objRS("fil") & """ border=""0""></a></td><td valign=""top""><b><a href=""?bid=" & objRS("bildID") & "&sida=" & sida & """>" & objRS("fil") & "</a></b> - " & objRS("datum") & "<br />"
			Write objRS("beskrivning") & "</td></tr>"

  		intCurrentPost = intCurrentPost + 1
  		objRS.Movenext
		Wend

		write "</table>"

'paging knappar....
		tebax

		[b]If Session("ID") <> 0 and Session("ID") = cint(objRS("anvID")) Then[/b]
			
			Write "<br /><form enctype=""multipart/form-data"" action=""upp.asp"">"
			Write "<input type=""hidden"" value=""" & intMapp & """ />"
			Write "Riktiga: <input type=""file"" name=""File1"" /><br />"
			Write "Thumb: <input type=""file"" name=""File2"" /><br />"
			Write "Datum: <input type=""text"" name=""datum"" size=""10"" maxlength=""10"" /> "
			Write " Beskrivning:<br /><input type=""text"" size=""40"" name=""beskrivning"" /><br />"
			Write "<input type=""submit"" value=""Ladda upp"" />"
			Write "</form>"

		End If

m_soderlundMedlem sedan sep. 20026 425 inlägg

10 juni 2003 16:12#2

Kanske denna kod fungerar bättre:

If Len(Session("ID"))>0 and Cint(Session("ID")) = Cint(objRS("anvID")) Then

@ndersMedlem sedan juni 200032 967 inlägg

10 juni 2003 16:13#3

Du kan plocka bort nolljämförelsen, eftersom ett userid aldrig är 0 (eller hur?).

Se också till att värdena du jämför är av samma typ. Jag föredrar att jämföra strängar om man inte är säker på att det verkligen är ett tal där.

If CStr(Session("ID")) = CStr(objRS("anvID")) Then

Mvh

CeeronMedlem sedan aug. 2000378 inlägg

10 juni 2003 16:32#4

problemet kvarsitter...
det e ju just det att det funkar på sida 1 men inte när man har klickat sig vidare till sida två lr så

uppdate: verkar som jag får detta om typ erm det inte listas så många bilder ur mappen... funderar på om nåt e fel med sql lr nåt...

CeeronMedlem sedan aug. 2000378 inlägg

10 juni 2003 16:49#5

gjorde även en ny koll

		sql = "select anvID from bilder where mappID = " & intMapp & " "
		dbOpen(sql)

			If Len(Session("ID"))>0 and CStr(Session("ID")) = CStr(objRS("anvID")) Then
			
			Write "<br /><form enctype=""multipart/form-data"" action=""upp.asp"">"
			Write "<input type=""hidden"" value=""" & intMapp & """ />"
			Write "Riktiga: <input type=""file"" name=""File1"" /><br />"
			Write "Thumb: <input type=""file"" name=""File2"" /><br />"
			Write "Datum: <input type=""text"" name=""datum"" size=""10"" maxlength=""10"" /> "
			Write " Beskrivning:<br /><input type=""text"" size=""40"" name=""beskrivning"" /><br />"
			Write "<input type=""submit"" value=""Ladda upp"" />"
			Write "</form>"

			End If
		dbClose

även denna kod genererar samma problem
va e fel?!?!?! blir helt galen...

@ndersMedlem sedan juni 200032 967 inlägg

10 juni 2003 16:53#6

Är du säker på att det är den raden det blir fel på? Vad är dbopen() och hur ser den ut?

CeeronMedlem sedan aug. 2000378 inlägg

10 juni 2003 17:00#7

Det är den raden det blir fel på när jag kollar om anvID e samma som SessionID

	Function dbOpen(sql)
		Set objConnect = Server.CreateObject("ADODB.Connection")
		objConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("alkisarna.mdb")

		Set objRS = objConnect.Execute(sql)
	End Function

bara en funktion för att öppna databasen samt öppna att rs

observera dock att jag gjorde bara denna på test föregående har annan öppning me vanligt rs