---
title: "Problem med script som \"krockar\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9285-problem-med-script-som-krockar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Korak"
published: "2001-05-05T10:46:00.000Z"
updated: "2001-05-05T10:46:00.000Z"
replies: 0
views: 153
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9285-problem-med-script-som-krockar"
---

# Problem med script som "krockar"

## #1 — Korak, 2001-05-05T10:46Z

Hur ska jag göra för att få in ett till likadant script som nedanför, på samma sida, men som istället länkar till updates.asp och updates.mdb Alltså både "news" och "updates" på samma sida. Jag har försökt men det blir bara fel. Antar att jag måste "skala av" det andra scriptet på något sätt så att det inte blir dubbla frågor mm. Jag får helt enkelt inte till det.

\<!-- #INCLUDE FILE="adovbs.inc" --\>
\<html\>
\<head\>
\</head\>
\<body\>

\<%

CONN_STRING = "DBQ=" & Server.MapPath("news.mdb") & ";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (\*.mdb)};"
''buil string for connection my database file is link.mdb in store in the same folder of this file.

Dim iPageSize 
Dim iPageCount 
Dim iPageCurrent 
Dim strOrderBy 
Dim strSQL 
Dim objPagingConn 
Dim objPagingRS 
Dim iRecordsShown 
Dim I 

iPageSize = 1
''set page size

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

strSQL = "select \* from message order by ID desc;"

'' select sql from the table..my table in news.mdb name "message"

Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING
''open connection

Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount

If iPageCurrent \> iPageCount Then iPageCurrent = iPageCount
If iPageCurrent \< 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "\<center\>\<font color=red size=3\>No records found!\</font\>\</center\>"
Else
objPagingRS.AbsolutePage = iPageCurrent

%\> \<%
iRecordsShown = 0
Do While iRecordsShown \< iPageSize And Not objPagingRS.EOF
dagar=DateDiff("d", Date, objPagingRS("PostDate"))+2
if dagar \>= 0 then 
%\> \<%=objPagingRS("Postdate")%\>\<br\>
\<a href="news.asp?id=\<%=objPagingRS("ID")%\>&mode=read2" target="mainFrame"\>\<%=objPagingRS("Subject")%\>\</a\> 
\<%else%\> \<font color="#999999"\>\<%=objPagingRS("Postdate")%\>\</font\>\<br\>
\<a href="news.asp?id=\<%=objPagingRS("ID")%\>&mode=read2" target="mainFrame"\>\<%=objPagingRS("Subject")%\>\</a\> 
\<%
end if
iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
%\> \<%
End If

objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing

If iPageCurrent \<\> 1 Then
%\> \<%
End If
%\> 

\</body\>
\</html\>

Tack på förhand!
//Korak

Permalänk: https://www.webforum.nu/p/9285

---

Tråden på webben: https://www.webforum.nu/amne/asp/9285-problem-med-script-som-krockar