 |
 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
 |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
<%
Dim connCategory
Set connCategory = Server.CreateObject("ADODB.Connection")
With connCategory
.ConnectionString = "Driver={SQL Server}; Server=64.34.180.13,9203; Database=assistivetechnologies; Uid=sql_assistivetechnologies; Pwd=33OK3-ba"
.CursorLocation = 3
End With
connCategory.Open()
Dim commCategory, rsCategory
Set commCategory = Server.CreateObject("ADODB.Command")
With commCategory
.ActiveConnection = connCategory
.CommandType = &H0004
.CommandText = "categorySelect"
.Parameters.Append( .CreateParameter ("current", 3, &H0001, 4, NULL) )
End With
Set rsCategory = commCategory.Execute
Set commCategory.ActiveConnection = Nothing
Set commCategory = Nothing
Dim counterCategory, colorCategory, yCategory
counterCategory = 0
yCategory = 0
%>
|
 |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
