<% Const adCmdStoredProc = &H0004 Const adVarChar = 200 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adInteger = 3 Function GetSessionVar(strVarName) If Len(strVarName) = 0 Then Exit Function End If Set cmdSelect = Server.CreateObject("ADODB.Command") cmdSelect.ActiveConnection = dbConnection cmdSelect.CommandText = "usp_SelectSessionVarByVarName" cmdSelect.CommandType = adCmdStoredProc cmdSelect.Parameters.Append cmdSelect.CreateParameter("@SessionID", adInteger, adParamInput, , Session.SessionID) cmdSelect.Parameters.Append cmdSelect.CreateParameter("@VarName", adVarChar, adParamInput, 100, strVarName) cmdSelect.Parameters.Append cmdSelect.CreateParameter("@Value", adVarChar, adParamOutput, 1000, Null) cmdSelect.Execute GetSessionVar = cmdSelect.Parameters("@Value") Set cmdSelect = Nothing End Function Function SetSessionVar(strVarName, strValue) If Len(strVarName) = 0 Then Exit Function End If Set cmdUpdate = Server.CreateObject("ADODB.Command") cmdUpdate.ActiveConnection = dbConnection cmdUpdate.CommandText = "usp_UpdateSessionVar" cmdUpdate.CommandType = adCmdStoredProc cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@SessionID", adInteger, adParamInput, , Session.SessionID) cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@VarName", adVarChar, adParamInput, 100, strVarName) cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@Value", adVarChar, adParamInput, 1000, strValue) cmdUpdate.Execute Set cmdUpdate = Nothing End Function Function RemoveSessionVar(strVarName) If Len(strVarName) = 0 Then Exit Function End If Set cmdDelete = Server.CreateObject("ADODB.Command") cmdDelete.ActiveConnection = dbConnection cmdDelete.CommandText = "usp_DeleteSessionVar" cmdDelete.CommandType = adCmdStoredProc cmdDelete.Parameters.Append cmdDelete.CreateParameter("@SessionID", adInteger, adParamInput, , Session.SessionID) cmdDelete.Parameters.Append cmdDelete.CreateParameter("@VarName", adVarChar, adParamInput, 100, strVarName) cmdDelete.Execute Set cmdDelete = Nothing End Function Set dbConnection = Server.CreateObject("ADODB.Connection") dbConnection.Open Application("strSource") Function FixBreaks(strInput) FixBreaks = Replace(strInput, Chr(13), "
") End Function %> Shreveport Bar News & Events
 
 
 
 

TIME OUT!                     

             Please take our survey . . .    

 

     The SBA staff sent a survey request (including a link to the survey page) to all members via e-mail on January 2, 2008.  

We received 70 responses within the first few days!  Thanks to all SBA members who took the time to provide their feedback.  

The comments received will assist us in better serving all of our members in 2008.  If you haven’t had the opportunity to respond, 

there is still time.  The link address is

     https://www.surveymonkey.com/s.aspx?sm=29EMBFNRyPm5CZ0y7rKUQw_3d_3d

       Please take a few minutes to share your thoughts.  The survey is available until January 31, 2008.

 Your input is very valuable and important to us.    Thank you again for your time in participating in our survey.