webForumDet fria alternativet
Logga in / Bli medlem

Error URGENT

ASPur ASP

8 svar · 386 visningar · startad av Pellsater

PellsaterMedlem sedan juli 2000154 inlägg
Frågan#1

Hej

har problem med en sida jag sköter

https://www.partybolaget.se

när jag klickar på bilden för att fåupp "själva" sidan så får intern serverfel efter en stund. går jag manuellt in i filerna så får jagupp dom som heter htm men inte dom som heter asp... dessa har db-kopplingar.. SIdan ligger på Loopia, är det nån som har några tips. Sidan har inte strulat innan.....

@nderss avatar@ndersMedlem sedan juni 200032 969 inlägg
#2

Internt serverfel finns det egentligen inget som heter. Avmarkera "Egna http-felmeddelanden" i IE, och återkom med ett riktigt felmeddelande.

Edit: det verkar vara ett script timeout-fel.

Active Server Pages error 'ASP 0113'

Script timed out

/index2.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Visa kod.

PellsaterMedlem sedan juli 2000154 inlägg
#3

Active Server Pages error 'ASP 0113'

Script timed out

/index2.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

devotions avatardevotionMedlem sedan jan. 20013 582 inlägg
#4

:)
Som sagt.... Kod!

mvh

PellsaterMedlem sedan juli 2000154 inlägg
#5

här är all kod i sidan för jag har ingen aning om vad som kan vara fel... har funkat klockrent innan som sagt

Fick redigera bort lite HTML kod för det fick inte plats *ler*

<!--#Include File="include/adovbs.inc" -->

<%
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../counter.mdb")&";"
Set RS = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From counter WHERE datum=" & Date()
RS.Open Addera, Conn, adOpenStatic, adLockOptimistic
Do Until RS.EOF
	IF RS("ip") = Request.ServerVariables("remote_host") Then
        Session("kanelbulle") = "ja"
 	End If
RS.MoveNext
Loop
If Session("kanelbulle") <> "ja" Then
	RS.AddNew
 	RS("datum") = Date()
	RS("month") = Month(Now)
	RS("day") = Day(Date)
	RS("ip") = Request.ServerVariables("remote_host")
	RS.Update
	Session("kanelbulle") = "ja"
End If 
RS.Close

RS.Open Addera, Conn, 1, 3
ud = 0
Do Until RS.EOF
ud = ud + 1
RS.MoveNext
Loop
RS.Close

Addera2 = "Select * From counter"
RS.Open Addera2, Conn, 1, 3
totalt = 0
Do Until RS.EOF
totalt = totalt + 1
RS.MoveNext
Loop
RS.Close

Set RS = Nothing
Conn.Close
Set Conn = Nothing
%> 
<%

Function FixDate(d)
	If Not IsDate(d) Then Exit Function
	
	Select Case WeekDay(d)
		Case 1: dag = "Söndag"
		Case 2: dag = "Måndag"
		Case 3: dag = "Tisdag"
		Case 4: dag = "Onsdag"
		Case 5: dag = "Torsdag"
		Case 6: dag = "Fredag"
		Case 7: dag = "Lördag"
	End Select
	
	Select Case Month(d)
		Case 1: manad = "januari"
		Case 2: manad = "februari"
		Case 3: manad = "mars"
		Case 4: manad = "april"
		Case 5: manad = "maj"
		Case 6: manad = "juni"
		Case 7: manad = "juli"
		Case 8: manad = "augusti"
		Case 9: manad = "september"
		Case 10: manad = "oktober"
		Case 11: manad = "november"
		Case 12: manad = "december"
	End Select
	
	FixDate = dag & " " & Day(d) & " " & manad
End Function

%>

<html>
<head>
<title>Partybolaget i Väst AB</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="include/stylesheet.css">
<style>
a {text-decoration:none}
a.hoover {text-decoration:none}
</style>

<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>

                 <%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../party.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select Top 4 * from kalender WHERE datum>=date() Order by datum, eventid"
rs.open sql,conn,3,3
%>
                            <% Do until rs.eof
counter = counter + 1
If counter Mod 2 = 0 then
   color = "#FFFFFF"

img1 = "image/bg_pg2.gif"

Else
   color = "#666666"

img1 = "image/bg_pg.gif"

End If
					 
%>
                            <tr> 
                              <td> <b>Datum: 
                                <% =FixDate(rs("datum")) %>
                                </b> / <%=rs("var")%></td>
                            </tr>
                            <tr  valign="top"> 
                              <td width="250" height="75" background="<%=img1%>"><b><font color="<%=color%>"><br>
                                &Ouml;ppet: </font></b><font color="<%=color%>"><%=rs("oppet")%><br>
                                <b>Evenemang</b>: <%=rs("evenemang")%><br>
                                <b>Intr&auml;de:</b> <%=rs("pris")%> kr<br>
                                <b>&Aring;lder:</b> <%=rs("alder")%></font><br> <img src="image/trans.gif" width="180" height="8"> 
                                <% if rs("info") ="" then 	
						   		response.write ""
						   		Else %> <a href="#" onClick="window.open('kalender_mer.asp?eventid=<%=rs("eventid")%>','Mer_Info','scrollbars=1, height=100,width=350'); return false;"> 
                                <font color="<%=color%>">Läs 
                                mer --></font></a>
                                <% End If%></td>
                            </tr>
                            <%
rs.moveNext
Loop
%>
                            <%
rs.close
conn.close
%>
                          </table></td>
                                  <tr> 
                              <td colspan="3" align="right"> <p><font color="#FF9900">Bes&ouml;kare 
                                  just nu:</font> <font color="#FFFFFF"><%= Application("aktivanu") %> </font> <br>
                                  <%
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../counter.mdb")&";"
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "Select Count(*) as X from counter where datum > #"&DateAdd("d",-7,Now)&"#"
rs.Open sql,conn,3,3
antal = rs("X")
%>
                                  <font color="#FF9900">Senaste 7 dagarna: </font><font color="#FFFFFF"> 
                                  <%=antal%> </font> 
                                  <%rs.close
conn.close%>
                                  <br>
                                  <font color="#FF9900">Totalt: <font color="#FFFFFF"><%=totalt%></font></font> </p></td>
                            </tr>
                            <tr> 
                              <td height="0" colspan="3"> <%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../party.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select Top 2 * from bilder where eventID = 99999 order by Id Desc"
rs.open sql,conn,3,3
%> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="white">
                                  <tr> 
                                    <td colspan="2">Kommande evenemang:</td>
                                  </tr>
                                  <tr> 
                                    <td> <div align="left"><img src="bilder_evenemang/<%=rs("bildnamn")%>" border="1" width="145" height="200" vspace="2" hspace="2"></div></td>
                                    <td> <div align="right">
                                        <%rs.movenext%>
                                        <img src="bilder_evenemang/<%=rs("bildnamn")%>" border="1" width="145" height="200" vspace="2" hspace="2"></div></td>
                                  </tr>
                                </table></td>
                            </tr>
                          </table></td>
                      </tr>
                      <tr> 
                        <td width="49%"><b>Mer p&aring; g&aring;ng</b></td>
                        <td width="51%">&nbsp;</td>
                      </tr>
                      <tr> 
                        <td colspan="2"> </td>
                      </tr>
                    </table>
                    <%rs.close
conn.close%> </td>
                </tr>
                <tr> 
                  <td class="white"> <form name="form1" class="meny1">
                      <select name="man" class="meny1" onChange="MM_jumpMenu('parent',this,0)">
                        <option selected>Välj månad</option>
                        <option value="kalender_manad.asp?man=1">Januari</option>
                        <option value="kalender_manad.asp?man=2">Februari</option>
                        <option value="kalender_manad.asp?man=3">Mars</option>
                        <option value="kalender_manad.asp?man=4">April</option>
                        <option value="kalender_manad.asp?man=5">Maj</option>
                        <option value="kalender_manad.asp?man=6">Juni</option>
                        <option value="kalender_manad.asp?man=7">Juli</option>
                        <option value="kalender_manad.asp?man=8">Augusti</option>
                        <option value="kalender_manad.asp?man=9">September</option>
                        <option value="kalender_manad.asp?man=10">Oktober</option>
                        <option value="kalender_manad.asp?man=11">November</option>
                        <option value="kalender_manad.asp?man=12">December</option>
                      </select>
                    </form></td>
                </tr>
              </table>
            </div></td>
        </tr>
      </table>
    </td>
  </tr>
</table>

<!-- Loopia Counter Beginning -->
<!-- <img src="http://counter.loopia.se/stats_img.php?domain=partybolaget.se_index2" width="1" height="1" border="0"> -->
<!-- Loopia Counter End --> 

</body>
</html>
ObbelixMedlem sedan okt. 2002257 inlägg
#6

Jag gör ett försök att rensa ännu mer kod...

Kan vara några fel då jag inte vet alla datatyper i databasen. Sen är frågan om adovbs verkligen behövs?

Men testa följande:

<!--#Include File="include/adovbs.inc" -->

<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../counter.mdb")&";"
Set RS = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From counter WHERE datum=#" & Date() & "# AND ip='" & Request.ServerVariables("remote_host") & "'"
set rs = conn.execute(SQL)
if not rs.eof then
 Session("kanelbulle") = "ja"
 SQL = "INSERT INTO counter (datum,month,day,ip) VALUES " &_
 	    "(#" & date() & "#," & month(now) & "," & day(date) & ",'" & Request.ServerVariables("remote_host") & "')"
 conn.execute SQL,,128
end if
rs.close : set rs = nothing

SQL = "Select count(*) From counter WHERE datum=#" & Date() & "# AND ip='" & Request.ServerVariables("remote_host") & "'"
set rs = conn.execute(SQL)
if not rs.eof then
 ud = rs(0)
end if
rs.close : set rs = nothing

SQL = "Select count(*) FROM counter"
set rs = conn.execute(SQL)
if not rs.eof then
 totalt = rs(0)
end if
rs.close : set rs = nothing

Function FixDate(d)
	If Not IsDate(d) Then Exit Function
	
	Select Case WeekDay(d)
		Case 1: dag = "Söndag"
		Case 2: dag = "Måndag"
		Case 3: dag = "Tisdag"
		Case 4: dag = "Onsdag"
		Case 5: dag = "Torsdag"
		Case 6: dag = "Fredag"
		Case 7: dag = "Lördag"
	End Select
	
	Select Case Month(d)
		Case 1: manad = "januari"
		Case 2: manad = "februari"
		Case 3: manad = "mars"
		Case 4: manad = "april"
		Case 5: manad = "maj"
		Case 6: manad = "juni"
		Case 7: manad = "juli"
		Case 8: manad = "augusti"
		Case 9: manad = "september"
		Case 10: manad = "oktober"
		Case 11: manad = "november"
		Case 12: manad = "december"
	End Select
	
	FixDate = dag & " " & Day(d) & " " & manad
End Function

%>

<html>
<head>
<title>Partybolaget i Väst AB</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="include/stylesheet.css">
<style>
a {text-decoration:none}
a.hoover {text-decoration:none}
</style>

<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<%
SQL = "Select Top 4 * from kalender WHERE datum >= #" & date() & "# ORDER BY datum, eventid"
set rs = conn.execute(SQL)
if not rs.eof then
 counter = 0
 Do while not rs.eof
 counter = counter + 1
 If counter Mod 2 = 0 then
   color = "#FFFFFF"
   img1 = "image/bg_pg2.gif"
 Else
   color = "#666666"
   img1 = "image/bg_pg.gif"
 End If 
%>
                            <tr> 
                              <td><b>Datum: <%=FixDate(rs("datum"))%></b> / <%=rs("var")%></td>
                            </tr>
                            <tr  valign="top"> 
                              <td width="250" height="75" background="<%=img1%>"><b><font color="<%=color%>"><br>
                                &Ouml;ppet: </font></b><font color="<%=color%>"><%=rs("oppet")%><br>
                                <b>Evenemang</b>: <%=rs("evenemang")%><br>
                                <b>Intr&auml;de:</b> <%=rs("pris")%> kr<br>
                                <b>&Aring;lder:</b> <%=rs("alder")%></font><br> <img src="image/trans.gif" width="180" height="8"> 
                                <% if rs("info") = "" then 	
						   		response.write ""
						   		Else %> <a href="#" onClick="window.open('kalender_mer.asp?eventid=<%=rs("eventid")%>','Mer_Info','scrollbars=1, height=100,width=350'); return false;"> 
                                <font color="<%=color%>">Läs mer --></font></a>
                                <% End If%></td>
                            </tr>
                            <%
rs.moveNext
Loop
rs.close : set rs = nothing
%>
                          </table></td>
                                  <tr> 
                              <td colspan="3" align="right"> <p><font color="#FF9900">Bes&ouml;kare 
                                  just nu:</font> <font color="#FFFFFF"><%= Application("aktivanu") %> </font> <br>
                                  <%
								  SQL = "Select Count(*) FROM counter where datum > #" & DateAdd("d",-7,Now) & "#"
								  set rs = conn.execute(SQL)
								  if not rs.eof then
								   antal = rs(0)
								  end if
								  rs.close : set rs = nothing
								  %>
                                  <font color="#FF9900">Senaste 7 dagarna: </font><font color="#FFFFFF"><%=antal%></font> 
                                  <br>
                                  <font color="#FF9900">Totalt: <font color="#FFFFFF"><%=totalt%></font></font> </p></td>
                            </tr>
                            <tr> 
                              <td height="0" colspan="3"> <%
							  	sql = "Select Top 2 * from bilder where eventID = 99999 order by Id Desc"
								set rs = conn.execute(SQL)
								if not rs.eof then %> 
								<table width="100%" border="0" cellpadding="0" cellspacing="0" class="white">
                                  <tr> 
                                    <td colspan="2">Kommande evenemang:</td>
                                  </tr>
                                  <tr> 
                                    <td> <div align="left"><img src="bilder_evenemang/<%=rs("bildnamn")%>" border="1" width="145" height="200" vspace="2" hspace="2"></div></td>
                                    <td> <div align="right">
                                 <% rs.movenext %>
                                    <img src="bilder_evenemang/<%=rs("bildnamn")%>" border="1" width="145" height="200" vspace="2" hspace="2"></div></td>
                                  </tr>
                                </table></td>
                            </tr>
                          </table></td>
                      </tr>
                      <tr> 
                        <td width="49%"><b>Mer p&aring; g&aring;ng</b></td>
                        <td width="51%">&nbsp;</td>
                      </tr>
                      <tr> 
                        <td colspan="2"> </td>
                      </tr>
                    </table>
                 </td>
                </tr>
                <tr> 
                  <td class="white"> <form name="form1" class="meny1">
                      <select name="man" class="meny1" onChange="MM_jumpMenu('parent',this,0)">
                        <option selected>Välj månad</option>
                        <option value="kalender_manad.asp?man=1">Januari</option>
                        <option value="kalender_manad.asp?man=2">Februari</option>
                        <option value="kalender_manad.asp?man=3">Mars</option>
                        <option value="kalender_manad.asp?man=4">April</option>
                        <option value="kalender_manad.asp?man=5">Maj</option>
                        <option value="kalender_manad.asp?man=6">Juni</option>
                        <option value="kalender_manad.asp?man=7">Juli</option>
                        <option value="kalender_manad.asp?man=8">Augusti</option>
                        <option value="kalender_manad.asp?man=9">September</option>
                        <option value="kalender_manad.asp?man=10">Oktober</option>
                        <option value="kalender_manad.asp?man=11">November</option>
                        <option value="kalender_manad.asp?man=12">December</option>
                      </select>
                    </form></td>
                </tr>
              </table>
            </div></td>
        </tr>
      </table>
    </td>
  </tr>
</table>

<!-- Loopia Counter Beginning -->
<!-- <img src="http://counter.loopia.se/stats_img.php?domain=partybolaget.se_index2" width="1" height="1" border="0"> -->
<!-- Loopia Counter End --> 

</body>
</html>
<%
rs.close : set rs = nothing
conn.close : set conn = nothing
%>

Om det fortfarande får samma fel testa att lägga till följande högst upp i dokumentet

<%
Server.ScriptTimeout = 3600 '<- antal sekunder 3600=1 timme
%>
PellsaterMedlem sedan juli 2000154 inlägg
#7

funkar så när som på att den visar 0 beöksare de senaste 7 dagarna

<%
								  SQL = "Select Count(*) FROM counter where datum > #" & DateAdd("d",-7,Now) & "#"
								  set rs = conn.execute(SQL)
								  if not rs.eof then
								   antal = rs(0)
								  end if
								  rs.close : set rs = nothing
								  %>
                                  <font color="#FF9900">Senaste 7 dagarna: </font><font color="#FFFFFF"><%=antal%></font>
PellsaterMedlem sedan juli 2000154 inlägg
#8

ser i db att den inte lägger till några besök sen jag gjorde om koden, så om nå kunde hjälpa till tack

J.N.s avatarJ.N.Medlem sedan apr. 20031 660 inlägg
#9

HEJ!

Enkelt svar: kontrollera koden där du lagrar värdena.

147 ms totalt · 3 externa anrop · v20260731065814-full.25f56b17
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
145 ms — hämta tråd, inlägg och bilagor (db)