The following code is hanging my browser and timing out. Please help. Thanks
<%@ Language=VBScript %>
<!--#include file="../inc/common.asp"-->
<%
dim rs1
dim cmd1
dim dbConn
dim userid
userid=326 'valid userid
Set cmd1 = Server.CreateObject("ADODB.Command"
with cmd1
.ActiveConnection = GetConnection
.CommandText = "WVGetUserData"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@userid",adInteger,adParamInput, ,userid)
Set rs1 = .Execute
end with
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
on error resume next
do while not rs1.eof
Response.Write(rs1("username"
)
loop
on error goto 0
set cmd1 = Nothing
set rs1 = Nothing
%>
In the common asp included file is the following function:
function GetConnection
set GetConnection = Server.CreateObject("ADODB.Connection"
GetConnection.Open conn_ConnectionString
end function
regards,
Brian
<%@ Language=VBScript %>
<!--#include file="../inc/common.asp"-->
<%
dim rs1
dim cmd1
dim dbConn
dim userid
userid=326 'valid userid
Set cmd1 = Server.CreateObject("ADODB.Command"
with cmd1
.ActiveConnection = GetConnection
.CommandText = "WVGetUserData"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@userid",adInteger,adParamInput, ,userid)
Set rs1 = .Execute
end with
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
on error resume next
do while not rs1.eof
Response.Write(rs1("username"
loop
on error goto 0
set cmd1 = Nothing
set rs1 = Nothing
%>
In the common asp included file is the following function:
function GetConnection
set GetConnection = Server.CreateObject("ADODB.Connection"
GetConnection.Open conn_ConnectionString
end function
regards,
Brian