Är ett bra script du kan leka med.
Permalänk: https://www.webforum.nu/p/1902519
## #3 — Jeppeweb, 2006-11-28T08:31Z
Tankade ned scriptet.. vart ska denna kod läggas in någonstans i min kod och hur skall den se ut?
TACKSAM FÖR HJÄLP!
```
<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'// © 2003
'// Pagingsystem med GetRows()
'// Skapat 23 Maj 2003 av Palle Zingmark
'// www.palleman.nu | info@palleman.nu
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim
Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("databas.mdb")
Set RecSet = Connect.Execute("SELECT fldName FROM tblTable ORDER BY fldName")
If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
RecSet.Close : Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering
If IsArray(arrRecSet) Then
'// Poster per sida
intPostsPerPage = 20
'// Navigeringshantering
If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
intFirstPost = (intPage - 1) * intPostsPerPage
intTotalPosts = UBound(arrRecSet, 2)
intPages = ((intTotalPosts)\intPostsPerPage)+1
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
intLastPost = UBound(arrRecSet, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Skriv ut posterna
For i = intFirstPost To intLastPost
strName = arrRecSet(0,i)
Response.Write " "& strName &"
"& vbcrlf
Next
Response.Write vbcrlf &""& vbcrlf &""& vbcrlf &""& vbcrlf &""& vbcrlf
'// Navigering, välj själv knappar eller text
Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'// Fanns inga poster
Else
Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
```
Permalänk: https://www.webforum.nu/p/1902525
## #4 — voigtann1, 2006-11-28T08:48Z
börja med att ersätta SQL strängen....
Permalänk: https://www.webforum.nu/p/1902534
## #5 — Jeppeweb, 2006-11-28T09:04Z
Så...?
```
<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'// © 2003
'// Pagingsystem med GetRows()
'// Skapat 23 Maj 2003 av Palle Zingmark
'// www.palleman.nu | info@palleman.nu
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim
Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering
set connect = server.createobject("ADODB.connection")
connect.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=; DATABASE=; UID=; PWD=;"
Set RecSet = Connect.Execute("SELECT forum FROM svar ORDER BY datum")
If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
RecSet.Close : Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering
If IsArray(arrRecSet) Then
'// Poster per sida
intPostsPerPage = 20
'// Navigeringshantering
If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
intFirstPost = (intPage - 1) * intPostsPerPage
intTotalPosts = UBound(arrRecSet, 2)
intPages = ((intTotalPosts)\intPostsPerPage)+1
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
intLastPost = UBound(arrRecSet, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Skriv ut posterna
For i = intFirstPost To intLastPost
strName = arrRecSet(0,i)
Response.Write " "& strName &"
"& vbcrlf
Next
Response.Write vbcrlf &" | "& vbcrlf &"
"& vbcrlf &""& vbcrlf &""& vbcrlf
'// Navigering, välj själv knappar eller text
Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'// Fanns inga poster
Else
Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
```
Permalänk: https://www.webforum.nu/p/1902537
## #6 — voigtann1, 2006-11-28T09:11Z
.. nja... hade väl hellre använt din egna SQL som du redan har skapat:
```
"Select * from forum where kat='"&SafeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
```
Permalänk: https://www.webforum.nu/p/1902539
## #7 — Jeppeweb, 2006-11-28T09:17Z
okay then.
```
<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'// © 2003
'// Pagingsystem med GetRows()
'// Skapat 23 Maj 2003 av Palle Zingmark
'// www.palleman.nu | info@palleman.nu
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim
Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering
set connect = server.createobject("ADODB.connection")
connect.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=195.128.174.35; DATABASE=; UID=; PWD=;"
"Select * from forum where kat='"&SafeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
RecSet.Close : Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering
If IsArray(arrRecSet) Then
'// Poster per sida
intPostsPerPage = 20
'// Navigeringshantering
If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
intFirstPost = (intPage - 1) * intPostsPerPage
intTotalPosts = UBound(arrRecSet, 2)
intPages = ((intTotalPosts)\intPostsPerPage)+1
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
intLastPost = UBound(arrRecSet, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Skriv ut posterna
For i = intFirstPost To intLastPost
strName = arrRecSet(0,i)
Response.Write " "& strName &"
"& vbcrlf
Next
Response.Write vbcrlf &" | "& vbcrlf &"
"& vbcrlf &""& vbcrlf &""& vbcrlf
'// Navigering, välj själv knappar eller text
Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'// Fanns inga poster
Else
Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
```
Vart smäller jag in denna kod i min andra kod nu då? För det lyckas jag ej med :(
Tacksam för hjälp
Permalänk: https://www.webforum.nu/p/1902541
## #8 — voigtann1, 2006-11-28T09:54Z
Du kan först inte ta bort ditt Recordset ...du behöver ju ditt recordset för att kunna hämta data.
```
Set RecSet = Connect.Execute("DIN SQL HÄR")
```
då jag menade att använda din SQL fråga :) inte att du skulle ta bort hela recordset kopplingen till databasen ;) .
Mitt råd är att du får nog läsa lite mer hur recordset och datahämtning fungera.
PS Du behöver inte länka all kod hela tiden ;)
Ett annat tips är inkludera bara det du vill ha med dig ur din SQL:
TradID,rubrik,epost,username,datum
då din databas kan innehålla information som inte ens hämtas ut.
Så ersätt \* med de tabeller du vill hämta ut.
Permalänk: https://www.webforum.nu/p/1902559
## #9 — voigtann1, 2006-11-28T10:02Z
```
<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'// © 2003
'// Pagingsystem med GetRows()
'// Skapat 23 Maj 2003 av Palle Zingmark
'// [url]www.palleman.nu[/url] | [email]info@palleman.nu[/email]
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim
Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering
set connect = server.createobject("ADODB.connection")
connect.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=; DATABASE=; UID=; PWD=;"
dim SQL
sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&SafeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
Set RecSet = Connect.Execute(sql)
If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
RecSet.Close : Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering
If IsArray(arrRecSet) Then
'// Poster per sida
intPostsPerPage = 10
'// Navigeringshantering
If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
intFirstPost = (intPage - 1) * intPostsPerPage
intTotalPosts = UBound(arrRecSet, 2)
intPages = ((intTotalPosts)\intPostsPerPage)+1
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
intLastPost = UBound(arrRecSet, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Skriv ut posterna
For i = intFirstPost To intLastPost
''''''''''''''''''''''''''''''
'''' DIN LAYOUT HÄR
'''' arrRecSet(0,i) = TradID
'''' arrRecSet(1,i) = Rubrik
'''' arrRecSet(2,i) = epost
'''' arrRecSet(3,i) = username
'''' arrRecSet(4,i) = datum
'''''''''''''''''''''''''''''''
TradID = arrRecSet(0,i)
strRubrik = arrRecSet(1,i)
strepost = arrRecSet(2,i) =
strusername = arrRecSet(3,i)
strdatum = arrRecSet(4,i)
Response.Write " "& strName &"
"& vbcrlf
Next
Response.Write vbcrlf &" | "& vbcrlf &"
"& vbcrlf &""& vbcrlf &"| "& vbcrlf
'// Navigering, välj själv knappar eller text
Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'// Fanns inga poster
Else
Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
```
Nu bör du klarar flytta din layout in i denna kod...
komihåg om du skriver:
\ |
så skriver du:
response.write "\ | " eller response.write "\ | "
Permalänk: https://www.webforum.nu/p/1902566
## #10 — Jeppeweb, 2006-11-28T10:10Z
```
strepost = arrRecSet(2,i) =
```
Microsoft VBScript compilation error '800a03ea'
Syntax error
/cat_open.asp, line 67
strepost = arrRecSet(2,i) =
\---------------------------^
tack för hjälpen hittils :)
Permalänk: https://www.webforum.nu/p/1902570
## #11 — voigtann1, 2006-11-28T10:11Z
..... tja.. läs felmeddelandet och kolla på koden
kanske ska = bort i slutet?
Permalänk: https://www.webforum.nu/p/1902571
## #12 — Jeppeweb, 2006-11-28T10:19Z
stämmer :P
```
dim SQL
sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
Set RecSet = Connect.Execute(sql)
If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
RecSet.Close : Set RecSet = Nothing
```
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'safeSQL'
/cat_open.asp, line 24
Permalänk: https://www.webforum.nu/p/1902575
## #13 — voigtann1, 2006-11-28T10:23Z
du har inte safeSQL funktionen med i din kod...
Permalänk: https://www.webforum.nu/p/1902579
## #14 — Jeppeweb, 2006-11-28T10:37Z
sen då.. ska jag skriva response.write före allt detta? :S
```
<%
// Öppnar SQL-satsen för trådar i respektive kategori.
Set RS = ObjConn.Execute("Select * from forum where kat='"&SafeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc")
// Kontrollerar om det är några trådar.
IF RS.Eof then
Response.Write("Inga forumsinlägg att visa.Gå tillbaka")
else
%><%
// Avslutar kontrollen "Några trådar i respektive kategori."
End if
// Stänger Recordset och databasen.
RS.Close : Set RS = Nothing
ObjConn.Close : Set RS = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/1902583
## #15 — voigtann1, 2006-11-28T10:39Z
du kan ju skapa en funktion / funktioner som delar upp din layout... annars ja
\+ mycket av din kod har redan klarats upp..
Permalänk: https://www.webforum.nu/p/1902584
## #16 — Jeppeweb, 2006-11-28T10:49Z
Nu vet jag inte om de här e möjligt.. men iaf;
Kategori » Allmänt
Skapa ny tråd
Trådar: Antal svar:
Type mismatch
/cat_open.asp, line 75
```
<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'// © 2003
'// Pagingsystem med GetRows()
'// Skapat 23 Maj 2003 av Palle Zingmark
'// www.palleman.nu | info@palleman.nu
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim
Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering
set connect = server.createobject("ADODB.connection")
connect.Open "DRIVER={MySQL ODBC 3.51 Driver};S
dim SQL
sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
Set RecSet = Connect.Execute(sql)
If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
RecSet.Close : Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering
If IsArray(arrRecSet) Then
'// Poster per sida
intPostsPerPage = 10
'// Navigeringshantering
If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
intFirstPost = (intPage - 1) * intPostsPerPage
intTotalPosts = UBound(arrRecSet, 2)
intPages = ((intTotalPosts)\intPostsPerPage)+1
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
intLastPost = UBound(arrRecSet, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Skriv ut posterna
For i = intFirstPost To intLastPost
%>
<%
TradID = arrRecSet(0,i)
strRubrik = arrRecSet(1,i)
strepost = arrRecSet(2,i)
strusername = arrRecSet(3,i)
strdatum = arrRecSet(4,i)
Response.Write " "& strName &"
"& vbcrlf
Next
Response.Write vbcrlf &" | "& vbcrlf &"
"& vbcrlf &""& vbcrlf &"| "& vbcrlf
'// Navigering, välj själv knappar eller text
Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
'// Fanns inga poster
Else
Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
```
Permalänk: https://www.webforum.nu/p/1902589
## #17 — voigtann1, 2006-11-28T10:52Z
Du har inget RS() öppet.. du får använda Arraylist för det....
Mitt råd att skit i layouten just nu du MÅSTE lära dig hur dina koder / andras som du har laddat ner innan du börja "copy/paste"-hell
ta och flytta små delar av koderna och få den delen att fungera innan du hoppar på nästa..
Permalänk: https://www.webforum.nu/p/1902590
## #18 — Jeppeweb, 2006-11-28T11:04Z
Microsoft VBScript compilation error '800a040e'
'loop' without 'do'
/cat_open.asp, line 63
Loop
^
```
dim SQL
sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
Set RecSet = Connect.Execute(sql)
If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
RecSet.Close : Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering
If IsArray(arrRecSet) Then
'// Poster per sida
intPostsPerPage = 10
'// Navigeringshantering
If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
intFirstPost = (intPage - 1) * intPostsPerPage
intTotalPosts = UBound(arrRecSet, 2)
intPages = ((intTotalPosts)\intPostsPerPage)+1
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
intLastPost = UBound(arrRecSet, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Skriv ut posterna
For i = intFirstPost To intLastPost
Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(RS("tradID"))&"'")
Count.Close : Set Count = Nothing
[b]RS.Movenext
Loop[/b]
// Avslutar kontrollen "Några trådar i respektive kategori."
End if
// Stänger Recordset och databasen.
RS.Close : Set RS = Nothing
ObjConn.Close : Set RS = Nothing
```
tacksam för hjälpen
Permalänk: https://www.webforum.nu/p/1902595
## #19 — voigtann1, 2006-11-28T11:19Z
Gör om allt från början...
ta "min" kod exempel och börja Smått flytta ditt utseende...
Permalänk: https://www.webforum.nu/p/1902600
## #20 — Jeppeweb, 2006-11-28T11:37Z
```
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
intLastPost = UBound(arrRecSet, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Skriv ut posterna
For i = intFirstPost To intLastPost
Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(Request.Querystring("tradID"))&"'")
response.write " |
