|
|
|
|
<%
Dim strCalendarConn
strCalendarConn = "Driver={SQL Server};" & _
"Server=(local);" & _
"Database=calendar;" & _
"Uid=sgray;" & _
"Pwd=vaesrt"
Dim connCategory
Set connCategory = Server.CreateObject("ADODB.Connection")
With connCategory
.ConnectionString = strCalendarConn
.CursorLocation = adUseClient
End With
connCategory.Open()
Dim commCalendarCategory, rsCalendarCategory
Set commCalendarCategory = Server.CreateObject("ADODB.Command")
With commCalendarCategory
.ActiveConnection = connCategory
.CommandType = adCmdStoredProc
.CommandText = "calendarCategorySelectAllLMC"
End With
Set rsCalendarCategory = commCalendarCategory.Execute
Dim strID
While NOT rsCalendarCategory.EOF
If InStr(Replace(rsCalendarCategory("name"), " ", ""), strSchool) Then
strID = rsCalendarCategory("id")
End If
rsCalendarCategory.movenext
Wend
'Response.Write("strID: " & strID & "
")
'Response.Write("strSchool: " & strSchool & "
")
'Response.End
Dim connCustomPages
Set connCustomPages = Server.CreateObject("ADODB.Connection")
With connCustomPages
.ConnectionString = strConnCMS
.CursorLocation = adUseClient
End With
connCustomPages.Open()
Dim commCustomPages, rsCustomPages
Set commCustomPages = Server.CreateObject("ADODB.Command")
With commCustomPages
.ActiveConnection = connCustomPages
.CommandType = adCmdStoredProc
.CommandText = "lmcRecReadsSelectByLocation"
.Parameters.Append( .CreateParameter ("docType", adVarChar, adParamInput, 50, NULL ) )
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 50, strSchool ) )
End With
Dim connDownloads
Set connDownloads = Server.CreateObject("ADODB.Connection")
With connDownloads
.ConnectionString = strConnCMS
.CursorLocation = adUseClient
End With
connDownloads.Open()
Dim commDownloads, rsDownloads
Set commDownloads = Server.CreateObject("ADODB.Command")
With commDownloads
.ActiveConnection = connDownloads
.CommandType = adCmdStoredProc
.CommandText = "lmcDownloadInfo"
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 75, strSchool ) )
End With
Set rsDownloads = commDownloads.Execute
%>
|
|
|
|
