---
title: "Kan man inte inkludera 2 asp-filer i ett dokument?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/65049-kan-man-inte-inkludera-2-asp-filer-i-ett-dokument"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ChiefJoseph"
published: "2003-01-16T08:06:32.000Z"
updated: "2003-01-16T09:31:35.000Z"
replies: 6
views: 292
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/65049-kan-man-inte-inkludera-2-asp-filer-i-ett-dokument"
---

# Kan man inte inkludera 2 asp-filer i ett dokument?

## #1 — ChiefJoseph, 2003-01-16T08:06Z

Jag har en sida med 2 include filer. 
En omröstning och ett newsscript. Det verkar som om inte omröstningen funkar när newsscriptet är där.

Kan det vara så????

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

## #2 — @nders, 2003-01-16T08:13Z

Du kan inkludera hur många filer du vill. Hur fungerar det inte? Kod?

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

## #3 — ChiefJoseph, 2003-01-16T08:26Z

När jag röstar så och den skall registrera och gå tillbaka till samma dokument får jag bara upp ett standard; sidan kan inte visas:
Här är själa pollen till att börja med:

\<%Response.Buffer = "True"%\>

\<!--#Include file="settings.asp"--\>

\<!--
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
Omröstning v2
Åsa Gruvsjö © 2001 
<https://www.gruvsjo.com>  
<Asa@gruvsjo.com>
	
Fri att använda om ni låter copyrightkoden stå kvar!
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
\--\>

\<%
'############################################################################################################
'----------------------------------------------------SENASTE OMRÖSTNINGEN----------------------------------------------------------------------------------
'############################################################################################################

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

Storlek = breddF/100

If Request.Querystring("do") = "" Then

   Set RecSet = Conn.Execute("SELECT Top 1 \* From fraga Order by PollId desc")%\>

    \<table border="0" cellpadding="1" cellspacing="1" align="center" width="\<%=Bredd%\>"\>

   \<%If RecSet.EOF Then%\>

      \<tr\>
        \<td colspan="2"\>\<b\>Ingen fråga inlagd\</b\>\</td\>
      \</tr\>
   \<%Else%\>
  \<tr\> 
    \<td colspan="2"\>\<b\>\<%=RecSet("Fraga")%\>\</b\>\</td\>
  \</tr\>

    \<%Set Svar = Conn.Execute("SELECT \* From svar Where pollID="& RecSet("PollId") & " Order By svarnr")

    Set RS = Conn.Execute("SELECT sum(klick) As tot From svar Where pollID="& RecSet("PollId"))
    totalt = RS("tot")

    RS.Close
    Set RS = nothing

    If Svar.EOF Then%\>    
      \<tr\>
        \<td colspan="2"\>\<b\>Inga frågor!\</b\>\</td\>
      \</tr\>
   \<%End If

      Do Until Svar.EOF
        stat     = Svar("klick")
        If stat \<\> 0 Then
           res      = (stat/totalt)\* BreddF / Storlek
        Else
           res = "0"
        End If
       If Request.Cookies(sessionnamn1) = sessionnamn Then%\>
       \<tr\>
          \<td width="\<%=bredd%\>"\>\<%=Svar("svar")%\>\</td\>
          \<td rowspan="2" width="\<%=breddR%\>" valign="bottom" align="right"\>(\<%For i=1 to Len(stat)%\>\<%=Mid(stat,i,1)%\>\<%Next%\>)\</td\>
        \</tr\>
        \<tr\>
          \<td width="\<%=BreddF%\>" bgcolor="#d0d0d0" height="5"\>\<img src="polls/bilder/stapel.gif" width="\<%=Round(res,0)%\>%" height="5" border="1"\>\</td\>
        \</tr\>
       \<%Else%\>
       \<tr\>
          \<td width="\<%=bredd%\>"\>\<a href="\<%=sidan%\>?do=rosta&id=\<%=Svar("id")%\>&val=\<%=Svar("svarnr")%\>"\>\<%=Svar("svar")%\>\</a\>\</td\>
          \<td rowspan="2" width="\<%=breddR%\>" valign="bottom" align="right"\>(\<%For i=1 to Len(stat)%\>\<%=Mid(stat,i,1)%\>\<%Next%\>)\</td\>
        \</tr\>
        \<tr\>
          \<td width="\<%=BreddF%\>" bgcolor="#d0d0d0" height="5"\>\<img src="polls/bilder/stapel.gif" width="\<%=Round(res,0)%\>%" height="5" border="1"\>\</td\>
        \</tr\>
        \<%End If
       Svar.MoveNext
       Loop%\>
        \<tr\>
          \<td colspan="2"\>Number of votes \<%For i=1 to Len(totalt)%\>\<%=Mid(totalt,i,1)%\>\<%Next%\>\</td\>
        \</tr\>

\<%Svar.Close
Set Svar = nothing

End If%\>

        \<tr\>
          \<td colspan="2"\>\<hr\>\</td\>
        \</tr\>
        \<tr\>
          \<td colspan="2"\>\<a href="\<%=sidan%\>?do=gamla"\>Gamla\</a\> &nbsp; &nbsp; \<a href="admin.asp"\>Admin\</a\>\</td\>
        \</tr\>
 \</table\>

\<%End If

'############################################################################################################
'----------------------------------------------------KOLLAR OM MAN RÖSTAT-----------------------------------------------------------------------------------
'############################################################################################################

If Request.Querystring("do") = "rosta" Then

If Request.Cookies(sessionnamn1) = sessionnamn then 
  Response.Redirect sidan
Else
  Response.Redirect sidan & "?do=spara&id=" & Request.Querystring("id") & "&val=" & Request.QueryString("val")
End If

End If

'############################################################################################################
'----------------------------------------------------SPARAR RÖSTEN---------------------------------------------------------------------------------------------
'############################################################################################################

If Request.Querystring("do") = "spara" Then
   
Set RecSet = Conn.Execute("Select \* From svar Where id=" & Request.QueryString("id") & " And svarnr=" & Request.QueryString("val"))

Conn.Execute("Update svar Set klick=klick+1 Where id=" & Request.QueryString("id") & " And svarnr=" & Request.QueryString("val"))

Response.Cookies(sessionnamn1) = sessionnamn
Response.Cookies(sessionnamn1).Expires = date + 1
Response.Redirect  sidan & "?id=" & Request.QueryString("id")

End If

'############################################################################################################
'----------------------------------------------------ALLA OMRÖSTNINGAR---------------------------------------------------------------------------------------
'############################################################################################################

If Request.Querystring("do") = "gamla" Then

Set Conn  	= Server.CreateObject("ADODB.Connection")
Conn.Open 	"driver={Microsoft Access Driver (\*.mdb)};dbq=" &Server.MapPath("../../dbq/poll.mdb")
SQL = "Select PollId, Fraga From fraga Order By PollId desc"
Set RecSet = Conn.Execute(SQL)

Do Until RecSet.EOF
PollId   = RecSet("PollID")
Fraga	= RecSet("Fraga")%\>

\<table width="\<%=Bredd%\>" cellspacing="1" cellpadding="1" align="center" border="0"\>
  \<tr\> 
    \<td colspan="2"\>\<b\>\<%=Fraga%\>\</b\>\</td\>
  \</tr\>
    
\<%Set RS = Conn.Execute("SELECT sum(klick) As tot From svar Where pollID="& PollId)
  roster = RS("tot")
RS.Close
Set RS = nothing
Set RS = Conn.Execute("Select \* From svar Where PollID = " & PollId &" Order By svarnr")

Do Until RS.EOF
stat     = RS("klick")
If stat \<\> 0 Then
   res      = (stat/roster) \* BreddF / Storlek
Else
   res = "0"
End If%\>
       \<tr\>
          \<td width="\<%=bredd%\>"\>\<%=RS("svar")%\>\</td\>
          \<td rowspan="2" width="\<%=breddR%\>" valign="bottom" align="right"\>(\<%For i=1 to Len(stat)%\>\<%=Mid(stat,i,1)%\>\<%Next%\>)\</td\>
        \</tr\>
        \<tr\>
          \<td width="\<%=BreddF%\>" bgcolor="#d0d0d0" height="5"\>\<img src="polls/bilder/stapel.gif" width="\<%=Round(res,0)%\>%" height="5" border="1"\>\</td\>
        \</tr\>
\<%RS.MoveNext
Loop	
Set RS = nothing%\>
  \<tr\> 
    \<td colspan="2"\>Antal röster: \<%For i=1 to Len(roster)%\>\<%=Mid(roster,i,1)%\>\<%Next%\>\</td\>
  \</tr\>
    \<tr\> 
    \<td colspan="2"\>\<hr\>\</td\>
  \</tr\>

\<%RecSet.MoveNext
Loop
Set RecSet = nothing%\>

    \<tr\> 
    \<td colspan="2"\>\<b\>«\</b\> \<a href="\<%=sidan%\>"\>Tillbaka\</a\>\</td\>
  \</tr\>
\</table\>

\<%End If

Conn.Close
Set Conn = nothing%\>

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

## #4 — @nders, 2003-01-16T08:29Z

"Sidan kan inte visas" är ett felmeddelande som normalt skapas av Internet Explorer. Stäng av *Friendly Error Messages / Egna http-felmeddelanden* och pröva igen, så borde du få ett bättre felmeddelande.

Mvh,

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

## #5 — ChiefJoseph, 2003-01-16T09:27Z

felmeddelande:
error '80020009' 
Exception occurred. 

/la/review/news1.asp, line 81 

Här är news1.asp:
\<%Response.Buffer = "True"%\>
\<%
'##############ÄNDRA DETTA#############################
NyhetPerSida = 10                                   ' Antal nyhetsrubriker per sida
URL                 = "review.asp"                    ' Sidan du inkluderar news1.asp i
db = Server.MapPath("../../dbq/news.mdb")   ' Databasens sökväg
Width              = "300"                              ' Bredd på bilden
'#####################################################
%\>

\<!--
\##########################################
Gruvsjo Nyheter v3
Åsa Gruvsjö ©
<https://www.gruvsjo.com>  
<Asa@gruvsjo.com>
	
Fri att använda om ni låter copyrightkoden stå kvar!
\##########################################
\--\>

\<table cellpadding="1" cellspacing="0" width="100%" border="0"\>

\<%Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

If Request.QueryString("ID") = "" Then

Set RecSet = Server.CreateObject("ADODB.Recordset")
Sidan = Request.QueryString("sida")
If Sidan = "" then 
     sida = 1 
Else 
     sida = Sidan 
End If 

With RecSet
    .CursorLocation = 3
    .CacheSize = NyhetPerSida
End With

SQL = "SELECT \* FROM news Order By id desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%\>
     \<tr\>
        \<td\>Inga nyheter inlagda!\</td\>
     \</tr\>
\<%Else

With RecSet
  .MoveFirst 
  .PageSize = NyhetPerSida
  .AbsolutePage = sida
End With

Sidor =  RecSet.PageCount
x = 0 
Do While Not RecSet.EOF And x \< RecSet.PageSize%\>
     \<tr\>
        \<td\>\<a href="\<%=URL%\>?ID=\<%=RecSet("ID")%\>"\>\<b\>\<%=RecSet("rubrik")%\>\</b\>\</a\>\</td\>\<td\>\<%=FormatDateTime(RecSet("datum"),2)%\> (\<%=FormatDateTime(RecSet("datum"),4)%\>)\</td\>
     \</tr\>
\<%x=x+1 
RecSet.MoveNext
Loop
RecSet.Close
If Sidor \> 1 Then%\>
  \<tr\>
     \<td valign="top" colspan="2" style="border-top: 1px solid #000000"\>
       \<%For Sid = 1 To Sidor
               If (Int(Sid)) = (Int(sida)) Then%\>\<b\>\<%=Sid%\>\</b\>\<%Else%\> \<a href="\<%=URL%\>?sida=\<%=Sid%\>"\>\<%=Sid%\>\</a\> \<%End If
         Next%\> 
    \</td\>
  \</tr\>
\<%End If
  End If
End If
If Request.QueryString("ID") \<\> "" Then
Set RS=Conn.Execute("Select \* From news Where id=" & Request.QueryString("ID"))%\>
     \<tr\>
\<%If RS("bild") \<\> "" Then%\>
        \<td rowspan="3" valign="top"\>\<img src="\<%=RS("bild")%\>" border="1" width="\<%=Width%\>"\>\</td\>
        \<td rowspan="3" width="5"\>&nbsp;\</td\>
\<%End If%\>
        \<td width="6%"\>\<img src="bilder/news.gif" border="0" valign="middle"\>\</td\>\<td width="94%"\>\<b\>\<%=RS("rubrik")%\>\</b\> \| \<%=FormatDateTime(RS("datum"),2)%\> (\<%=FormatDateTime(RS("datum"),4)%\>)\</td\>
     \</tr\>
     \<tr\>
        \<td colspan="2"\>\<%=Replace(RS("nyhet"),vbCrLf,"\<br\>")%\>\<br\>\<br\>/\<%=RS("skribent")%\>\</td\>
     \</tr\>
     \<tr\>
        \<td colspan="2"\>\<br\>\<a href="\<%=URL%\>"\>« Tillbaka\</a\>\</td\>
     \</tr\>
\<%End If%\>
\</table\>

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

## #6 — Jesper T, 2003-01-16T09:30Z

Vad står på rad 81?
Var vänlig och använd \[kod\]-taggarna när du bifogar kod. :)

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

## #7 — @nders, 2003-01-16T09:31Z

Snälla, använd \[kod\]-taggar så koden går att läsa, och markera rad 81.

Mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/65049-kan-man-inte-inkludera-2-asp-filer-i-ett-dokument