Toon posts:

ASP crashed, HTML niet

Pagina: 1
Acties:
  • 42 views sinds 30-01-2008

maandag 5 december 2005 10:34

Acties:

Verwijderd

Topicstarter
Ik ben bezig met een iis server (IIS 5, win2k server) waarbij een aantal keer per dag de ASP engine crashed.
HTML werkt nog wel, maar elke ASP pagina wordt niet meer geladen.

Er is 1 ASP pagina die ik erg verdacht vind. Deze pagina maakt de verbinding op van IIS server via ODBC (navision) naar een database server (navision native database)

Mijn vraag is: Kan het door deze code komen?

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

<%

Sub ab_OpenADOConn (adoConn, aConnectStr)

    Dim myCounter, maxCounter
    Dim startTime
    
    myCounter = 0
    maxCounter = 50
    startTime = Now()

    On Error Resume Next
        Do While adoConn.state <> 1 AND myCounter < maxCounter ' DateDiff("s", Now(), startTime) < 5
            myCounter = myCounter + 1
            'Response.Write("<!-- ADO-Connection no. " & myCounter & " (" & adoConn.state & ") -->")
            adoConn.Open aConnectStr
        Loop
    On Error GoTo 0
    
    If adoConn.state <> 1 Then
        'Log de gegevens in een logbestand
        Const ForAppending = 8 
        Const Create = true 
        
        Dim FSO 
        Dim TS 
        Dim MyFileName 
        Dim strLog  
         
        MyFileName = Server.MapPath("maxLicenseLog.txt")
         
        Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
        Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create) 
          
        strLog = Chr(13) & NOW() & Chr(9) 
        strLog = strLog & Request.ServerVariables("URL") & Chr(9) 
        strLog = strLog & Request.ServerVariables("PATH_INFO") & Chr(9) 
        strLog = strLog & Request.ServerVariables("SERVER_NAME") & Chr(9) 
        strLog = strLog & Request.ServerVariables("SCRIPT_NAME") & Chr(9) 
        strLog = strLog & Request.ServerVariables("QUERY_STRING") & Chr(9) 
        strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & Chr(9) 
        strLog = strLog & Request.ServerVariables("HTTP_REFERER") & Chr(9) 
        strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT") & Chr(9) 
        strLog = strLog & Session("UserID") & Chr(9) 
        strLog = strLog & Session("UserName") & Chr(9)
        strLog = strLog & " - connection failed after " & maxCounter & " times."
         
        ' Write current information to Log Text File.  
        TS.write strLog 
        TS.Writeline ""
         
        ' Now Create a session varialbe to check next time for ValidEntry
        Session("LogIn") = "yes" 
         
        Set TS = Nothing 
        Set FSO = Nothing
    
        %>
        <script language="javascript">
            alert('Bericht aan gebruiker\n\nEr is een onverwachte fout opgetreden waardoor geen verbinding kan worden gemaakt met de database.\nGa terug in uw browser en probeer het opnieuw.');
        </script>
        <%
    End If
    
End Sub


Sub ab_OpenRecSet (RecSet, strSQL, adoConn)
    If adoConn.state = 1 Then
        Dim myCounter, maxCounter
        Dim startTime
        
        myCounter = 0
        maxCounter = 50
        startTime = Now()

        On Error Resume Next
            Do While RecSet.state <> 1 AND myCounter < maxCounter ' DateDiff("s", Now(), startTime) < 5
                myCounter = myCounter + 1
                RecSet.Open strSQL, adoConn
                'Response.Write("<!-- opening RecSet no. " & myCounter & " ("& RecSet.state & ") -->")
            Loop
        On Error GoTo 0
        
        If RecSet.state <> 1 Then
        
            'Log de gegevens in een logbestand
            Const ForAppending = 8 
            Const Create = true 
            
            Dim FSO 
            Dim TS 
            Dim MyFileName 
            Dim strLog  
             
            MyFileName = Server.MapPath("maxLicenseLog.txt")
             
            Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
            Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create) 
              
            strLog = Chr(13) & NOW() & Chr(9) 
            strLog = strLog & Request.ServerVariables("URL") & Chr(9) 
            strLog = strLog & Request.ServerVariables("PATH_INFO") & Chr(9) 
            strLog = strLog & Request.ServerVariables("SERVER_NAME") & Chr(9) 
            strLog = strLog & Request.ServerVariables("SCRIPT_NAME") & Chr(9) 
            strLog = strLog & Request.ServerVariables("QUERY_STRING") & Chr(9) 
            strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & Chr(9) 
            strLog = strLog & Request.ServerVariables("HTTP_REFERER") & Chr(9) 
            strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT") & Chr(9) 
            strLog = strLog & Session("UserID") & Chr(9) 
            strLog = strLog & Session("UserName") & Chr(9)
            strLog = strLog & " - open recset failed after " & maxCounter & " times."
             
            ' Write current information to Log Text File.  
            TS.write strLog 
            TS.Writeline ""
             
            ' Now Create a session varialbe to check next time for ValidEntry
            Session("LogIn") = "yes" 
             
            Set TS = Nothing 
            Set FSO = Nothing
        
        %>
        <script language="javascript">
            alert('Bericht aan gebruiker\n\nEr is een onverwachte fout opgetreden bij het opvragen van gegevens uit de database.\nGa terug in uw browser en probeer het opnieuw.');
        </script>
        <%
        End If
    End If
End Sub


%>

maandag 5 december 2005 10:40

Acties:
  • Dennis
  • Registratie: Februari 2001
  • Laatst online: 18:49

Dennis

Dat weten wij natuurlijk niet, maar ik zou log4net inbouwen en goed kijken naar je logfiles en de eventlog.

maandag 5 december 2005 10:51

Acties:

Verwijderd

Topicstarter
Jammer dat jullie het niet kunnen zien. Logisch eigenlijk :)

Ik ben geen programmeur, maar ik las op Google dat de connecties goed gesloten moeten worden anders kun je in een LOOP terecht komen?

Kunnen jullie zien of dit ook echt gebeurd?

maandag 5 december 2005 10:56

Acties:
  • Janoz
  • Registratie: Oktober 2000
  • Laatst online: 21-04 10:43

Janoz

Moderator Devschuur®

!litemod

Tja, het is niet echt de bedoeling om maar een stuk code neer te plempen met de mededeling 'zoeken jullie het even uit'. Zeker niet wanneer het niet eens de code van jezelf is. Als je vragen over de code hebt kun je die beter bij de makers van de code stellen. Programming & Webscripting is iig gericht op het zelf programmeren en de problemen die daarbij komen kijken.

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'

Dit topic is gesloten.