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

6 svar · 287 visningar · startad av ChiefJoseph 16 jan. 2003

ChiefJosephMedlem sedan okt. 200173 inlägg

Frågan16 jan. 2003 08:06#1

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å????

@ndersMedlem sedan juni 200032 967 inlägg

16 jan. 2003 08:13#2

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

ChiefJosephMedlem sedan okt. 200173 inlägg

16 jan. 2003 08:26#3

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"%>

<!--
************************************************
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%>

@ndersMedlem sedan juni 200032 967 inlägg

16 jan. 2003 08:29#4

"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,

ChiefJosephMedlem sedan okt. 200173 inlägg

16 jan. 2003 09:27#5

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
'#####################################################
%>

Fri att använda om ni låter copyrightkoden stå kvar!
##########################################
-->

<%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"> </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>

Jesper TMedlem sedan nov. 20017 144 inlägg

16 jan. 2003 09:30#6

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

@ndersMedlem sedan juni 200032 967 inlägg

16 jan. 2003 09:31#7

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

Mvh,