I inherited an application that was written in VB6.
I have been asked to convert it to ASP.
I am attempting to access some of the DLL's the application uses, and they cause the page to time out.
I write VB to access the same DLL, and it all works fine.
What would make a dll cause timeouts on a web server.
I get no errors. Just a 90 secons delay then the page times out.
If I comment out the login function, the asp runs and returns false for isloggedin and xxxx for username.
ASP:
<%
Option Explicit
Response.ExpiresAbsolute = Now() - 1
response.write("Test<br />"
Dim objUser
Set objUser = server.CreateObject("Data.User"
dim bStatus
bStatus = objUser.Login ("xxxx", "yyyy"
response.write (bStatus)
response.write("<br />"
response.write(objUser.IsLoggedIn )
response.write("<br />"
response.write(objUser.UserName )
response.write("<br />"
%>
VB6
Text1 = Text1 + vbCrLf + "Test"
Dim objUser As Object
Set objUser = New Data.User
objUser.Login "xxxx", "yyyy"
Text1 = Text1 + vbCrLf + CStr(objUser.IsLoggedIn)
Text1 = Text1 + vbCrLf + objUser.UserName
I have been asked to convert it to ASP.
I am attempting to access some of the DLL's the application uses, and they cause the page to time out.
I write VB to access the same DLL, and it all works fine.
What would make a dll cause timeouts on a web server.
I get no errors. Just a 90 secons delay then the page times out.
If I comment out the login function, the asp runs and returns false for isloggedin and xxxx for username.
ASP:
<%
Option Explicit
Response.ExpiresAbsolute = Now() - 1
response.write("Test<br />"
Dim objUser
Set objUser = server.CreateObject("Data.User"
dim bStatus
bStatus = objUser.Login ("xxxx", "yyyy"
response.write (bStatus)
response.write("<br />"
response.write(objUser.IsLoggedIn )
response.write("<br />"
response.write(objUser.UserName )
response.write("<br />"
%>
VB6
Text1 = Text1 + vbCrLf + "Test"
Dim objUser As Object
Set objUser = New Data.User
objUser.Login "xxxx", "yyyy"
Text1 = Text1 + vbCrLf + CStr(objUser.IsLoggedIn)
Text1 = Text1 + vbCrLf + objUser.UserName