<%
Function getCatName(id_tmp)
strSQL1111 = "Select name from cat Where id = "&id_tmp
Set rs1111 = Server.CreateObject( "ADODB.Recordset" )
rs1111.Open strSQL1111, Conn
if not rs1111.eof then
getCatName = rs1111("name")
else
getCatName = "-"
end if
End Function
Function getCatDescription(id_tmp)
strSQL1111 = "Select description from cat Where id = "&id_tmp
Set rs1111 = Server.CreateObject( "ADODB.Recordset" )
rs1111.Open strSQL1111, Conn
if not rs1111.eof then
getCatDescription = rs1111("description")
else
getCatDescription = "-"
end if
End Function
Function getCatType(id_tmp)
strSQL1111 = "Select type from cat Where id = "&id_tmp
Set rs1111 = Server.CreateObject( "ADODB.Recordset" )
rs1111.Open strSQL1111, Conn
if not rs1111.eof then
getCatType = rs1111("type")
else
getCatType = "-"
end if
End Function
Function getSeries(id_tmp)
strSQL11111 = "Select type2id from cat Where id = "&id_tmp
Set rs11111 = Server.CreateObject( "ADODB.Recordset" )
rs11111.Open strSQL11111, Conn
if not rs11111.eof then
getSeries = rs11111("type2ID")
else
getSeries = "-"
end if
End Function
sql = "Select top 3 * from product Order by id desc"
Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.Open sql, Conn
%>
